From acc561366f3fe6ec0377103f52ef0f7e923711c9 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
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/strings-test.csc | 103 ---------------------------------------------------
 1 file changed, 103 deletions(-)
 delete mode 100644 csc/strings-test.csc

(limited to 'csc/strings-test.csc')

diff --git a/csc/strings-test.csc b/csc/strings-test.csc
deleted file mode 100644
index 1f981ad..0000000
--- a/csc/strings-test.csc
+++ /dev/null
@@ -1,103 +0,0 @@
-(define-library (csc strings-test)
-  (import (scheme base)
-          (only (csc testing)
-            assert
-            assert-equal
-            test)
-          (csc strings))
-  (begin
-
-
-    (test has-prefix?-good
-      (assert-equal #t (has-prefix? "asdfjkl;" "asdf")))
-
-
-    (test has-prefix?-bad
-      (assert-equal #f (has-prefix? "asdbjkl;" "asdf")))
-
-
-    (test has-prefix?-too-long
-      (assert-equal #f (has-prefix? "as" "asdf")))
-
-
-    (test str-quote-simple
-      (assert-equal "\"hello\"" (str-quote "hello")))
-
-
-    (test str-quote-escape
-      (assert-equal "\"this string \\\" has a quote\"" (str-quote "this string \" has a quote")))
-
-
-    (test index-ok
-      (assert-equal 8 (index "dabsadfdabcdfdfd" "abc")))
-
-
-    (test index-one-letter
-      (assert-equal 8 (index "sdfdfdfsasdfe" "a")))
-
-
-    (test index-notfound
-      (assert-equal
-        -1
-        (index "def" "a")))
-
-
-    (test contains
-      (assert-equal
-        #t
-        (contains? "abc" "b")))
-
-
-    (test doesnt-contain
-      (assert-equal
-        #f
-        (contains? "abc" "d")))
-
-
-    (test contains-empty
-      (assert-equal
-        #t
-        (contains? "" "")))
-
-
-    (test empty-contains
-      (assert-equal
-        #f
-        (contains? "" "a")))
-
-
-    (test join-,
-      (assert-equal "a,b,c" (join "," '("a" "b" "c"))))
-
-
-    (test join-none
-      (assert-equal "" (join "," '())))
-
-
-    (test join-singleton
-      (assert-equal "x" (join "," '("x"))))
-
-
-    (test join-empty
-      (assert-equal "abc" (join "" '("a" "b" "c"))))
-
-
-    (test split-empty
-      (assert-equal '("") (split "" " ")))
-
-    (test split
-      (assert-equal '("a" "b") (split "a b" " ")))
-
-
-    (test split-trailing-empty
-      (assert-equal '("a" "") (split "a " " ")))
-
-
-    (test split-n
-      (assert-equal '("a" "b" "c d e") (split "a b c d e" " " 3)))
-
-
-    (test split-none
-      (assert-equal
-        '()
-        (split "a b c d e" " " 0)))))
-- 
cgit v1.3.1