summaryrefslogtreecommitdiffstats
path: root/regression-gp.pl
diff options
context:
space:
mode:
authorSolomon Peachy <pizza@shaftnet.org>2018-09-26 14:32:35 -0400
committerSolomon Peachy <pizza@shaftnet.org>2018-09-26 14:43:57 -0400
commitb0d3f66b8ecba15481a190ec3c6e7e4dff65446f (patch)
tree06df3f2829af8ce08f500970c4258fa1bd0677a6 /regression-gp.pl
parent1d5b82b5914be3df396a53ad36725cc08829cb89 (diff)
downloadselphy_print-b0d3f66b8ecba15481a190ec3c6e7e4dff65446f.tar.gz
selphy_print-b0d3f66b8ecba15481a190ec3c6e7e4dff65446f.tar.bz2
selphy_print-b0d3f66b8ecba15481a190ec3c6e7e4dff65446f.zip
regression: mitu p93 & p95.
And Iterate across multiple copies
Diffstat (limited to 'regression-gp.pl')
-rwxr-xr-xregression-gp.pl9
1 files changed, 6 insertions, 3 deletions
diff --git a/regression-gp.pl b/regression-gp.pl
index ae383ca..9113fe6 100755
--- a/regression-gp.pl
+++ b/regression-gp.pl
@@ -7,7 +7,7 @@ my $retval = 0;
my $id = 123;
my $user = "tester";
my $title = "image_test";
-my $copies = 1;
+my $max_copies = 3;
my $input_image = "testjobs/s3s-59.png";
$ENV{"STP_SUPPRESS_VERBOSE_MESSAGES"} = 1;
@@ -57,10 +57,12 @@ while (<STDIN>) {
run ["/usr/sbin/cups-genppd.5.3", "-p", "/tmp", "-Z", $gp_name] or die("FAIL genppd $?: $row[0] $row[1] $row[2] $row[3] $row[4] $row[5]\n");
# Generate raster from $image
- @args = ("/usr/lib/cups/filter/imagetoraster", $id, $user, $title, $copies, $options, $input_image);
+ @args = ("/usr/lib/cups/filter/imagetoraster", $id, $user, $title, 1, $options, $input_image);
print join(":", @args) . "\n";
- run \@args, ">", "/tmp/${gp_name}.raster" or die ("FAIL: imagetoraster $?: $row[0] $row[1] $row[2] $row[3] $row[4] $row[5]\n");
+ run \@args, ">", "/tmp/${gp_name}.raster" or die ("FAIL: imagetoraster $
+?: $row[0] $row[1] $row[2] $row[3] $row[4] $row[5]\n");
+ for (my $copies = 0 ; $copies < $max_copies ; $copies++) {
# Call raster2gutenprint
@args = ("valgrind", "/usr/lib/cups/filter/rastertogutenprint.5.3", $id, $user, $title, $copies, $options);
print join(":", @args) . "\n";
@@ -70,6 +72,7 @@ while (<STDIN>) {
@args = ("./dyesub_backend", $id, $user, $title, $copies, $options);
print join(":", @args) . "\n";
run \@args, "<", "/tmp/${gp_name}.raw" or die("FAIL: backend $?: $row[0] $row[1] $row[2] $row[3] $row[4] $row[5]\n");
+ }
print "***** PASS\n";
}