Changeset 164 for trunk/t/cleanup.t
- Timestamp:
- 05/13/09 21:17:02 (7 months ago)
- Files:
-
- 1 modified
-
trunk/t/cleanup.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/t/cleanup.t
r114 r164 7 7 8 8 use TheSchwartz; 9 use Test::More tests => 20;9 use Test::More tests => 30; 10 10 11 11 # for testing: … … 15 15 run_tests(10, sub { 16 16 my $client = test_client(dbs => ['ts1']); 17 my $dbh = DBI->connect(dsn_for("ts1"), 'root', '');17 my $dbh = DBI->connect(dsn_for("ts1"), $ENV{TS_DB_USER}, $ENV{TS_DB_PASS}); 18 18 $client->can_do("Worker::Fail"); 19 19 $client->can_do("Worker::Complete");
