pike.git/ src/ testsuite.in

2015-07-26

2015-07-26 11:30:59 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 606f273cc1bf782f5f3bdcbc386cc0b23cb0d5e1 (13 lines) (+7/-6) ^{[ Show | Annotate ]}
  Branch: 8.1

Testsuite: Survive CRNL-mode in new-style literal strings.

39:   test_eq([[#"foo\   bar"]],[["foobar"]]);   test_eq([[#(foo - bar#)]],[["foo\nbar"]]); + bar#) - "\r"]],[["foo\nbar"]]);   test_eq([[#(foo\ - bar#)]],[["foo\\\nbar"]]); + bar#) - "\r"]],[["foo\\\nbar"]]);   test_eq([[#[foo - bar#] ]],[["foo\nbar"]]); + bar#] - "\r"]],[["foo\nbar"]]);   test_eq([[#[foo\ - bar#] ]],[["foo\\\nbar"]]); + bar#] - "\r"]],[["foo\\\nbar"]]);   test_eq([[#{foo - bar#}]],[["foo\nbar"]]); + bar#} - "\r"]],[["foo\nbar"]]);   test_eq([[#{foo\ - bar#}]],[["foo\\\nbar"]]); + bar#} - "\r"]],[["foo\\\nbar"]]);   test_true([[stringp(#string "Makefile")]]);   test_any([[class Bar { array(int) foo = ({}); };    class Foo { inherit Bar; array(int) foo = ({1}); };