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