I altered it further

alxbnct · Nov 30, 2021 · aa6e895 · aa6e895
1 parent df110da
commit aa6e895
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/std/sugar-test.ss b/src/std/sugar-test.ss
@@ -1,7 +1,7 @@
 (export sugar-test)
 
 (import :std/test
-        :std/pregexp
+        :std/srfi/115
         :std/sugar)
 
 (def sugar-test
@@ -65,9 +65,9 @@
     (def l ['stack 'of 'hay])
     (check-exception (assert! (member e l))
                      (lambda (e)
-                       (pregexp-match
+                       (regexp-match?
                         (string-append
-                         "Assertion failed \"src/std/sugar-test.ss\"@66.31: \\(member e l\\)\n"
+                         "Assertion failed \"sugar-test.ss\"@66.31: \\(member e l\\)\n"
                          "  e => 'needle\n"
                          "  l => \\['stack 'of 'hay\\]\n")
                         (error-message e)))))