From 0b17e637d3791d1ca94558429f9deba3a5876166 Mon Sep 17 00:00:00 2001 From: Robby Zambito Date: Tue, 14 Feb 2023 20:33:23 -0500 Subject: Use assoc symbols for keys instead of strings for objects. Update the test suite to be more compatible with SRFI 64. --- test/gerbil.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'test/gerbil.scm') diff --git a/test/gerbil.scm b/test/gerbil.scm index ca730d0..bfd0ddb 100644 --- a/test/gerbil.scm +++ b/test/gerbil.scm @@ -3,19 +3,20 @@ (import (zambyte meta json)) -(define-syntax test +(define-syntax test-equal (syntax-rules () ((_ name expected actual) - (test-case name (check-output actual expected))))) + (test-case name (check-equal? actual expected))))) (define-syntax test-assert (syntax-rules () ((_ name actual) (test-case name (check-predicate actual values))))) -(define-syntax test-not - (syntax-rules () - ((_ name actual) - (test-case name (check-predicate actual not))))) +(define suite + (test-suite + "gerbil" + (include "run.scm"))) + +(run-test-suite! suite) -(include "run.scm") -- cgit