projects
/
dbsrgits/DBIx-Class.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Fixed a test expectation so the right failure is reported
[dbsrgits/DBIx-Class.git]
/
t
/
73oracle.t
diff --git
a/t/73oracle.t
b/t/73oracle.t
index
306ad50
..
51cc932
100644
(file)
--- a/
t/73oracle.t
+++ b/
t/73oracle.t
@@
-149,7
+149,7
@@
is($st->pkid1, 55, "Oracle Auto-PK without trigger: First primary key set manual
# clean up our mess
END {
- if($dbh) {
+ if($schema && ($dbh = $schema->storage->dbh)) {
$dbh->do("DROP SEQUENCE artist_seq");
$dbh->do("DROP SEQUENCE pkid1_seq");
$dbh->do("DROP SEQUENCE pkid2_seq");