summaryrefslogtreecommitdiffstats
path: root/regression-gp.pl
diff options
context:
space:
mode:
authorSolomon Peachy <pizza@shaftnet.org>2018-09-29 20:51:30 -0400
committerSolomon Peachy <pizza@shaftnet.org>2018-09-29 20:51:30 -0400
commit473a0339a9e7cf3edd56f2ad15899c1f689bd104 (patch)
tree911dbde263483c56c2d3522229d21da11cc6c696 /regression-gp.pl
parentdc2d265a7c62dd86027387b6f4a00359d2a1a7bb (diff)
downloadselphy_print-473a0339a9e7cf3edd56f2ad15899c1f689bd104.tar.gz
selphy_print-473a0339a9e7cf3edd56f2ad15899c1f689bd104.tar.bz2
selphy_print-473a0339a9e7cf3edd56f2ad15899c1f689bd104.zip
regression: make valgrind optional.
Diffstat (limited to 'regression-gp.pl')
-rwxr-xr-xregression-gp.pl11
1 files changed, 9 insertions, 2 deletions
diff --git a/regression-gp.pl b/regression-gp.pl
index 431b345..a682378 100755
--- a/regression-gp.pl
+++ b/regression-gp.pl
@@ -10,6 +10,7 @@ my $title = "image_test";
my $max_copies = 3;
my $input_image = "testjobs/s3s-59.png";
my $max_pages = 2;
+my $valgrind = 0;
$ENV{"STP_SUPPRESS_VERBOSE_MESSAGES"} = 1;
$ENV{"OMP_NUM_THREADS"} = 1;
@@ -76,12 +77,18 @@ while (<STDIN>) {
for (my $copies = 1 ; $copies <= $max_copies ; $copies++) {
# Call raster2gutenprint
- @args = ("valgrind", "/usr/lib/cups/filter/rastertogutenprint.5.3", $id, $user, $title, $copies, $options);
+ @args = ("/usr/lib/cups/filter/rastertogutenprint.5.3", $id, $user, $title, $copies, $options);
+ if ($valgrind) {
+ unshift(@args,"valgrind");
+ }
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] $pages $copies\n");
# Call backend using CUPS methodologies, using STDIN.
- @args = ("valgrind", "./dyesub_backend", $id, $user, $title, $copies, $options);
+ @args = ("./dyesub_backend", $id, $user, $title, $copies, $options);
+ if ($valgrind) {
+ unshift(@args,"valgrind");
+ }
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] $pages $copies\n");
}