From acc561366f3fe6ec0377103f52ef0f7e923711c9 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Mon, 1 Aug 2022 19:35:19 -0700 Subject: Modify the project structure. Now the lib directory contains what will eventually end up on the user's /usr/lib/csc. When I write make install, it will copy all of the .csc files from lib into the destination lib directory. This means I can start working on the standard library in lib/scheme. --- csc/compare-test.csc | 98 ---------------------------------------------------- 1 file changed, 98 deletions(-) delete mode 100644 csc/compare-test.csc (limited to 'csc/compare-test.csc') diff --git a/csc/compare-test.csc b/csc/compare-test.csc deleted file mode 100644 index b710115..0000000 --- a/csc/compare-test.csc +++ /dev/null @@ -1,98 +0,0 @@ -(define-library (csc compare-test) - (import (scheme base) - (only (csc match) - define-match-record-type) - (only (csc testing) - assert - test) - (csc compare)) - (begin - - - (test diff-list - (assert - (string=? - " ( - 1 - - 2 - 3 - + 3.5 - 4 - ) -" - (diff '(1 2 3 4) '(1 3 3.5 4))))) - - - (define-match-record-type - (make-test-type a b) - test-type? - %test-type - (a test-type-a) - (b test-type-b)) - - - (test diff-record - (assert - (string=? - " ( - (!type . - - ) - (a . - 5 - ) - (b . - - 5 - + 6 - ) - ) -" - (diff (make-test-type 5 5) (make-test-type 5 6) (cons test-type? %test-type))))) - - - (test diff-multiline-string - (assert - (string=? - " ( - (!type . - string - ) - (value . - ( - line-one - - line-two - line-three - ) - ) - ) -" - (diff "line-one\nline-two\nline-three" "line-one\nline-three")))) - - - (test diff-vector - (assert - (string=? - " ( - (!type . - vector - ) - (value . - ( - 1 - - 2 - 3 - ) - ) - ) -" - (diff #(1 2 3) #(1 3))))) - - - (test diff-symbol-list - (assert - (string=? - "- symbol -+ ( -+ ) -" - (diff 'symbol '())))))) -- cgit v1.3.1