46 lines
988 B
Factor
46 lines
988 B
Factor
! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: fuel.help fuel.help.private help help.topics sequences
|
|
tools.test ;
|
|
IN: fuel.help.tests
|
|
|
|
{
|
|
{
|
|
{ $prev-link word-help* "word-help* ( word -- content )" }
|
|
{ $next-link articles "articles" }
|
|
}
|
|
} [
|
|
\ lookup-article word-element third
|
|
[ first { $prev-link $next-link } member? ] filter
|
|
] unit-test
|
|
|
|
{ { $next-link POSTPONE: unit-test "unit-test" } } [
|
|
\ unit-test >link \ $next-link next/prev-link
|
|
] unit-test
|
|
|
|
{
|
|
{ describe-words f }
|
|
} [
|
|
"help.handbook" vocab-describe-words
|
|
] unit-test
|
|
|
|
{ f t } [
|
|
"io" vocab-help-article?
|
|
"help.lint" vocab-help-article?
|
|
] unit-test
|
|
|
|
{
|
|
{ "handbook" "io.servers" }
|
|
} [
|
|
"server-config" article-parents
|
|
] unit-test
|
|
|
|
{
|
|
{
|
|
{ "handbook" "Factor handbook" article }
|
|
{ "first-program" "Your first program" article }
|
|
}
|
|
} [
|
|
"first-program-test" article-crumbs
|
|
] unit-test
|