File: escaped_strings.ml

package info (click to toggle)
ppx-expect 0.17.3-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 948 kB
  • sloc: ml: 3,399; ansic: 104; javascript: 19; makefile: 15; sh: 2
file content (27 lines) | stat: -rw-r--r-- 582 bytes parent folder | download | duplicates (2)
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
26
27
let%expect_test "escaped carriage return" =
  print_string "a\r\nb";
  [%expect " \n a\n b\n "];
  print_string "a\r\nb";
  [%expect_exact "a\r\nb"]
;;

let%expect_test "escaped tab" =
  print_string "a\tb";
  [%expect "a\tb"];
  print_string "a\tb";
  [%expect_exact "a\tb"]
;;

let%expect_test "escaped quote" =
  print_string "a\"b";
  [%expect "a\"b"];
  print_string "a\"b";
  [%expect_exact "a\"b"]
;;

let%expect_test "escaped trailing carriage return" =
  print_string "a\r\nb\r\n";
  [%expect " \n a\n b\n "];
  print_string "a\r\nb\r\n";
  [%expect_exact "a\r\nb\r\n"]
;;