Changeset 947 for trunk

Timestamp:

12/24/25 12:51:48 (5 hours ago)

Author:

Kris Deugau

Message:

/trunk/t

Rejig psql drop/reload to better suppress output unless debugging the test
framework itself; it's too noisy for regular use. Neither diag or note
seem to actually suppress it.
See #88

File:

• trunk/t/DNSTest.pm (modified) (2 diffs)

trunk/t/DNSTest.pm

@@ -36 +36 @@
 our $dnsdb;
 our $dbh;
+our $debug;
 
 sub new {
@@ -65 +66 @@
   # drop all tables etc
   $ENV{PGPASSWORD} = $dnsdb->{dbpass};
-  diag qx( psql -h $dnsdb->{dbhost} -U $dnsdb->{dbuser} $dnsdb->{dbname} < t/dropall.sql );
+# neither diag or note seem to suppress output from qx
+  my $dropdata = qx( psql -h $dnsdb->{dbhost} -U $dnsdb->{dbuser} $dnsdb->{dbname} 2>&1 < t/dropall.sql );
+  diag( $dropdata ) if $debug;
   # load some standard test data
-  diag qx( psql -h $dnsdb->{dbhost} -U $dnsdb->{dbuser} $dnsdb->{dbname} < t/dns-unitbase.sql );
-
-}
+  my $reload = qx( psql -h $dnsdb->{dbhost} -U $dnsdb->{dbuser} $dnsdb->{dbname} < t/dns-unitbase.sql );
+  diag( $reload ) if $debug;
+  undef $ENV{PGPASSWORD};
+} # new()
 
 sub DESTROY {