+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
-use lib qw(t/lib);
+
use DBICTest;
package My::Schema::Result::User;
package My::Schema;
-use base qw/DBIx::Class::Schema/;
+use base qw/DBICTest::BaseSchema/;
My::Schema->register_class( Admin => 'My::Schema::Result::User::Admin' );
My::Schema->register_class( User => 'My::Schema::Result::User' );
)
);
-TODO: {
- 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' );
- local $TODO = 'New objects should also be inflated';
- 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);