! Copyright (C) 2009 Jose Antonio Ortega Ruiz. ! See http://factorcode.org/license.txt for BSD license. USING: 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 (fuel-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