diff options
Diffstat (limited to 'perl/t/server.t')
| -rwxr-xr-x | perl/t/server.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl/t/server.t b/perl/t/server.t index 423127f..08edd56 100755 --- a/perl/t/server.t +++ b/perl/t/server.t @@ -40,8 +40,7 @@ my $dbh = $server->dbh; ok (defined ($dbh), ' and returns a defined database handle'); # Allow creation of base objects for testing purposes. -my $schema = Wallet::Schema->new; -$schema->register_object ($dbh, 'base', 'Wallet::Object::Base'); +$setup->register_object ('base', 'Wallet::Object::Base'); # We're currently running as the administrator, so everything should succeed. # Set up a bunch of data for us to test with, starting with some ACLs. Test |