Tests for toplevel strings

ocaml · Jul 14, 2017 · 0b82612 · 0b82612
1 parent 8d5b6b4
commit 0b82612
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 0 deletions.
diff --git a/testsuite/tests/tool-toplevel/strings.ml b/testsuite/tests/tool-toplevel/strings.ml
@@ -0,0 +1,14 @@
+(* Test the printing of strings in the terminal *)
+"\n\t\r\b";;
+
+{|"\'|};;
+
+" !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~";;
+
+"\x00\x01\x02\x03\x04\x05\x06\x07\x0B\x0C\x0E\x0F\
+ \x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D\x1E\x1F\
+ \x7F";;
+
+"\"Ἀχιλλεύς\r\n天照\tब्रह्मन्\t𒄑 𒂆 𒈦 𒄑 𒂆  𒈦\\";;
+
+"ایدهآل";;
diff --git a/testsuite/tests/tool-toplevel/strings.ml.reference b/testsuite/tests/tool-toplevel/strings.ml.reference
@@ -0,0 +1,11 @@
+
+# - : string = "\n\t\r\b"
+#   - : string = "\"\\'"
+#   - : string =
+" !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~"
+#       - : string =
+"\000\001\002\003\004\005\006\007\011\012\014\015\016\017\018\019\020\021\022\023\024\025\026\027\028\029\030\031\127"
+#   - : string =
+"\"Ἀχιλλεύς\r\n天照\tब्रह्मन्\t𒄑 𒂆 𒈦 𒄑 𒂆  𒈦\\"
+#   - : string = "ایدهآل"
+#