Fix TODO tests to only mark exactly the failing tests as TODO

[dbsrgits/DBIx-Class.git] / t / row / inflate_result.t

diff --git a/t/row/inflate_result.t b/t/row/inflate_result.t
index c31d804..3ab2271 100644 (file)
--- a/t/row/inflate_result.t
+++ b/t/row/inflate_result.t
@@ -1,3 +1,11 @@
+use warnings;
+use strict;
+
+use Test::More;
+
+use lib qw(t/lib);
+use DBICTest;
+
 package My::Schema::Result::User;
 
 use strict;
@@ -58,12 +66,6 @@ My::Schema->register_class( User  => 'My::Schema::Result::User' );
 1;
 
 package main;
-
-use lib qw(t/lib);
-use DBICTest;
-
-use Test::More;
-
 my $user_data = {
     email    => 'someguy@place.com',
     password => 'pass1',
@@ -76,7 +78,7 @@ my $admin_data = {
     admin    => 1
 };
 
-ok( my $schema = My::Schema->connection('dbi:SQLite:dbname=:memory:') );
+ok( my $schema = My::Schema->connect(DBICTest->_database) );
 
 ok(
     $schema->storage->dbh->do(
@@ -85,13 +87,12 @@ ok(
 );
 
 TODO: {
-    local $TODO = 'New objects should also be inflated';
     my $user  = $schema->resultset('User')->create($user_data);
     my $admin = $schema->resultset('User')->create($admin_data);
 
     is( ref $user,  'My::Schema::Result::User' );
+    local $TODO = 'New objects should also be inflated';
     is( ref $admin, 'My::Schema::Result::User::Admin' );
-
 }
 
 my $user  = $schema->resultset('User')->single($user_data);