ref: 9265ad23e7c9476cc491799915a044485418a2a7
dir: /tests/MString.hs/
module MString where {
s1 :: String;
s1 =
"""
Line 1
Line 2
Line 3
"""
;
r1 :: String;
r1 =
"Line 1\n"
++ "Line 2\n"
++ "Line 3"
;
s2 :: String;
s2 =
"""Test
Line 1
Line 2
Line 3
"""
;
r2 :: String;
r2 =
"Test\n"
++ "Line 1\n"
++ "Line 2\n"
++ "Line 3";
s3 :: String;
s3 =
"""
"Hello"
\"\"\"
\"""
""";
r3 :: String;
r3 =
"\"Hello\"\n"
++ "\"\"\"\n"
++ "\"\"\"";
s4 :: String;
s4 =
"""
<div>
<p>ABC</p>
</div>
""";
r4 :: String;
r4 =
"<div>\n"
++ " <p>ABC</p>\n"
++ "</div>";
s5 :: String;
s5 =
"""
\& Line 1
\& Line 2
\& Line 3
""";
r5 :: String;
r5 =
" Line 1\n"
++ " Line 2\n"
++ " Line 3";
s6 :: String;
s6 =
"""
Hello
""";
r6 :: String;
r6 = "Hello\n";
main :: IO ();
main = do {
print $ s1 == r1;
print $ s2 == r2;
print $ s3 == r3;
print $ s4 == r4;
print $ s5 == r5;
print $ s6 == r6;
-- print s1;
-- print r1;
}
}