steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

help.html: better tests, don't just drop the result.

master
John Benediktsson 2020-05-22 16:01:25 -07:00
parent 0db8b2d012
commit 02dd86a37d
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
basis/help/html/html-tests.factor
View File

@ -3,23 +3,28 @@ math ;
{ } [ [ "xml" >link help>html drop ] with-test-directory ] unit-test { } [ [ "xml" >link help>html drop ] with-test-directory ] unit-test
{ } [ "foobar" >link topic>filename drop ] unit-test { "article-foobar.html" }
[ "foobar" >link topic>filename ] unit-test
{ } [ { "foo" "bar" } >link topic>filename drop ] unit-test { "article-foo,bar.html" }
[ { "foo" "bar" } >link topic>filename ] unit-test
{ } [ \ + topic>filename drop ] unit-test { "word-+,math.html" } [ \ + topic>filename ] unit-test
{ } [ \ + >link topic>filename drop ] unit-test { "word-+,math.html" } [ \ + >link topic>filename ] unit-test
{ } [ "doesnotexist" >vocab-link topic>filename drop ] unit-test { "vocab-doesnotexist.html" }
[ "doesnotexist" >vocab-link topic>filename ] unit-test
{ } [ "kernel" lookup-vocab topic>filename drop ] unit-test { "vocab-kernel.html" }
[ "kernel" lookup-vocab topic>filename ] unit-test
{ } [ "io" <vocab-tag> topic>filename drop ] unit-test { "tag-io.html" } [ "io" <vocab-tag> topic>filename ] unit-test
{ } [ "Steve Jobs" <vocab-author> topic>filename drop ] unit-test { "author-Steve Jobs.html" }
[ "Steve Jobs" <vocab-author> topic>filename ] unit-test
{ } [ f topic>filename drop ] unit-test { "word-f,syntax.html" } [ f topic>filename ] unit-test
{ t } [ all-vocabs-really [ vocab-spec? ] all? ] unit-test { t } [ all-vocabs-really [ vocab-spec? ] all? ] unit-test