Changeset 20990 for trunk/Nebulous-Server/t/02_server_setup.t

Timestamp:

Dec 14, 2008, 12:54:25 PM (18 years ago)

Author:

eugene

Message:

reverting to pre-distributed version code (distrib is on branch)

File:

• trunk/Nebulous-Server/t/02_server_setup.t (modified) (2 diffs)

trunk/Nebulous-Server/t/02_server_setup.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 02_server_setup.t,v 1.7 2008-12-12 21:13:41 jhoblitt Exp $
+# $Id: 02_server_setup.t,v 1.8 2008-12-14 22:54:25 eugene Exp $
 
 use strict;
 use warnings;
 
-use Test::More tests => 6;
+use Test::More tests => 2;
 
 use lib qw( ./t ./lib );
@@ -17 +17 @@
 Test::Nebulous->setup;
 
-isa_ok(Nebulous::Server->new(), "Nebulous::Server");
+isa_ok(
+    Nebulous::Server->new(
+        dsn         => $NEB_DB,
+        dbuser      => $NEB_USER,
+        dbpasswd    => $NEB_PASS,
+    ),
+    "Nebulous::Server"
+);
 
 Test::Nebulous->setup;
 
-# ->new()
-{
-    my $neb = Nebulous::Server->new( log_level => 'off' );
-
-    ok($neb, "set log level");
-}
-
-Test::Nebulous->setup;
-
-{
-    my $neb = Nebulous::Server->new(
+eval {
+    Nebulous::Server->new(
         dsn         => "DBI:mysql:database=foobar:host=localhost",
         dbuser      => "baz",
         dbpasswd    =>"boo",
     );
-
-    ok($neb, "set database");
-}
-
-Test::Nebulous->setup;
-
-# add dbs after ->new()
-{
-    my $neb = Nebulous::Server->new;
-
-    ok($neb->config->add_db(
-        dbindex    => 0,
-        dsn         => "DBI:mysql:database=foobar:host=localhost",
-        dbuser      => "baz",
-        dbpasswd    =>"boo",
-    ), "add db");
-    
-    ok($neb->config->add_db(
-        dbindex    => 1,
-        dsn         => "DBI:mysql:database=foobar:host=localhost",
-        dbuser      => "baz",
-        dbpasswd    =>"boo",
-    ), "add dbs");
-
-    is($neb->config->n_db, 2, "n dbs")
-}
+};
+like( $@, qr/DBI connect.*? failed/, "bad dsn/user/pass" );
 
 Test::Nebulous->cleanup;