From 2a8d9deb51d191a1281b2939b3032264e33b101f Mon Sep 17 00:00:00 2001
From: devans <devans>
Date: Wed, 20 Jan 2010 06:22:19 +0000
Subject: [PATCH] 	* testsuite/pmacros-1.test: Add more .splice tests.

---
 cgen/ChangeLog                |  2 ++
 cgen/testsuite/pmacros-1.test | 14 +++++++++++++-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index 7a2409aa13..954444f1e9 100644
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,5 +1,7 @@
 2010-01-19  Doug Evans  <dje@sebabeach.org>
 
+	* testsuite/pmacros-1.test: Add more .splice tests.
+
 	* read.scm (/cmd-include): Fix absolute path handling.
 
 2010-01-05  Doug Evans  <dje@sebabeach.org>
diff --git a/cgen/testsuite/pmacros-1.test b/cgen/testsuite/pmacros-1.test
index 68057441d0..14003d5a5f 100644
--- a/cgen/testsuite/pmacros-1.test
+++ b/cgen/testsuite/pmacros-1.test
@@ -78,10 +78,22 @@ cat > ${cpu_file} <<EOF
 (print-match "zz")
 (print-expr (.substring xyzzy 2 4))
 
-(test-name ".splice")
+(test-name ".splice1")
 (print-match "(now is the time)")
 (print-expr (.splice now (.unsplice (is the time))))
 
+;; Arguments to .splice/.unsplice are evaluated.
+(test-name ".splice2")
+(print-match "(now is the time)")
+(define-pmacro splice2-piece now)
+(print-expr (.splice splice2-piece (.unsplice (is the time))))
+
+;; Arguments to .splice/.unsplice are evaluated.
+(test-name ".splice3")
+(print-match "(now is the time)")
+(define-pmacro splice3-piece the)
+(print-expr (.splice now (.unsplice (is splice3-piece time))))
+
 (test-name ".iota")
 (print-match "(0 1 2 3)")
 (print-expr (.iota 4))
-- 
2.11.0