Make tests running against Postgres 13

perlcriticrc

@@ -4,7 +4,7 @@ verbose = 8
 profile-strictness = quiet
 
 [Documentation::PodSpelling]
-stop_words = artemus Astill autovacuum backends battlestar boxinfo Bucardo bucardo burrick checksum checksums commitratio contrib criticals cronjob Cwd datadir datallowconn dbhost dbname dbpass dbport dbstats dbuser del dir dylan EB emma exabytes excludeuser ExclusiveLock executables faceoff filenames flagg franklin fsm garrett greg grimm GSM hitratio idxblkshit idxblksread idxscan idxtupfetch idxtupread includeuser Ioannis klatch lancre localhost logfile login lsfunc mallory maxwait MERCHANTABILITY minvalue morpork MRTG mrtg Mullane NAGIOS Nagios nagios nextval nofuncbody noidle nolanguage nols noname noobjectnames noperm noperms noposition noschema ok oskar pageslots parens perflimit petabytes pgAgent pgBouncer pgbouncer pgbouncer's pgpass plasmid plugin pluto postgres PostgreSQL psql queryname quirm refactoring ret robert Sabino salesrep sami schemas scott Seklecki seqscan seqtupread showperf skipcycled slon Slony slony Slony's snazzo speedtest SQL stderr symlink symlinked symlinks syslog tablespace tablespaces Tambouras tardis timesync tuples unlinked upd uptime USERNAME usernames WAL watson wget wilkins xlog zettabytes
+stop_words = artemus Astill autovacuum backends battlestar boxinfo Bucardo bucardo burrick checksum checksums commitratio contrib criticals cronjob Cwd datadir datallowconn dbhost dbname dbpass dbport dbstats dbuser del dir dylan EB emma exabytes excludeuser ExclusiveLock executables faceoff filenames flagg franklin fsm garrett greg grimm GSM hitratio idxblkshit idxblksread idxscan idxtupfetch idxtupread includeuser Ioannis klatch lancre localhost logfile login lsfunc mallory maxwait MERCHANTABILITY minvalue morpork MRTG mrtg Mullane NAGIOS Nagios nagios nextval nofuncbody noidle nols noname noobjectnames noperm noperms noposition noschema ok oskar pageslots parens perflimit petabytes pgAgent pgBouncer pgbouncer pgbouncer's pgpass plasmid plugin pluto postgres PostgreSQL psql queryname quirm refactoring ret robert Sabino salesrep sami schemas scott Seklecki seqscan seqtupread showperf skipcycled slon Slony slony Slony's snazzo speedtest SQL stderr symlink symlinked symlinks syslog tablespace tablespaces Tambouras tardis timesync tuples unlinked upd uptime USERNAME usernames WAL watson wget wilkins xlog zettabytes
 
 [-Bangs::ProhibitDebuggingModules]
 [-Bangs::ProhibitFlagComments]

t/02_commitratio.t

@@ -80,6 +80,6 @@ $t=qq{$S returned correct performance data with include};
 like ($cp->run('-w 5% --include=postgres'), qr{ \| time=\d\.\d\ds postgres=\d+}, $t);
 
 $t=qq{$S with includeuser option returns nothing};
-like ($cp->run('--includeuser postgres --includeuser mycatbeda -w 10%'), qr{No matching entries found due to user exclusion}, $t);
+like ($cp->run('--includeuser mycatbeda -w 10%'), qr{No matching entries found due to user exclusion}, $t);
 
 exit;

t/02_database_size.t

@@ -114,6 +114,6 @@ $t=qq{$S returned correct performance data with include};
 like ($cp->run('-w 5g --include=postgres'), qr{ \| time=\d\.\d\ds postgres=\d+}, $t);
 
 $t=qq{$S with includeuser option returns nothing};
-like ($cp->run('--includeuser postgres --includeuser mycatbeda -w 10g'), qr{No matching entries found due to user exclusion}, $t);
+like ($cp->run('--includeuser mycatbeda -w 10g'), qr{No matching entries found due to user exclusion}, $t);
 
 exit;

t/02_hitratio.t

@@ -80,6 +80,6 @@ $t=qq{$S returned correct performance data with include};
 like ($cp->run('-w 5% --include=postgres'), qr{ \| time=\d\.\d\ds postgres=\d+}, $t);
 
 $t=qq{$S with includeuser option returns nothing};
-like ($cp->run('--includeuser postgres --includeuser mycatbeda -w 10%'), qr{No matching entries found due to user exclusion}, $t);
+like ($cp->run('--includeuser mycatbeda -w 10%'), qr{No matching entries found due to user exclusion}, $t);
 
 exit;

t/02_same_schema.t

@@ -6,7 +6,7 @@ use 5.008;
 use strict;
 use warnings;
 use Data::Dumper;
-use Test::More tests => 76;
+use Test::More tests => 75;
 use lib 't','.';
 use CP_Testing;
 
@@ -97,15 +97,12 @@ like ($cp1->run($connect3), qr{^$label OK}, $t);
 $t = qq{$S reports language on 3 but not 1 and 2};
 $dbh3->do(q{CREATE LANGUAGE plpgsql});
 like ($cp1->run($connect3),
-      qr{^$label CRITICAL.*Items not matched: 1 .*
+      qr{^$label CRITICAL.*
 Language "plpgsql" does not exist on all databases:
 \s*Exists on:\s+3
-\s+Missing on:\s+1, 2\s*$}s,
+\s+Missing on:\s+1, 2}s,
       $t);
 
-$t = qq{$S does not report language differences if the 'nolanguage' filter is given};
-like ($cp1->run("$connect3 --filter=nolanguage"), qr{^$label OK}, $t);
-
 $dbh1->do(q{CREATE LANGUAGE plpgsql});
 $dbh2->do(q{CREATE LANGUAGE plpgsql});
 

t/99_spellcheck.t

@@ -425,7 +425,6 @@ nofuncbody
 nofunctions
 noidle
 noindexes
-nolanguage
 nols
 noname
 noname