Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Reorganize code

Browse source
This commit is contained in:
Justin Ethier 2021-07-26 19:18:31 -07:00
parent 176e674026
commit 362317108d
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
tests/base.scm
View file

@ -30,6 +30,20 @@
(test '() (make-list -2)) (test '() (make-list -2))
) )
(test-group
"I/O"
(define p (open-input-string "one\ntwo\n"))
(test #\o (read-char p))
(test "ne" (read-line p))
(test "two" (read-line p))
(test (eof-object) (read-line p))
(define p (open-input-string "one\ntwo\n"))
(test "one" (read-line p))
(test #\t (read-char p))
(test #\w (read-char p))
(test "o" (read-line p))
)
(test-group (test-group
"rationals" "rationals"
(test 3.0 (numerator (/ 6 4))) (test 3.0 (numerator (/ 6 4)))
@ -51,19 +65,5 @@
(test 'test-field (get-test e)) (test 'test-field (get-test e))
) )
(test-group
"I/O"
(define p (open-input-string "one\ntwo\n"))
(test #\o (read-char p))
(test "ne" (read-line p))
(test "two" (read-line p))
(test (eof-object) (read-line p))
(define p (open-input-string "one\ntwo\n"))
(test "one" (read-line p))
(test #\t (read-char p))
(test #\w (read-char p))
(test "o" (read-line p))
)
(test-exit) (test-exit)