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

Last change on this file since 19525 was 19525, checked in by Mario Domenech Goulart, 10 years ago

svnwiki-sxml: adding tests

File size: 566 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")
Note: See TracBrowser for help on using the repository browser.