From d4dccc67dc91aa0ed60820cbb006658f99d647bf Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 15 Mar 2012 20:56:07 -0700 Subject: * tests/010/block.expected: New file. * tests/010/block.txr: New file. * tests/010/reghash.expected: New file. * tests/010/reghash.txr: New file. --- tests/010/block.expected | 1 + tests/010/block.txr | 7 +++++++ tests/010/reghash.expected | 1 + tests/010/reghash.txr | 5 +++++ 4 files changed, 14 insertions(+) create mode 100644 tests/010/block.expected create mode 100644 tests/010/block.txr create mode 100644 tests/010/reghash.expected create mode 100644 tests/010/reghash.txr (limited to 'tests/010') 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"))) -- cgit v1.2.3