5 lines
1.2 KiB
Plaintext
5 lines
1.2 KiB
Plaintext
(DO-TEST "parse-NAMESTRING INDEX WITHOUT A START KEYWORD" (multiple-value-bind (a b)(parse-namestring "{DSK}")(eq b 5)))
|
||
|
||
(DO-TEST "parse-NAMESTRING INDEX WITH A START KEYWORD" (multiple-value-bind (a b)(parse-namestring "foo{DSK}" nil nil :start 3)(eq b 8)))
|
||
|
||
(do-test "namestring sensitivity to *print-base*"
|
||
(let ((*print-base* 2)) (equal (namestring "foo.;8") "foo.;8")))
|
||
|
||
|
||
(do-test "namestring radix bug"
|
||
(let ((*print-base* 2))
|
||
(eq (length (namestring "foo.bar;8")) 9)))
|
||
|
||
|
||
(do-test "defaultprintertype"
|
||
(equal il:defaultprintertype 'IL:INTERPRESS))
|
||
|
||
(do-test "WRITE-to-string :CAPITALIZE"
|
||
(equal (write-to-string 'foo :escape nil :case :capitalize) "Foo"))
|
||
|
||
(do-test "Provide stores module names as strings"
|
||
(provide 'hello)
|
||
(equal (car *modules*) "HELLO"))
|
||
|
||
(do-test "peek-char " (setq a (peek-char nil t))
|
||
(eq a '#\Newline))
|
||
|
||
(do-test "il:peekc" (setq a (il:peekc nil t))
|
||
(eq a 'il:\
|
||
))
|
||
|
||
|
||
(DO-TEST "*print-level*" (eq *print-level* nil))
|
||
|
||
(do-test "enough-namestring bug"
|
||
(cl:enough-namestring "{eris}<lispcore>sources>foo.bar;7"))
|
||
? 1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
|
||
|
||
TIMESROMAN
|
||
? 1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
|
||
‚ 4 ^ zº |