Renamed DBIx::Class::PK's retrieve() as find()

[dbsrgits/DBIx-Class.git] / t / 04db.t

diff --git a/t/04db.t b/t/04db.t
index 2d97f94..3ab26b7 100644 (file)
--- a/t/04db.t
+++ b/t/04db.t
@@ -7,8 +7,8 @@ use lib qw(t/lib);
 use_ok('DBICTest');
 
 # add some rows inside a transaction and commit it
-# XXX: Is _get_dbh the only way to get a dbh?
-DBICTest::Artist->_get_dbh->{AutoCommit} = 0;
+# XXX: Is storage->dbh the only way to get a dbh?
+DBICTest::Artist->storage->dbh->{AutoCommit} = 0;
 for (10..15) {
     DBICTest::Artist->create( { 
         artistid => $_,
@@ -16,23 +16,23 @@ for (10..15) {
     } );
 }
 DBICTest::Artist->dbi_commit;
-my ($artist) = DBICTest::Artist->retrieve(15);
+my ($artist) = DBICTest::Artist->find(15);
 is($artist->name, 'artist number 15', "Commit ok");
 
 # repeat the test using AutoCommit = 1 to force the commit
-DBICTest::Artist->_get_dbh->{AutoCommit} = 0;
+DBICTest::Artist->storage->dbh->{AutoCommit} = 0;
 for (16..20) {
     DBICTest::Artist->create( {
         artistid => $_,
         name => "artist number $_",
     } );
 }
-DBICTest::Artist->_get_dbh->{AutoCommit} = 1;
-($artist) = DBICTest::Artist->retrieve(20);
+DBICTest::Artist->storage->dbh->{AutoCommit} = 1;
+($artist) = DBICTest::Artist->find(20);
 is($artist->name, 'artist number 20', "Commit using AutoCommit ok");
 
 # add some rows inside a transaction and roll it back
-DBICTest::Artist->_get_dbh->{AutoCommit} = 0;
+DBICTest::Artist->storage->dbh->{AutoCommit} = 0;
 for (21..30) {
     DBICTest::Artist->create( {
         artistid => $_,