mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-02 21:52:04 -08:00
ab9a23e029
Also add some tests for braces and parse-partial-sexp amongst Lisp style
comments.
* test/src/syntax-tests.el (\;-in, \;-out): Add syntax for { and }.
(top-level): Add new tests for Lisp style comments.
(\#|-in, \#|-out): New functions.
(top-level): Add new tests for nested Lisp style comments, and mixtures of
nested comments with "ordinary" comments.
* test/src/syntax-resources/syntax-comments.txt (top-level): Add new test
fragments for #|...|#, etc.
94 lines
No EOL
1.1 KiB
Text
94 lines
No EOL
1.1 KiB
Text
/* This file is a test file for tests of the comment handling in src/syntax.c.
|
|
This includes the testing of comments which figure in parse-partial-sexp
|
|
and scan-lists. */
|
|
|
|
/* Straight C comments */
|
|
1/* comment */1
|
|
2/**/2
|
|
3// comment
|
|
3
|
|
4//
|
|
4
|
|
5/*/5
|
|
6*/6
|
|
7/* \*/7
|
|
8*/8
|
|
9/* \\*/9
|
|
10*/10
|
|
11// \
|
|
12
|
|
11
|
|
13// \\
|
|
14
|
|
13
|
|
15/* /*/15
|
|
|
|
/* C Comments within lists */
|
|
59}59
|
|
50{ /*70 comment */71 }50
|
|
51{ /**/ }51
|
|
52{ //72 comment
|
|
73}52
|
|
53{ //
|
|
}53
|
|
54{ //74 \
|
|
}54
|
|
55{/* */}55
|
|
56{ /*76 \*/ }56
|
|
57*/77
|
|
58}58
|
|
60{ /*78 \\*/79}60
|
|
|
|
|
|
/* Straight Pascal comments (not nested) */
|
|
20}20
|
|
21{ Comment }21
|
|
22{}22
|
|
23{
|
|
}23
|
|
24{
|
|
25{25
|
|
}24
|
|
26{ \}26
|
|
|
|
|
|
/* Straight Lisp comments (not nested) */
|
|
30
|
|
30
|
|
31; Comment
|
|
31
|
|
32;;;;;;;;;
|
|
32
|
|
33; \
|
|
33
|
|
|
|
/* Lisp comments within lists */
|
|
40)40
|
|
41(;90 comment
|
|
91)41
|
|
42(;92\
|
|
93)42
|
|
43( ;94
|
|
95
|
|
|
|
/* Nested Lisp comments */
|
|
100|#100
|
|
101#|#
|
|
102#||#102
|
|
103#| Comment |#103
|
|
104#| Comment
|
|
|#104
|
|
105#|#|#105
|
|
106#| #| Comment |# |#106
|
|
107#|#|#|#|#|#|#|#|#| Comment |#|#|#|#|#|#|#|#|#107
|
|
|
|
/* Mixed Lisp comments */
|
|
110; #|
|
|
110
|
|
111#| ; |#111
|
|
|
|
Local Variables:
|
|
mode: fundamental
|
|
eval: (set-syntax-table (make-syntax-table))
|
|
End:
|
|
999 |