[embed HTML test harness + basic test
ganesh@earth.li**20040415092934] {
hunk ./test/harness.pl 48
+use PhotoPub::Embed qw(&embedhtml);
hunk ./test/harness.pl 161
+    } elsif($command eq 'embedhtml') {
+      &testhtml(name => 'embed', sub => \&embedhtml,
+		args => $data->{'args'}, data => $data->{'script'});
hunk ./test/regression 4
-::call test12 test13 test14
+::call test12 test13 test14 test15
addfile ./test/test15
hunk ./test/test15 1
-
+# Embed 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>
+<embedtemplates>
+  standard scratch/embed.thtml
+</embedtemplates>
+:}
+
+:{write scratch/info
+group 1-5 foo
+describe 1 bar
+:}
+
+:{write scratch/embed.thtml
+<userange lowest>
+<title>$rangetitle - $description</title>
+<img picture thumb=20x15 />
+:}
+
+::makeimage 100x75 scratch/1.jpg
+
+:{init
+:{embedhtml photo=/1 style=/standard album=/all
+<title>foo - bar</title>
+<img src="display.pl?photo=/1&amp;thumb=20x15" alt="Photo /1" width="20" height="15" />
+:}
+:}
+
+::run rm scratch/*
+::run rmdir scratch
}