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

"help" test in UI should not affect browser tool

db4
Slava Pestov 2008-11-22 01:24:05 -06:00
parent ff8b9cf7e0
commit 17cb29e74e
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/help/definitions/definitions-tests.factor
View File

@ -34,7 +34,7 @@ IN: help.definitions.tests
[ ] [ "IN: help.definitions.tests USING: help.syntax ; : xxx ; HELP: xxx ;" eval ] unit-test [ ] [ "IN: help.definitions.tests USING: help.syntax ; : xxx ; HELP: xxx ;" eval ] unit-test
[ ] [ "xxx" "help.definitions.tests" lookup help ] unit-test [ ] [ "xxx" "help.definitions.tests" lookup print-topic ] unit-test
[ ] [ "xxx" "help.definitions.tests" lookup >link synopsis print ] unit-test [ ] [ "xxx" "help.definitions.tests" lookup >link synopsis print ] unit-test
] with-file-vocabs ] with-file-vocabs

10
basis/help/handbook/handbook-tests.factor
View File

@ -1,8 +1,8 @@
IN: help.handbook.tests IN: help.handbook.tests
USING: help tools.test ; USING: help tools.test ;
[ ] [ "article-index" help ] unit-test [ ] [ "article-index" print-topic ] unit-test
[ ] [ "primitive-index" help ] unit-test [ ] [ "primitive-index" print-topic ] unit-test
[ ] [ "error-index" help ] unit-test [ ] [ "error-index" print-topic ] unit-test
[ ] [ "type-index" help ] unit-test [ ] [ "type-index" print-topic ] unit-test
[ ] [ "class-index" help ] unit-test [ ] [ "class-index" print-topic ] unit-test

2
basis/help/lint/lint.factor
View File

@ -68,7 +68,7 @@ IN: help.lint
] each ; ] each ;
: check-rendering ( word element -- ) : check-rendering ( word element -- )
[ help ] with-string-writer drop ; [ print-topic ] with-string-writer drop ;
: all-word-help ( words -- seq ) : all-word-help ( words -- seq )
[ word-help ] filter ; [ word-help ] filter ;

10
basis/help/markup/markup-tests.factor
View File

@ -6,12 +6,12 @@ TUPLE: blahblah quux ;
[ "an int" ] [ [ { "int" } $instance ] with-string-writer ] unit-test [ "an int" ] [ [ { "int" } $instance ] with-string-writer ] unit-test
[ ] [ \ quux>> help ] unit-test [ ] [ \ quux>> print-topic ] unit-test
[ ] [ \ >>quux help ] unit-test [ ] [ \ >>quux print-topic ] unit-test
[ ] [ \ blahblah? help ] unit-test [ ] [ \ blahblah? print-topic ] unit-test
: fooey "fooey" throw ; : fooey "fooey" throw ;
[ ] [ \ fooey help ] unit-test [ ] [ \ fooey print-topic ] unit-test
[ ] [ gensym help ] unit-test [ ] [ gensym print-topic ] unit-test