summaryrefslogtreecommitdiff
path: root/tests/stringtest.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'tests/stringtest.lisp')
-rw-r--r--tests/stringtest.lisp9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/stringtest.lisp b/tests/stringtest.lisp
new file mode 100644
index 0000000..aa4898c
--- /dev/null
+++ b/tests/stringtest.lisp
@@ -0,0 +1,9 @@
+#include "stdlib.lisp"
+
+(define str (read-file "tests/stringtest.lisp"))
+
+(for 0 (length str) (lambda (i)
+ (if (= (mod i 60) 0)
+ (sys-put-string stdout (concat "<" (substr str i 10) ">"))
+ '())))
+(print "")