aboutsummaryrefslogtreecommitdiffstats
path: root/csc/format-test.csc
diff options
context:
space:
mode:
authorRose Hogenson <rhogenson@posteo.net>2022-08-01 19:35:19 -0700
committerRose Hogenson <rhogenson@posteo.net>2022-08-01 19:35:19 -0700
commitacc561366f3fe6ec0377103f52ef0f7e923711c9 (patch)
treed7a19cfbad78a69ebea71b27302e708c0655863d /csc/format-test.csc
parentRename the compiler in bytecode.rs. (diff)
downloadchromatopelma-acc561366f3fe6ec0377103f52ef0f7e923711c9.tar.zst
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.
Diffstat (limited to 'csc/format-test.csc')
-rw-r--r--csc/format-test.csc26
1 files changed, 0 insertions, 26 deletions
diff --git a/csc/format-test.csc b/csc/format-test.csc
deleted file mode 100644
index 1906af6..0000000
--- a/csc/format-test.csc
+++ /dev/null
@@ -1,26 +0,0 @@
-(define-library (csc format-test)
- (import (scheme base)
- (only (csc strings) str-quote)
- (only (csc testing) assert-equal test)
- (csc format))
- (begin
-
-
- (test sprintf-single-string
- (assert-equal "test-string" (sprintf "test-string")))
-
-
- (test sprintf-list
- (assert-equal "(1 2 3)" (sprintf "{}" '(1 2 3))))
-
-
- (test sprintf-complex
- (assert-equal "this (1 2 3) is 1 a bbb test" (sprintf "this {} is {} a {} test" '(1 2 3) 1 "bbb")))
-
-
- (test sprintf-escape-open
- (assert-equal "{" (sprintf "{{")))
-
-
- (test sprintf-escape-close
- (assert-equal "}" (sprintf "}}")))))