source: project/release/4/svnwiki-sxml/trunk/tests/run.scm @ 22040

Last change on this file since 22040 was 22040, checked in by Jim Ursetto, 10 years ago

svnwiki-sxml: test-exit

File size: 579 bytes
Line 
1(use svnwiki-sxml test)
2
3(define (->sxml text)
4  (call-with-input-string text svnwiki->sxml))
5
6(test-begin "Font styles")
7(test '((p (b "don't"))) (->sxml "'''don't'''"))
8(test '((p (i "don't"))) (->sxml "''don't''"))
9(test-end "Font styles")
10
11(test-begin "Links")
12(test '((p (int-link "foo"))) (->sxml "[[foo]]"))
13(test '((p (int-link "/foo"))) (->sxml "[[/foo]]"))
14(test '((p (link "http://foo"))) (->sxml "[[http://foo]]"))
15(test '((p (link "https://foo"))) (->sxml "[[https://foo]]"))
16(test '((p (link "ftp://foo"))) (->sxml "[[ftp://foo]]"))
17(test-end "Links")
18
19(test-exit)
Note: See TracBrowser for help on using the repository browser.