From 57adf83c524524ec8aaade817ce498fac1a4f519 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 22 Jan 2017 05:57:09 -0800 Subject: 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. --- tests/008/filtenv.expected | 2 +- tests/008/filtenv.txr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/008') 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)}`) -- cgit v1.2.3