diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-01-22 05:57:09 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-01-22 05:57:09 -0800 |
| commit | 9edd914a456121aac8cc59cbcb9764038bb98bd7 (patch) | |
| tree | aadc38f032e5da164ff7b0a1ef4b62810727e3e5 | |
| parent | 7bf277f1c6657056d12ee6f1de22d7e10c860823 (diff) | |
| download | txr-9edd914a456121aac8cc59cbcb9764038bb98bd7.tar.gz txr-9edd914a456121aac8cc59cbcb9764038bb98bd7.tar.bz2 txr-9edd914a456121aac8cc59cbcb9764038bb98bd7.zip | |
Strengthen :filter test.
* tests/008/filtenv.txr (f): Don't just copy the input
to the output but transform it by upcase-str. Otherwise
the test will pass even if the :filter syntax is not
processed at all!
* tests/08/filtenv.expected: Updated.
| -rw-r--r-- | tests/008/filtenv.expected | 2 | ||||
| -rw-r--r-- | tests/008/filtenv.txr | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/008/filtenv.expected b/tests/008/filtenv.expected index 7d74be84..1ae1c2fd 100644 --- a/tests/008/filtenv.expected +++ b/tests/008/filtenv.expected @@ -1,2 +1,2 @@ a="x" -b="x" +b="X" diff --git a/tests/008/filtenv.txr b/tests/008/filtenv.txr index 062e3a7a..4874607e 100644 --- a/tests/008/filtenv.txr +++ b/tests/008/filtenv.txr @@ -1,5 +1,5 @@ @(bind a "x") @(define f (in out)) -@(bind out a) +@(bind out @(upcase-str a)) @(end) @(bind b `@{a :filter (:fun f)}`) |