extra/fuel/help/help-tests.factor

   1 ! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: fuel.help fuel.help.private help help.topics sequences
   4 tools.test ;
   5 IN: fuel.help.tests
   6
   7 {
   8     {
   9         { $prev-link word-help* "word-help* ( word -- content )" }
  10         { $next-link articles "articles" }
  11     }
  12 } [
  13     \ lookup-article word-element third
  14     [ first { $prev-link $next-link } member? ] filter
  15 ] unit-test
  16
  17 { { $next-link POSTPONE: unit-test "unit-test" } } [
  18     \ unit-test >link \ $next-link next/prev-link
  19 ] unit-test
  20
  21 {
  22     { describe-words f }
  23 } [
  24     "help.handbook" vocab-describe-words
  25 ] unit-test
  26
  27 { f t } [
  28     "io" vocab-help-article?
  29     "help.lint" vocab-help-article?
  30 ] unit-test
  31
  32 {
  33     { "handbook" "io.servers" }
  34 } [
  35     "server-config" article-parents
  36 ] unit-test
  37
  38 {
  39     {
  40         { "handbook" "Factor handbook" article }
  41         { "first-program" "Your first program" article }
  42     }
  43 } [
  44     "first-program-test" article-crumbs
  45 ] unit-test