diff options
| -rw-r--r-- | ChangeLog | 10 | ||||
| -rw-r--r-- | tests/010/block.expected | 1 | ||||
| -rw-r--r-- | tests/010/block.txr | 7 | ||||
| -rw-r--r-- | tests/010/reghash.expected | 1 | ||||
| -rw-r--r-- | tests/010/reghash.txr | 5 |
5 files changed, 24 insertions, 0 deletions
@@ -1,3 +1,13 @@ +2012-03-15 Kaz Kylheku <kaz@kylheku.com> + + * tests/010/block.expected: New file. + + * tests/010/block.txr: New file. + + * tests/010/reghash.expected: New file. + + * tests/010/reghash.txr: New file. + 2012-03-14 Kaz Kylheku <kaz@kylheku.com> * RELNOTES: Updated for upcoming 61. diff --git a/tests/010/block.expected b/tests/010/block.expected new file mode 100644 index 00000000..c23f3ef9 --- /dev/null +++ b/tests/010/block.expected @@ -0,0 +1 @@ +line="abc" diff --git a/tests/010/block.txr b/tests/010/block.txr new file mode 100644 index 00000000..532f6d28 --- /dev/null +++ b/tests/010/block.txr @@ -0,0 +1,7 @@ +@(next :list ("abc" "yyy")) +@(block foo) +@line +@(accept foo) +xxx +@(end) +yyy diff --git a/tests/010/reghash.expected b/tests/010/reghash.expected new file mode 100644 index 00000000..945bbc52 --- /dev/null +++ b/tests/010/reghash.expected @@ -0,0 +1 @@ +result="The length of plank is 100 cm" diff --git a/tests/010/reghash.txr b/tests/010/reghash.txr new file mode 100644 index 00000000..6de73a48 --- /dev/null +++ b/tests/010/reghash.txr @@ -0,0 +1,5 @@ +@(bind result @(let ((table '#H((:equal-based) + ,(list "$dim" "length") ("$object" "plank") + ("$value" "100") ("$units" "cm")))) + (regsub #/$[a-z]+/ (op table) + "The $dim of $object is $value $units"))) |