Initial upstream version 9.4.3upstream/9.4.3

1 files changed, 31 insertions, 0 deletions

diff --git a/tests/general/left.icn b/tests/general/left.icn
new file mode 100644
index 0000000..94fa2ad
--- /dev/null
+++ b/tests/general/left.icn
@@ -0,0 +1,31 @@
+#SRC: JCON
+
+procedure main()
+
+   write(left("abc"))
+   write(left("def", ))
+   write(left("ghi", &null))
+   write(left("jkl", 2))
+   write(left("mno", 3))
+   write(left(237, 4))
+   write(left("stu", 5))
+   write(left("vwx", 6))
+
+   write(left("abc", 3, ))
+   write(left("def", , "."))
+   write(left("ghi", &null, "."))
+   write(left("jkl", 2, "."))
+   write(left("mno", 3, "."))
+   write(left(237, 4, "."))
+   write(left("stu", 5, "."))
+   write(left("vwx", 6, "."))
+
+   write(left("abc", 3, ))
+   write(left("def", , "<>"))
+   write(left("ghi", &null, "<>"))
+   write(left("jkl", 2, "<>"))
+   write(left("mno", 3, "<>"))
+   write(left(237, 4, "<>"))
+   write(left("stu", 5, "<>"))
+   write(left("vwx", 6, "<>"))
+end