return ! diff ("$file", \$pattern);
}
+my $pspp_cmd = $ENV{PSPP_TEST_CMD};
+
+if ( ! $pspp_cmd)
+{
+ $pspp_cmd="pspp";
+}
+
sub run_pspp_syntax
{
my $tempdir = shift;
print FH "$syntax";
close (FH);
- system ("cd $tempdir; pspp -o raw-ascii $syntaxfile");
+ system ("cd $tempdir; $pspp_cmd -o raw-ascii $syntaxfile");
}
sub run_pspp_syntax_cmp