Cannot test for bad sequences in that manner: we already exclude temp schemas!
authorGreg Sabino Mullane <[email protected]>
Tue, 25 Jun 2013 02:50:20 +0000 (22:50 -0400)
committerGreg Sabino Mullane <[email protected]>
Tue, 25 Jun 2013 02:50:20 +0000 (22:50 -0400)
t/02_sequence.t

index 84333005df61d441b8af1f027e168428b1d818ed..d42187f61452dfcebf7f5d227bdec6eff98f4d62 100644 (file)
@@ -6,7 +6,7 @@ use 5.006;
 use strict;
 use warnings;
 use Data::Dumper;
-use Test::More tests => 11;
+use Test::More tests => 10;
 use lib 't','.';
 use CP_Testing;
 
@@ -44,6 +44,7 @@ if ($ver < 80100) {
 
 my $seqname = 'cp_test_sequence';
 $cp->drop_sequence_if_exists($seqname);
+$cp->drop_sequence_if_exists("${seqname}2");
 
 $t=qq{$S works when no sequences exist};
 like ($cp->run(''), qr{OK:.+No sequences found}, $t);
@@ -52,7 +53,7 @@ $dbh->do("CREATE TEMP SEQUENCE ${seqname}2");
 $dbh->commit();
 
 $t=qq{$S fails when sequence not readable};
-like ($cp->run(''), qr{ERROR:\s*(?:Could not determine|cannot access temporary)}, $t);
+#like ($cp->run(''), qr{ERROR:\s*(?:Could not determine|cannot access temporary)}, $t);
 
 $dbh->do("CREATE SEQUENCE $seqname");
 $cp->drop_sequence_if_exists($seqname.'2');