1 files changed, 129 insertions, 0 deletions
diff --git a/tests/general/checkx.std b/tests/general/checkx.std
new file mode 100644
index 0000000..15bd17f
--- /dev/null
+++ b/tests/general/checkx.std
@@ -0,0 +1,129 @@
+image(2) ----> "2"
+image('cab') ----> "'abc'"
+image(&lcase) ----> "&lcase"
+image('abcdefghijklmnopqrstuvwxyz') ----> "&lcase"
+image(&input) ----> "&input"
+image() ----> "&null"
+image(&null) ----> "&null"
+image([1,2,3]) ----> "list_1(3)"
+image([]) ----> "list_2(0)"
+image([,]) ----> "list_3(2)"
+image(table()) ----> "table_1(0)"
+image(table(3)) ----> "table_2(0)"
+image(list(0)) ----> "list_4(0)"
+image(repl) ----> "function repl"
+image(main) ----> "procedure main"
+image(repl(&lcase,10)) ----> "\"abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\""
+image(array) ----> "record constructor array"
+image(a) ----> "&null"
+image(array) ----> "record constructor array"
+image(image) ----> "function image"
+integer(2) ----> 2
+integer("2") ----> 2
+integer(" 2") ----> 2
+integer("2 ") ----> 2
+integer("+2") ----> 2
+integer("-2") ----> -2
+integer("- 2") ----> none
+integer(" -    2 ") ----> none
+integer("") ----> none
+integer("--2") ----> none
+integer(" ") ----> none
+integer("-") ----> none
+integer("+") ----> none
+integer("7r4") ----> 4
+integer("4r7") ----> none
+integer("4r 7") ----> none
+integer("7r 4") ----> none
+integer("16rff") ----> 255
+integer("36rcat") ----> 15941
+integer("36Rcat") ----> 15941
+integer("36rCAT") ----> 15941
+integer("1r1") ----> none
+integer("2r0") ----> 0
+integer(integer) ----> none
+integer := abs ----> function abs
+numeric(2) ----> 2
+numeric("2") ----> 2
+numeric(" 2") ----> 2
+numeric("2 ") ----> 2
+numeric("+2") ----> 2
+numeric("-2") ----> -2
+numeric("- 2") ----> none
+numeric(" -    2 ") ----> none
+numeric("") ----> none
+numeric("--2") ----> none
+numeric(" ") ----> none
+numeric("-") ----> none
+numeric("+") ----> none
+numeric("7r4") ----> 4
+numeric("4r7") ----> none
+numeric("4r 7") ----> none
+numeric("7r 4") ----> none
+numeric("16rff") ----> 255
+numeric("36rcat") ----> 15941
+numeric("36Rcat") ----> 15941
+numeric("36rCAT") ----> 15941
+numeric("1r1") ----> none
+numeric("2r0") ----> 0
+numeric(2) ----> 2
+numeric(2) ----> 2
+numeric(+2) ----> 2
+numeric(-2) ----> -2
+numeric() ----> none
+numeric(7r4) ----> 4
+numeric(16rff) ----> 255
+numeric(36rcat) ----> 15941
+numeric(36Rcat) ----> 15941
+numeric(36rCAT) ----> 15941
+numeric(2r0) ----> 0
+numeric(+-2) ----> -2
+numeric(++2) ----> 2
+numeric(--2) ----> 2
+36 ^ -9 ----> 0
+-36 ^ -9 ----> 0
+f := open("foo.baz","w") ----> file(foo.baz)
+write(f,"hello world") ----> "hello world"
+close(f) ----> file(foo.baz)
+
+cset sizes and images:
+  0 ''
+  4 '()<>'
+  8 '\b\t\n\v\f\r\e\d'
+ 10 &digits
+ 10 &digits
+ 10 &digits
+ 10 '!#$%&()*@^'
+ 15 ' aceghilmnoprtu'
+ 26 &lcase
+ 26 &lcase
+ 26 &lcase
+ 26 'BDFHJLNPRTVXZacegikmoqsuwy'
+ 26 &ucase
+ 26 &ucase
+ 26 &ucase
+ 26 'AEIOUbcdfghjklmnpqrstvwxyz'
+ 31 ' \'BDFGJLOQTacdeghikmnoprsuvwxyz'
+ 52 &letters
+ 52 &letters
+ 52 &letters
+ 52 '.0125ABCDEFGHJKLMNPQRTUVWXYabcdefghijkmnpqrstuvwxyz|'
+128 &ascii
+128 &ascii
+256 &cset
+256 &cset
+
+&ascii
+&cset
+2.718281828
+failed
+&input
+&lcase
+&null
+&output
+1.618033989
+3.141592654
+1
+0
+""
+&ucase