mbutterick
/
pollen
3
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

make some html equality tests more lenient

Browse Source
pull/131/head
Matthew Butterick 8 years ago
parent a633eac8df
commit 77688688f2
3 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File

2
pollen/private/ts.rktd
Unescape Escape View File

@ -1 +1 @@
1475981471 1475983782

14
pollen/test/test-langs.rkt
Unescape Escape View File

@ -4,7 +4,9 @@
racket/system racket/system
racket/runtime-path racket/runtime-path
compiler/find-exe compiler/find-exe
pollen/render) pollen/render
pollen/unstable/convert
txexpr)
(module test-default pollen (module test-default pollen
"hello world") "hello world")
@ -61,8 +63,8 @@
(check-equal? (run test.no-ext) "test\n====") (check-equal? (run test.no-ext) "test\n====")
(check-equal? (run test.pm) "'(root \"test\" \"\\n\" \"====\")") (check-equal? (run test.pm) "'(root \"test\" \"\\n\" \"====\")")
(check-equal? (run test.pp) "test\n====") (check-equal? (run test.pp) "test\n====")
(check-equal? (render test.html.pm) "<html><head><meta charset=\"UTF-8\"/></head><body><root>test\n====</root></body></html>") (check-txexprs-equal? (html->xexpr (render test.html.pm)) (html->xexpr "<html><head><meta charset=\"UTF-8\"/></head><body><root>test\n====</root></body></html>"))
(check-equal? (render test.html.pmd) "<html><head><meta charset=\"UTF-8\"/></head><body><root><h1 id=\"test\">test</h1></root></body></html>") (check-txexprs-equal? (html->xexpr (render test.html.pmd)) (html->xexpr "<html><head><meta charset=\"UTF-8\"/></head><body><root><h1 id=\"test\">test</h1></root></body></html>"))
(check-equal? (render test.html.pp) "test\n====") (check-txexprs-equal? (render test.html.pp) "test\n====")
(check-equal? (render test.pm) "<html><head><meta charset=\"UTF-8\"/></head><body><root>test\n====</root></body></html>") (check-txexprs-equal? (html->xexpr (render test.pm)) (html->xexpr "<html><head><meta charset=\"UTF-8\"/></head><body><root>test\n====</root></body></html>"))
(check-equal? (render test.pp) "test\n====")) (check-txexprs-equal? (render test.pp) "test\n===="))

2
pollen/unstable/convert.rkt
Unescape Escape View File

@ -55,7 +55,7 @@ You are kitty}")
(define (conjoin . fs) (define (conjoin . fs)
(λ(x) (andmap (λ(f) (f x)) fs))) (λ(x) (andmap (λ(f) (f x)) fs)))
(define/contract (html->xexpr html-string) (define/contract+provide (html->xexpr html-string)
(string? . -> . xexpr?) (string? . -> . xexpr?)
(use-html-spec #f) (use-html-spec #f)
(define xexpr-results (define xexpr-results

Write Preview
Loading…
Cancel
Save