summaryrefslogtreecommitdiffstats
path: root/regression-gp.pl
diff options
context:
space:
mode:
authorSolomon Peachy <pizza@shaftnet.org>2018-09-26 20:46:12 -0400
committerSolomon Peachy <pizza@shaftnet.org>2018-09-26 20:46:12 -0400
commit2d061350b20156a8b989886bf9c4b5d5d22bb827 (patch)
treee523d195a6ec700e6f95a4b2bdf5c5e7c4a18fad /regression-gp.pl
parentb0d3f66b8ecba15481a190ec3c6e7e4dff65446f (diff)
downloadselphy_print-2d061350b20156a8b989886bf9c4b5d5d22bb827.tar.gz
selphy_print-2d061350b20156a8b989886bf9c4b5d5d22bb827.tar.bz2
selphy_print-2d061350b20156a8b989886bf9c4b5d5d22bb827.zip
regression: Use the gp name for the backend stuff, and fix bugs.
Diffstat (limited to 'regression-gp.pl')
-rwxr-xr-xregression-gp.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/regression-gp.pl b/regression-gp.pl
index 9113fe6..0bc8b09 100755
--- a/regression-gp.pl
+++ b/regression-gp.pl
@@ -26,7 +26,7 @@ while (<STDIN>) {
my @row = split(/,/);
my $gp_name = $row[0];
- $ENV{"BACKEND"} = $row[1];
+ $ENV{"BACKEND"} = $row[0];
$ENV{"EXTRA_VID"} = $row[2];
$ENV{"EXTRA_PID"} = $row[3];
@@ -52,7 +52,7 @@ while (<STDIN>) {
my $ppd_fname = "/tmp/stp-$gp_name.5.3.ppd";
$ENV{"PPD"} = $ppd_fname;
- $ENV{"DEVICE_URI"} = "gutenprint53+usb://$row[1]/12345678";
+ $ENV{"DEVICE_URI"} = "gutenprint53+usb://$row[0]/12345678";
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");
@@ -62,14 +62,14 @@ while (<STDIN>) {
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++) {
+ for (my $copies = 1 ; $copies <= $max_copies ; $copies++) {
# Call raster2gutenprint
@args = ("valgrind", "/usr/lib/cups/filter/rastertogutenprint.5.3", $id, $user, $title, $copies, $options);
print join(":", @args) . "\n";
run \@args, "<", "/tmp/${gp_name}.raster", ">", "/tmp/${gp_name}.raw" or die("FAIL: rastertogutenorint $?: $row[0] $row[1] $row[2] $row[3] $row[4] $row[5]\n");
# Call backend using CUPS methodologies, using STDIN.
- @args = ("./dyesub_backend", $id, $user, $title, $copies, $options);
+ @args = ("valgrind", "./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");
}