#!/usr/bin/perl -w use lib '.'; use lib 't'; use WMTest; webmake_t_init("navlinks_no"); use Test; BEGIN { plan tests => 9 }; # --------------------------------------------------------------------------- %patterns = ( q{
This is story 1. }, 'story1', q{
This is story 4. It's astoundingly boring, which is why it's down here. }, 'story4', q{
WebMake Sample: a news site: some ol
d news site
[score: 50, name: index_chunk, is_node: 1]
}, 'sitemap', ); # --------------------------------------------------------------------------- ok (wmrun ("-F -f data/$testname.wmk", \&patterns_run_cb)); checkfile ($testname."_map.html", \&patterns_run_cb); checkfile ($testname."_story_1.html", \&patterns_run_cb); checkfile ($testname."_story_2.html", \&patterns_run_cb); checkfile ($testname."_story_3.html", \&patterns_run_cb); checkfile ($testname."_story_4.html", \&patterns_run_cb); checkfile ($testname."_story_5.html", \&patterns_run_cb); checkfile ($testname."_story_6.html", \&patterns_run_cb); # etc. ok_all_patterns();