1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(* TEST *)
let check ~kind ~input ~result =
if input <> result then
Printf.printf "FAIL: %s %S should normalize to %S\n" kind input result
;;
check ~kind:"string literal" ~input:"\n" ~result:"\n";
check ~kind:"quoted string literal" ~input:{|
|} ~result:"\n";
check ~kind:"string literal" ~input:"\n" ~result:"\n";
check ~kind:"quoted string literal" ~input:{|
|} ~result:"\n";
check ~kind:"string literal" ~input:"
\n" ~result:"\r\n";
check ~kind:"quoted string literal" ~input:{|
|} ~result:"\r\n"
|
