[support for generating proper images in testing harness
ganesh@earth.li**20040415092036] {
hunk ./test/harness.pl 23
+use Image::Magick;
hunk ./test/harness.pl 25
-
hunk ./test/harness.pl 128
+ } elsif($command eq 'makeimage') {
+ &makeimage(args=>$data->{'args'},data=>$data->{'script'});
hunk ./test/harness.pl 356
+sub makeimage {
+ my (%options)=@_;
+ my ($size,$filename)=split(/\s+/,$options{'args'});
+ my $image=Image::Magick->new();
+ $image->Set(size=>$size);
+ $image->ReadImage('xc:black');
+ $image->Write("jpeg:$filename");
+}
+
hunk ./test/test14 18
+ across scratch/across.thtml
hunk ./test/test14 32
-::run touch scratch/1.jpg
+::makeimage 100x75 scratch/1.jpg
hunk ./test/test14 40
+:{write scratch/across.thtml
+
+
+![]()
+
+
+:}
+
+:{init
+:{rangehtml range=/1-5 style=/across
+
+
+
+:}
+:}
+
}