[improvements to embed tests
ganesh@earth.li**20040426221601] {
hunk ./test/test15 33
+::makeimage 100x75 scratch/2.jpg
hunk ./test/test15 40
+
+:{embedhtml photo=/1
+:!userinput style not given and no default defined
hunk ./test/test15 44
+:}
hunk ./test/test15 46
+::sleep 1
+:{write scratch/embed.thtml
+<a picture>
+$photo
+<ifdescr>$description</ifdescr>
+<ifnodescr>No description</ifnodescr>
+<editinfo>
+:}
+
+:{init
+:{embedhtml photo=/1 style=/standard
+<a href="display.pl?photo=/1">
+/1
+bar
+<p><input type="text" name="desc/1" size=40 value="bar"><select name="effect/1"> <option value="none" selected>none</option> <option value="rotate90">rotate90</option> <option value="rotate180">rotate180</option> <option value="rotate270">rotate270</option></select>
+:}
+:{embedhtml photo=/2 style=/standard
+<a href="display.pl?photo=/2">
+/2
+No description
+<p><input type="text" name="desc/2" size=40 value=""><select name="effect/2"> <option value="none" selected>none</option> <option value="rotate90">rotate90</option> <option value="rotate180">rotate180</option> <option value="rotate270">rotate270</option></select>
+:}
+:}
+
}