summaryrefslogtreecommitdiffstats
path: root/tests/015/awk-fields.tl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/015/awk-fields.tl')
-rw-r--r--tests/015/awk-fields.tl21
1 files changed, 20 insertions, 1 deletions
diff --git a/tests/015/awk-fields.tl b/tests/015/awk-fields.tl
index 7f27e9e4..7bb2f599 100644
--- a/tests/015/awk-fields.tl
+++ b/tests/015/awk-fields.tl
@@ -6,7 +6,10 @@
(awk (:fields nil) (:begin (return-from awk))) :error
(awk (:fields - -) (:begin (return-from awk))) nil
(awk (:fields a - - b) (:begin (return-from awk))) nil
- (awk (:fields a - - a) (:begin (return-from awk))) :error
+ (awk (:fields (a foo) - - (a bar)) (:begin (return-from awk))) :error
+ (awk (:fields (a foo) - - (b bar)) (:begin (return-from awk))) nil
+ (awk (:fields (a foo) (-) - (b bar)) (:begin (return-from awk))) :error
+ (awk (:fields (a foo) (- i) - (b bar)) (:begin (return-from awk))) :error
(awk (:fields a) (:fields b) (:begin (return-from awk))) :error)
(test
@@ -16,3 +19,19 @@
(:fields h n - c)
(t (add h n c))))
("How" "now" "cow"))
+
+(test
+ (build
+ (awk
+ (:inputs '("1 x 2" "a x 1" "4 x b"))
+ (:fields (foo iz) - (bar iz))
+ (t (add (+ foo bar)))))
+ (3 1 4))
+
+(test
+ (build
+ (awk
+ (:inputs '("1"))
+ (:fields (a iz) - (c iz))
+ (t (add (+ a c) nf))))
+ (1 3))