From: Robert Buels Date: Thu, 3 Sep 2009 22:41:38 +0000 (+0000) Subject: more work on extended set of Pg auto-pk tests X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fb7be534e59b13a0675e22602a990607cfacf62a;hp=8ce841739be825a78b23bacbcf456167c20dabd2;p=dbsrgits%2FDBIx-Class-Historic.git more work on extended set of Pg auto-pk tests --- diff --git a/t/72pg.t b/t/72pg.t index c54f27b..df808d2 100644 --- a/t/72pg.t +++ b/t/72pg.t @@ -291,7 +291,7 @@ exit; END { drop_test_schema($schema); - eapk_drop_all( $schema) + #eapk_drop_all( $schema) }; @@ -508,6 +508,7 @@ sub run_extended_apk_tests { for @eapk_schemas; $dbh->do("CREATE SEQUENCE $eapk_schemas[5].fooseq"); + $dbh->do("CREATE SEQUENCE $eapk_schemas[4].fooseq"); $dbh->do("SET search_path = ".join ',', @eapk_schemas ); }); @@ -526,12 +527,17 @@ sub run_extended_apk_tests { with_search_path => ['public',0,1], qualify_table => 2, ); + eapk_create( $schema, + with_search_path => [3,1,0,'public'], + nextval => "$eapk_schemas[4].fooseq", + ); eapk_poke( $schema, 0 ); eapk_poke( $schema, 2 ); eapk_poke( $schema, 1 ); eapk_poke( $schema, 0 ); eapk_poke( $schema, 1 ); + eapk_poke( $schema, 3 ); eapk_poke( $schema, 1 ); eapk_poke( $schema, 2 ); eapk_poke( $schema, 0 ); @@ -567,11 +573,11 @@ sub eapk_poke { for my $id (@eapk_id_columns) { my $proper_seqval = ++$seqs{"$schema_name_actual.apk.$id"}; is( $new->$id, $proper_seqval, "correct $id inc $inc" ) - or eapk_seq_diag($s); + or eapk_seq_diag($s,$schema_name); } } } "create in schema '$schema_name' lives" - or eapk_seq_diag($s); + or eapk_seq_diag($s,$schema_name); } # print diagnostic info on which sequences were found in the ExtAPK