# ON_ERROR_STOP is used by psql to return non-0 on an error
my $psql_opts="--no-psqlrc --variable ON_ERROR_STOP=true";
- my $shpfile = "${TMPDIR}/dumper-" . basename(${TEST}) . "-shp";
- my $outfile = "${TMPDIR}/dumper-" . basename(${TEST}) . ".out";
- my $errfile = "${TMPDIR}/dumper-" . basename(${TEST}) . ".err";
+ my $shpfile = "${TMPDIR}/dumper-" . basename(${TEST}) . "-shp";
+ my $outfile = "${TMPDIR}/dumper-" . basename(${TEST}) . ".out";
+ my $errfile = "${TMPDIR}/dumper-" . basename(${TEST}) . ".err";
# Produce the output SHP file.
open DUMPFILE, "$dump_file" or die "Cannot open dump file $dump_file\n";
return 0;
}
- my $diffile = sprintf("%s/test_%s_diff", $TMPDIR, $RUN);
-
my $numtests = 0;
foreach my $ext ("shp","prj","dbf","shx") {
my $obtained = ${shpfile}.".".$ext;
my $diff = diff($expected, $obtained);
if ( $diff )
{
+ my $diffile = sprintf("%s/dumper_test_%s_diff", $TMPDIR, $ext);
open(FILE, ">$diffile");
print FILE $diff;
close(FILE);