more redesign

[p5sagit/Email-Archive.git] / test_run

diff --git a/test_run b/test_run
index 8385f7f..a8b52ad 100644 (file)
--- a/test_run
+++ b/test_run
@@ -17,7 +17,7 @@ my $email = Email::Simple->create(
 );
 
 my $e = Email::Archive->new();
-$e->storage->db_connect('dbi:SQLite:dbname=test.db');
+$e->connect('dbi:SQLite:dbname=test.db');
 print "sending @{[$email->as_string]}\n";
 $e->store($email);