1. Dmitry Grebeniuk
  2. cadastr

Commits

Dmitry Grebeniuk  committed 36b2a1d

.

  • Participants
  • Parent commits 973b55f
  • Branches default

Comments (0)

Files changed (1)

File test/test.ml

View file
  • Ignore whitespace
 module Strings_Perv_is_a_TI = (Strings.Perv.String : TIFULL);
 module Strings_Latin1_is_a_TI = (Strings.Latin1.String : TIFULL);
 module Strings_UTF8_is_a_TI = (Strings.Utf8.String : TIFULL);
+
+
+(*
+
+value __ () =
+  let t s =
+    let r = String.escaped s in
+    printf "utf8 quoting: %s = %s  (phys.eq = %b)\n%!" s r (s == r)
+  in
+  ( t "ква"
+  ; t "1\"2"
+  ; t "\208\186\208\178\208\176"
+  ; t "a\186bcdef\208"
+  ; t ""
+  ; failwith "done"
+  )
+;
+
+*)