steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/help/markup/markup-tests.factor

72 lines
2.1 KiB
Factor
Raw Normal View History

Initial import
2007-09-20 18:09:08 -04:00
USING: definitions help help.markup kernel sequences tools.test
Fix $or
2009-01-22 23:30:43 -05:00
words parser namespaces assocs generic io.streams.string accessors
strings math ;
New convention for unit tests
2008-03-01 17:00:45 -05:00
IN: help.markup.tests
Initial import
2007-09-20 18:09:08 -04:00
TUPLE: blahblah quux ;
Fixing some unit test failures
2009-04-22 08:05:00 -04:00
[ "int" ] [ [ { "int" } $instance ] with-string-writer ] unit-test
Initial import
2007-09-20 18:09:08 -04:00
"help" test in UI should not affect browser tool
2008-11-22 02:24:05 -05:00
[ ] [ \ quux>> print-topic ] unit-test
[ ] [ \ >>quux print-topic ] unit-test
[ ] [ \ blahblah? print-topic ] unit-test
Initial import
2007-09-20 18:09:08 -04:00
Fixing unit tests for syntax change
2009-03-23 01:34:02 -04:00
: fooey ( -- * ) "fooey" throw ;
Initial import
2007-09-20 18:09:08 -04:00
"help" test in UI should not affect browser tool
2008-11-22 02:24:05 -05:00
[ ] [ \ fooey print-topic ] unit-test
Initial import
2007-09-20 18:09:08 -04:00
"help" test in UI should not affect browser tool
2008-11-22 02:24:05 -05:00
[ ] [ gensym print-topic ] unit-test
Fix $or
2009-01-22 23:30:43 -05:00
[ "a string" ]
[ [ { $or string } print-element ] with-string-writer ] unit-test
[ "a string or an integer" ]
[ [ { $or string integer } print-element ] with-string-writer ] unit-test
[ "a string, a fixnum, or an integer" ]
[ [ { $or string fixnum integer } print-element ] with-string-writer ] unit-test
help: make all relevant words infer
2009-02-09 02:47:31 -05:00
help.markup: new logic for preventing accidental double blank lines $subsections emits a blank line after the final link so that subsequent span text is nicely spaced away from the group of links. Prior to this bug fix, if you were to put a $heading immediately after a $subsections element, there would be 2 blank lines between them. This fixes it so that there is only a single blank line between them. I also added a bunch of unit tests for span, block, $heading and $nl layout interactions.
2009-10-01 13:12:54 -04:00
! Layout
[ "span" ]
[ [ { "span" } print-content ] with-string-writer ] unit-test
[ "span1span2" ]
[ [ { "span1" "span2" } print-content ] with-string-writer ] unit-test
[ "span1\n\nspan2" ]
[ [ { "span1" { $nl } "span2" } print-content ] with-string-writer ] unit-test
[ "\nspan" ]
[ [ { { $nl } "span" } print-content ] with-string-writer ] unit-test
[ "2 2 +\nspan" ]
[ [ { { $code "2 2 +" } "span" } print-content ] with-string-writer ] unit-test
[ "2 2 +" ]
[ [ { { $code "2 2 +" } } print-content ] with-string-writer ] unit-test
[ "span\n2 2 +" ]
[ [ { "span" { $code "2 2 +" } } print-content ] with-string-writer ] unit-test
[ "\n2 2 +" ]
[ [ { { $nl } { $code "2 2 +" } } print-content ] with-string-writer ] unit-test
[ "span\n\n2 2 +" ]
[ [ { "span" { $nl } { $code "2 2 +" } } print-content ] with-string-writer ] unit-test
[ "Heading" ]
[ [ { { $heading "Heading" } } print-content ] with-string-writer ] unit-test
[ "Heading1\n\nHeading2" ]
[ [ { { $heading "Heading1" } { $heading "Heading2" } } print-content ] with-string-writer ] unit-test
[ "span\n\nHeading" ]
[ [ { "span" { $heading "Heading" } } print-content ] with-string-writer ] unit-test
[ "\nHeading" ]
[ [ { { $nl } { $heading "Heading" } } print-content ] with-string-writer ] unit-test
[ "span\n\nHeading" ]
[ [ { "span" { $nl } { $heading "Heading" } } print-content ] with-string-writer ] unit-test