blob: 7f27e9e42430d7860999d0d509442c8328e5960a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(load "../common")
(mtest
(awk (:fields) (:begin (return-from awk))) nil
(awk (:fields t) (:begin (return-from awk))) :error
(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) (:fields b) (:begin (return-from awk))) :error)
(test
(build
(awk
(:inputs '("How now brown cow"))
(:fields h n - c)
(t (add h n c))))
("How" "now" "cow"))
|
