+use warnings;
+use strict;
+
+use Test::More;
+
+use lib qw(t/lib);
+use DBICTest;
+
package My::Schema::Result::User;
use strict;
1;
package main;
-
-use lib qw(t/lib);
-use DBICTest;
-
-use Test::More;
-
my $user_data = {
email => 'someguy@place.com',
password => 'pass1',
admin => 1
};
-ok( my $schema = My::Schema->connection(DBICTest->_database) );
+ok( my $schema = My::Schema->connect(DBICTest->_database) );
ok(
$schema->storage->dbh->do(
)
);
-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);
+{
+ my $user = $schema->resultset('User')->create($user_data);
+ my $admin = $schema->resultset('User')->create($admin_data);
+
+ is( ref $user, 'My::Schema::Result::User' );
- is( ref $user, 'My::Schema::Result::User' );
- is( ref $admin, 'My::Schema::Result::User::Admin' );
+ local $TODO = 'New objects should also be inflated';
+ is( ref $admin, 'My::Schema::Result::User::Admin' );
}
my $user = $schema->resultset('User')->single($user_data);