diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2012-03-15 20:56:07 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2012-03-15 20:56:07 -0700 |
| commit | d4dccc67dc91aa0ed60820cbb006658f99d647bf (patch) | |
| tree | 0115118a94e8d856dbd948062f792b4ff19a5a39 /tests/010 | |
| parent | 685a76d56517070cdc9c34d24ec43e586946b4ca (diff) | |
| download | txr-d4dccc67dc91aa0ed60820cbb006658f99d647bf.tar.gz txr-d4dccc67dc91aa0ed60820cbb006658f99d647bf.tar.bz2 txr-d4dccc67dc91aa0ed60820cbb006658f99d647bf.zip | |
* tests/010/block.expected: New file.
* tests/010/block.txr: New file.
* tests/010/reghash.expected: New file.
* tests/010/reghash.txr: New file.
Diffstat (limited to 'tests/010')
| -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 |
4 files changed, 14 insertions, 0 deletions
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"))) |