38 lines
675 B
Text
38 lines
675 B
Text
string ts1 = """
|
|
this
|
|
"string"\thing"""
|
|
|
|
string ts2 = """this
|
|
"string"\thing"""
|
|
|
|
string ts3 = """
|
|
_____________this
|
|
"string"\thing"""
|
|
|
|
string ts4 = `
|
|
this
|
|
"string"\thing`
|
|
|
|
string ts5 = `this
|
|
"string"\thing`
|
|
|
|
string ts6 = `
|
|
_____________this
|
|
"string"\thing`
|
|
|
|
string ts7 = "this\n\"string\"\\thing"
|
|
|
|
constant tests={ts1,ts2,ts3,ts4,ts5,ts6,ts7}
|
|
for i=1 to length(tests) do
|
|
for j=1 to length(tests) do
|
|
if tests[i]!=tests[j] then crash("error") end if
|
|
end for
|
|
end for
|
|
printf(1,"""
|
|
____________Everything
|
|
(all %d tests)
|
|
works
|
|
just
|
|
file.""",length(tests))
|
|
printf(1,"""`""")
|
|
printf(1,`"""`)
|