summaryrefslogtreecommitdiffstats
path: root/tests/015
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2023-08-26 01:01:23 -0700
committerKaz Kylheku <kaz@kylheku.com>2023-08-26 01:01:23 -0700
commit43f64bd2d69cf39d09c4a3b96cd28d0966a6eda6 (patch)
treeae71160c249441438702bd3e7763ad2e1ef15dab /tests/015
parentd6e02ceea56644dea341e64a1f46f8fbe43ca6b5 (diff)
downloadtxr-43f64bd2d69cf39d09c4a3b96cd28d0966a6eda6.tar.gz
txr-43f64bd2d69cf39d09c4a3b96cd28d0966a6eda6.tar.bz2
txr-43f64bd2d69cf39d09c4a3b96cd28d0966a6eda6.zip
awk: prn returns nil.
* stdlib/awk.tl (awk-state prn): Return nil in the no-argument case instead of returning whatever put-string returns. * tests/015/awk-misc.tl: New file. * txr.1: Documented.
Diffstat (limited to 'tests/015')
-rw-r--r--tests/015/awk-misc.tl10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/015/awk-misc.tl b/tests/015/awk-misc.tl
new file mode 100644
index 00000000..af61857d
--- /dev/null
+++ b/tests/015/awk-misc.tl
@@ -0,0 +1,10 @@
+(load "../common")
+
+(let ((*stdout* *stdnull*))
+ (test
+ (build
+ (awk
+ (:inputs '(""))
+ (t (add (prn 1 2 3))
+ (add (prn)))))
+ (nil nil)))