Add regression test for logplex format.

diff --git a/t/03_consistency.t b/t/03_consistency.t
index 04458e858e76ea560d135e65bd127d6fd71630eb..c70bd347e9c84d33660938734c54d0bfc3f00646 100755 (executable)
--- a/t/03_consistency.t
+++ b/t/03_consistency.t
@@ -1,9 +1,10 @@
-use Test::Simple tests => 6;
+use Test::Simple tests => 8;
 use JSON::XS;
 
 my $json = new JSON::XS;
 
 my $LOG = 't/fixtures/light.postgres.log.bz2 t/fixtures/pgbouncer.log.gz';
+my $HLOG = 't/fixtures/logplex.gz';
 my $BIN = 'out.bin';
 my $OUT = 'out.json';
 
@@ -30,3 +31,12 @@ ok( $json_ref->{pgb_session_info}{chronos}{20180912}{16}{count} == 63943, "pgBou
 
 `rm -f $OUT`;
 
+$ret = `perl pgbadger -q -o $OUT $HLOG`;
+ok( $? == 0, "Generate json report for heroku log file");
+
+$json_ref = $json->decode(`cat $OUT`);
+
+ok( $json_ref->{database_info}{unknown}{"CTE|duration"} eq "21761.546", "Consistent CTE duration");
+
+`rm -f $OUT`;
+

diff --git a/t/fixtures/logplex.gz b/t/fixtures/logplex.gz
new file mode 100644 (file)
index 0000000..570e0d9
Binary files /dev/null and b/t/fixtures/logplex.gz differ