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