1 files changed, 41 insertions, 0 deletions
diff --git a/tests/015/awk-basic.tl b/tests/015/awk-basic.tl
new file mode 100644
index 00000000..a411d495
--- /dev/null
+++ b/tests/015/awk-basic.tl
@@ -0,0 +1,41 @@
+(load "../common")
+
+(defvarl *d0*
+  '("one two three"
+    " four five six "
+    "   seven  eight \t   nine  ten\t "))
+
+(motest
+  (awk (:inputs *d0*)
+       (t (prn nf)))
+  "3\n3\n4\n"
+  (awk (:inputs *d0*)
+       (:set ofs ",")
+       (t (set f f)
+          (prn)))
+  "one,two,three\nfour,five,six\nseven,eight,nine,ten\n"
+  (awk (:inputs *d0*)
+       (:set ofs "," fs #/[\t ]+/)
+       (t (set f f)
+          (prn)))
+  "one,two,three\n,four,five,six,\n,seven,eight,nine,ten,\n"
+  (awk (:inputs *d0*)
+       (:set ofs "," fs #/[\t ]+/ kfs t)
+       (t (set f f)
+          (prn)))
+  "one, ,two, ,three\n, ,four, ,five, ,six, ,\n,   ,seven,  ,eight, \t   ,nine,  ,ten,\t ,\n"
+  (awk (:inputs *d0*)
+       (:set ofs "," fs #/[\t ]+/ kfs t fw '(3 2 2))
+       (t (set f f)
+          (prn)))
+  "one, t,wo, three\n fo,ur, f,ive six \n   ,se,ve,n  eight \t   nine  ten\t \n"
+  (awk (:inputs *d0*)
+       (:set ofs "," fs #/[\t ]+/ ft #/./)
+       (t (set f f)
+          (prn)))
+  :error
+  (awk (:inputs *d0*)
+       (:set ofs "," ft #/[a-z]+/)
+       (t (set f f)
+          (prn)))
+  "one,two,three\nfour,five,six\nseven,eight,nine,ten\n")