factor/extra/fuel/help/help-tests.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