cmp_ok($found->header('subject'), 'eq', "Message in a bottle",
"can find stored message by ID");
-my $e_dbic = Email::Archive->new(
- storage => Email::Archive::Storage::DBIC->new,
-);
-$e_dbic->connect('dbi:SQLite:dbname=t/test_dbic.db');
-$e_dbic->store($email);
-
-$found = $e_dbic->retrieve('helloworld');
-cmp_ok($found->header('subject'), 'eq', "Message in a bottle",
- "can find stored message by ID");
-
-
done_testing;
+
unlink 't/test.db';
-unlink 't/dbic_test.db';
+