diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-06-11 07:25:27 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-06-11 07:25:27 -0700 |
| commit | f6e56f2b6475a44dca8233e821dd802cde7bb8c7 (patch) | |
| tree | 923d35903a8daa8b8bddfa1913ee6675e9652712 /tests/011 | |
| parent | fe4652d2925bd7a2296a6c527c49bd047f78febc (diff) | |
| download | txr-f6e56f2b6475a44dca8233e821dd802cde7bb8c7.tar.gz txr-f6e56f2b6475a44dca8233e821dd802cde7bb8c7.tar.bz2 txr-f6e56f2b6475a44dca8233e821dd802cde7bb8c7.zip | |
tests: remove *stderr* to *stdnull* redirection.
The recent commit 225ff2fa2fdb9e5169db5e2c06dc3b0053b775bb
titled "errors: avoid premature release of deferred warnings."
obviates the need for dealing with noise when detecting
errors from test cases.
* patmatch.tl: Remove macro-time-let around several
test cases.
* tests/012/ifa.tl: Likewise.
* tests/common.tl (macro-time-let): Macro removed.
Diffstat (limited to 'tests/011')
| -rw-r--r-- | tests/011/patmatch.tl | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index 9e566502..aea891c3 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -357,12 +357,11 @@ (when-match `abc` "abc" t) t (when-match `@a` "abc" a) "abc") -(macro-time-let ((*stderr* *stdnull*)) - (mtest - (when-match `@a@b` "abc" a) :error - (when-match `@nil@b` "abc" a) :error - (when-match `@nil@nil` "abc" a) :error - (when-match `@a@nil` "abc" a) :error)) +(mtest + (when-match `@a@b` "abc" a) :error + (when-match `@nil@b` "abc" a) :error + (when-match `@nil@nil` "abc" a) :error + (when-match `@a@nil` "abc" a) :error) (mtest (when-match `@a-$` "a-$" a) "a" @@ -394,8 +393,7 @@ (when-match `@z#@{a 2}` "0#abb" a) nil (when-match `@z#@{a 4}` "0#abb" a) nil)) -(macro-time-let ((*stderr* *stdnull*)) - (test (when-match `#@{a 4 5}` "#abb" a) :error)) +(test (when-match `#@{a 4 5}` "#abb" a) :error) (let ((b "bcd")) (mtest |