From 77583a881b03ce38c8065c40641489fe88b61eb2 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Sun, 9 Jan 2022 22:55:59 -0800
Subject: Write the linker.

---
 testing.csc | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'testing.csc')

diff --git a/testing.csc b/testing.csc
index aebc574..a0180e6 100644
--- a/testing.csc
+++ b/testing.csc
@@ -2,6 +2,7 @@
   (export
     assert
     assert-equal
+    assert-raises
     test
     test-main)
   (import (scheme base)
@@ -53,7 +54,7 @@
       (syntax-rules ()
         ((assert expr)
          (unless expr
-           (fatalf "Assertion {} failed." 'expr)))))
+           (fatalf "(assert {}) failed." 'expr)))))
 
 
     (define-syntax assert-equal
@@ -65,6 +66,15 @@
              (fatalf "Fatal: {} is not equal to {}.\nleft is {}\nright is {}" 'left 'right x y))))))
 
 
+    (define-syntax assert-raises
+      (syntax-rules ()
+        ((assert-raises predicate body body* ...)
+         (assert
+           (guard (e ((predicate e) #t))
+             body body* ...
+             #f)))))
+
+
     (define (test-main)
       (if *all-tests-succeeded*
           (printf "PASS\n")
-- 
cgit v1.3.1