Changeset 4440 for trunk/Nebulous-Server/t/02_server_setup.t
- Timestamp:
- Jun 29, 2005, 4:35:06 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/t/02_server_setup.t (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/02_server_setup.t
r2872 r4440 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 02_server_setup.t,v 1. 2 2005-01-03 23:55:29jhoblitt Exp $5 # $Id: 02_server_setup.t,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $ 6 6 7 7 use strict; … … 12 12 use lib qw( ./t ./lib ); 13 13 14 use PS::IPP::IData::Server;15 use Test:: IData;14 use Nebulous::Server; 15 use Test::Nebulous; 16 16 17 Test:: IData->setup;17 Test::Nebulous->setup; 18 18 19 19 ok( 20 PS::IPP::IData::Server->setup(20 Nebulous::Server->setup( 21 21 "DBI:mysql:database=test:host=localhost", 22 22 "test", … … 26 26 ); 27 27 28 Test:: IData->setup;28 Test::Nebulous->setup; 29 29 30 30 eval { 31 PS::IPP::IData::Server->setup(31 Nebulous::Server->setup( 32 32 "DBI:mysql:database=foobar:host=localhost", 33 33 "baz", … … 37 37 like( $@, qr/DBI connect.*? failed/, "bad dsn/user/pass" ); 38 38 39 Test:: IData->cleanup;39 Test::Nebulous->cleanup;
Note:
See TracChangeset
for help on using the changeset viewer.
