OSDN Git Service
(root)
/
pf3gnuchains
/
pf3gnuchains4x.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0600d65
)
* testsuite/pmacros-1.test: Add more .splice tests.
author
devans
<devans>
Wed, 20 Jan 2010 06:22:19 +0000
(06:22 +0000)
committer
devans
<devans>
Wed, 20 Jan 2010 06:22:19 +0000
(06:22 +0000)
cgen/ChangeLog
patch
|
blob
|
history
cgen/testsuite/pmacros-1.test
patch
|
blob
|
history
diff --git
a/cgen/ChangeLog
b/cgen/ChangeLog
index
7a2409a
..
954444f
100644
(file)
--- a/
cgen/ChangeLog
+++ b/
cgen/ChangeLog
@@
-1,5
+1,7
@@
2010-01-19 Doug Evans <dje@sebabeach.org>
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>
* 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
6805744
..
14003d5
100644
(file)
--- 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))
(print-match "zz")
(print-expr (.substring xyzzy 2 4))
-(test-name ".splice")
+(test-name ".splice
1
")
(print-match "(now is the time)")
(print-expr (.splice now (.unsplice (is the time))))
(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))
(test-name ".iota")
(print-match "(0 1 2 3)")
(print-expr (.iota 4))