[range HTML test harness + basic test
ganesh@earth.li**20040415090324] {
hunk ./test/harness.pl 47
+use PhotoPub::Range qw(&rangehtml);
hunk ./test/harness.pl 155
+    } elsif($command eq 'rangehtml') {
+      &testhtml(name => 'range', sub => \&rangehtml,
+		args => $data->{'args'}, data => $data->{'script'});
hunk ./test/regression 4
-::call test12 test13
+::call test12 test13 test14
addfile ./test/test14
hunk ./test/test14 1
-
+# Range HTML
+::run test ! -d scratch
+::run mkdir scratch
+
+::sleep 1
+:{write scratch/photopubrc
+<imagedirs>
+   dir scratch
+   suffix .jpg
+</imagedirs>
+<infofile>
+  dir scratch
+  filename info
+  makealbum all
+</infofile>
+<rangetemplates>
+  down scratch/downwards.thtml
+</rangetemplates>
+:}
+
+:{write scratch/info
+describe 1 bar
+:}
+
+:{write scratch/downwards.thtml
+<repeat picture>
+<a picture thumb=40x30><ifdescr>$description</ifdescr></a>
+</repeat>
+:}
+
+::run touch scratch/1.jpg
+
+:{init
+:{rangehtml range=/1-5 style=/down
+<a href="display.pl?photo=/1&amp;thumb=40x30">bar</a>
+:}
+:}
+
+::run rm scratch/*
+::run rmdir scratch
}