diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-11-30 02:04:14 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-11-30 02:04:14 +0000 |
| commit | 1e13c0c60c96dd1719e7c4c3931b4196c2b5bc61 (patch) | |
| tree | d322cd4ea3257d9c95a2afd06da856de8d8bd87a /perl/t/object.t | |
| parent | 1cc39c41c7cd2a682d024526f4fe933f7e7722da (diff) | |
Initial work on supporting testing with MySQL.
Add a drop() method to Wallet::Schema to destroy the wallet database. Add
a test suite for it. Add a reinitialize() method to Wallet;:Server that
drops the database before creating it.
Modify the wallet object test cases to call reinitialize() to create the
initial database and drop() to clean up the database after the test is
complete.
Fix a bug preventing Wallet::Schema from being initialized multiple times.
We now stash the schema in a class static variable and reuse it for
subsequent initializations, since re-reading DATA doesn't work.
Diffstat (limited to 'perl/t/object.t')
| -rwxr-xr-x | perl/t/object.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl/t/object.t b/perl/t/object.t index bf100ea..42700d0 100755 --- a/perl/t/object.t +++ b/perl/t/object.t @@ -28,7 +28,7 @@ my @trace = ($user, $host, time); my $princ = 'service/test@EXAMPLE.COM'; # Use Wallet::Server to set up the database. -my $server = eval { Wallet::Server->initialize ($user) }; +my $server = eval { Wallet::Server->reinitialize ($user) }; is ($@, '', 'Database initialization did not die'); ok ($server->isa ('Wallet::Server'), ' and returned the right class'); my $dbh = $server->dbh; @@ -321,4 +321,6 @@ EOO is ($object->history, $output, ' and the history is correct'); # Clean up. +my $schema = Wallet::Schema->new; +$schema->drop ($dbh); unlink 'wallet-db'; |