pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2015-08-23
2015-08-23 20:24:53 by Martin Nilsson <nilsson@fastmail.com>
fca33b88cf218d45c395c765d4076fdfa6939af3 (
9
lines) (+
9
/-
0
)
[
Show
|
Annotate
]
Branch:
8.0
Test some oddly placed white spaces in preprocessor string quoting.
34:
test_true([[1.0e-40]]); test_eq([[#"foo bar"]],[["foo\nbar"]]);
+
test_eq([[# "foo
+
bar"]],[["foo\nbar"]]);
test_eq([[#"foo\ bar"]],[["foobar"]]); test_eq([[#(foo bar#) - "\r"]],[["foo\nbar"]]);
-
+
test_eq([[# (foo
+
bar#) - "\r"]],[["foo\nbar"]]);
test_eq([[#(foo\ bar#) - "\r"]],[["foo\\\nbar"]]); test_eq([[#[foo bar#] - "\r"]],[["foo\nbar"]]);
-
+
test_eq([[# [foo
+
bar#] - "\r"]],[["foo\nbar"]]);
test_eq([[#[foo\ bar#] - "\r"]],[["foo\\\nbar"]]); test_eq([[#{foo bar#} - "\r"]],[["foo\nbar"]]);
-
+
test_eq([[# {foo
+
bar#} - "\r"]],[["foo\nbar"]]);
test_eq([[#{foo\ bar#} - "\r"]],[["foo\\\nbar"]]); test_true([[stringp(#string "Makefile")]]);