Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-05 12:16:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding scribble to lib tests

Browse source
This commit is contained in:
Alex Shinn 2011-04-26 22:52:56 +09:00
parent 4bbbe6119e
commit e633c3dfbd
2 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
tests/lib-tests.scm
View file

@ -9,6 +9,7 @@
(load "tests/sort-tests.scm") (load "tests/sort-tests.scm")
(load "tests/loop-tests.scm") (load "tests/loop-tests.scm")
(load "tests/match-tests.scm") (load "tests/match-tests.scm")
(load "tests/scribble-tests.scm")
(load "tests/record-tests.scm") (load "tests/record-tests.scm")
(load "tests/thread-tests.scm") (load "tests/thread-tests.scm")
;;(load "tests/weak-tests.scm") ;;(load "tests/weak-tests.scm")

12
tests/scribble-test.scm → tests/scribble-tests.scm
View file

@ -17,7 +17,7 @@
(test-scribble '((foo width: 2 "blah blah")) "@foo[width: 2]{blah blah}") (test-scribble '((foo width: 2 "blah blah")) "@foo[width: 2]{blah blah}")
(test-scribble '((foo "blah blah" "\n" " yada yada")) "@foo{blah blah (test-scribble '((foo "blah blah" "\n" " yada yada")) "@foo{blah blah
yada yada}") yada yada}")
(test-scribble '((foo " blah blah" "\n" " yada yada")) "@foo{ (test-scribble '((foo " blah blah" "\n" " yada yada" "\n")) "@foo{
blah blah blah blah
yada yada yada yada
}") }")
@ -136,18 +136,18 @@
(test-scribble '((foo " bar" "\n" " baz ")) "@foo{ bar (test-scribble '((foo " bar" "\n" " baz ")) "@foo{ bar
baz }") baz }")
(test-scribble '((foo "bar")) "@foo{bar (test-scribble '((foo "bar" "\n")) "@foo{bar
}") }")
(test-scribble '((foo " bar") "\n") "@foo{ (test-scribble '((foo " bar" "\n") "\n") "@foo{
bar bar
} }
") ")
(test-scribble '((foo " bar" "\n")) "@foo{ (test-scribble '((foo " bar" "\n" "\n")) "@foo{
bar bar
}") }")
(test-scribble '((foo " bar" "\n" "\n" " baz")) "@foo{ (test-scribble '((foo " bar" "\n" "\n" " baz" "\n")) "@foo{
bar bar
baz baz
@ -160,7 +160,7 @@
(test-scribble '((foo " bar" "\n" " baz ")) "@foo{ bar (test-scribble '((foo " bar" "\n" " baz ")) "@foo{ bar
baz }") baz }")
(test-scribble '((foo " bar" "\n" " baz" "\n" " blah")) "@foo{ (test-scribble '((foo " bar" "\n" " baz" "\n" " blah" "\n")) "@foo{
bar bar
baz baz
blah blah