#!/usr/bin/perl
-
+#$| = 1;
use File::Basename;
use File::Temp 'tempdir';
#use File::Which;
# Dump output to a temp file.
my $tmpfile = sprintf("%s/test_%s_tmp", $TMPDIR, $RUN);
my $cmd = "psql -v \"VERBOSITY=terse\" -tXA $DB < $sql > $tmpfile 2>&1";
+ print($cmd);
my $rv = system($cmd);
-
# Check if psql errored out.
if ( $rv != 0 )
{
# Strip the lines we don't care about
@lines = grep(!/^\$/, @lines);
- @lines = grep(!/^(INSERT|DELETE|UPDATE|SELECT)/, @lines);
+ @lines = grep(!/^(INSERT|DELETE|UPDATE|SELECT|COPY)/, @lines);
@lines = grep(!/^(CONTEXT|RESET|ANALYZE)/, @lines);
@lines = grep(!/^(DROP|CREATE|VACUUM)/, @lines);
@lines = grep(!/^(LOG|SET|TRUNCATE)/, @lines);
show_progress();
$cmd = "${PGSQL2SHP} -f ${TMPDIR}/dumper $DB $tblname > $errfile 2>&1";
$rv = system($cmd);
+
if ( $rv )
{
fail("$description: dumping loaded table", $errfile);
}
# Compare with expected output if there is any.
+
if ( -r $expected_shp_file )
{
show_progress();
+
my $diff = diff($expected_shp_file, "$TMPDIR/dumper.shp");
if ( $diff )
{
# Produce the output SHP file.
open DUMPFILE, "$dump_file" or die "Cannot open dump file $dump_file\n";
+ sleep(1);
my @dumplines = <DUMPFILE>;
close DUMPFILE;
my $dumpstring = join '', @dumplines;
my $rv = system(@cmd);
open STDERR, '>&', $stderr_save;
open STDOUT, '>&', $stdout_save;
-
+ #sleep(3);
show_progress();
if ( $rv )