From f6e56f2b6475a44dca8233e821dd802cde7bb8c7 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 11 Jun 2021 07:25:27 -0700
Subject: 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.
---
 tests/011/patmatch.tl | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

(limited to 'tests/011')

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
-- 
cgit v1.2.3