#!/usr/bin/perl -w

use lib '.'; use lib 't';
use WMTest; webmake_t_init("media_map");
use Test; BEGIN { plan tests => 5 };

# ---------------------------------------------------------------------------

%patterns = (

q{ <h1>WebMake Sitemap Demo</h1><hr /> <a
href="../log/media_map.html">Index</a> | <a
href="../log/media_map_map.html">Site Map</a><hr /> <ul> <li> <a
href="../log/media_map_story_3.html">Hot! story 3, etc etc.</a><br /> <p> Story
3, the highest-scored story.  </p> </li> <li> <a
href="../log/media_map_story_1.html">Story 1, blah blah</a><br /> <p> Story 1,
just another story.  </p> </li> <li> <a
href="../log/media_map_story_2.html">Story 2, blah blah</a><br /> <p> Story 2,
just another story.  }, 'map1',

q{ Story 2, just another story.  </p> </li> <li> <a
href="../log/media_map_story_6.html">Story 6, blah blah</a><br /> <p> Story 6,
just another story.  </p> </li> <li> <a
href="../log/media_map_story_5.html">Story 5, zzz blah blah</a><br /> <p> Story
5, nothing much here.  </p> </li> <li> <a
href="../log/media_map_story_4.html">Story 4, zzzzzzz</a><br /> <p> Story 4,
incredibly boring.  </p> </li> </ul> }, 'map2'

);

# ---------------------------------------------------------------------------

ok (wmrun ("-F -f data/$testname.wmk", \&patterns_run_cb));
checkfile ($testname."_map.html", \&patterns_run_cb);
# etc.
ok_all_patterns();
