Changeset 4873

Timestamp:

Aug 24, 2005, 3:40:04 PM (21 years ago)

Author:

jhoblitt

Message:

rename Nebulous::Server->setup() -> Nebulous::Server->init()
add config params to Nebulous::Server->init()

Location:

trunk

Files:

• Nebulous-Server/t/02_server_setup.t (modified) (3 diffs)
• Nebulous-Server/t/03_server_create_object.t (modified) (2 diffs)
• Nebulous-Server/t/04_server_replicate_object.t (modified) (2 diffs)
• Nebulous-Server/t/05_server_lock_object.t (modified) (2 diffs)
• Nebulous-Server/t/06_server_unlock_object.t (modified) (2 diffs)
• Nebulous-Server/t/07_server_find_instances.t (modified) (2 diffs)
• Nebulous-Server/t/08_server_delete_instance.t (modified) (2 diffs)
• Nebulous-Server/t/09_server_stat_object.t (modified) (2 diffs)
• Nebulous/t/02_server_setup.t (modified) (3 diffs)
• Nebulous/t/03_server_create_object.t (modified) (2 diffs)
• Nebulous/t/04_server_replicate_object.t (modified) (2 diffs)
• Nebulous/t/05_server_lock_object.t (modified) (2 diffs)
• Nebulous/t/06_server_unlock_object.t (modified) (2 diffs)
• Nebulous/t/07_server_find_instances.t (modified) (2 diffs)
• Nebulous/t/08_server_delete_instance.t (modified) (2 diffs)
• Nebulous/t/09_server_stat_object.t (modified) (2 diffs)
• Nebulous/t/conf/startup.pl.in (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.3 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 02_server_setup.t,v 1.4 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 
 ok(
-    Nebulous::Server->setup(
-        "DBI:mysql:database=test:host=localhost",
-        "test",
-        "",
+    Nebulous::Server->init(
+        dsn         => "DBI:mysql:database=test:host=localhost",
+        dbuser      => "test",
+        dbpasswd    => "",
     ),
     "connect",
@@ -29 +29 @@
 
 eval {
-    Nebulous::Server->setup(
-        "DBI:mysql:database=foobar:host=localhost",
-        "baz",
-        "boo",
+    Nebulous::Server->init(
+        dsn         => "DBI:mysql:database=foobar:host=localhost",
+        dbuser      => "baz",
+        dbpasswd    =>"boo",
     );
 };

trunk/Nebulous-Server/t/03_server_create_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 03_server_create_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 03_server_create_object.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous-Server/t/04_server_replicate_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 04_server_replicate_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 04_server_replicate_object.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous-Server/t/05_server_lock_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 05_server_lock_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 05_server_lock_object.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous-Server/t/06_server_unlock_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 06_server_unlock_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 06_server_unlock_object.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous-Server/t/07_server_find_instances.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 07_server_find_instances.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 07_server_find_instances.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous-Server/t/08_server_delete_instance.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 08_server_delete_instance.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 08_server_delete_instance.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous-Server/t/09_server_stat_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 09_server_stat_object.t,v 1.5 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 09_server_stat_object.t,v 1.6 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous/t/02_server_setup.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 02_server_setup.t,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 02_server_setup.t,v 1.4 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 
 ok(
-    Nebulous::Server->setup(
-        "DBI:mysql:database=test:host=localhost",
-        "test",
-        "",
+    Nebulous::Server->init(
+        dsn         => "DBI:mysql:database=test:host=localhost",
+        dbuser      => "test",
+        dbpasswd    => "",
     ),
     "connect",
@@ -29 +29 @@
 
 eval {
-    Nebulous::Server->setup(
-        "DBI:mysql:database=foobar:host=localhost",
-        "baz",
-        "boo",
+    Nebulous::Server->init(
+        dsn         => "DBI:mysql:database=foobar:host=localhost",
+        dbuser      => "baz",
+        dbpasswd    =>"boo",
     );
 };

trunk/Nebulous/t/03_server_create_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 03_server_create_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 03_server_create_object.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous/t/04_server_replicate_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 04_server_replicate_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 04_server_replicate_object.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous/t/05_server_lock_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 05_server_lock_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 05_server_lock_object.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous/t/06_server_unlock_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 06_server_unlock_object.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 06_server_unlock_object.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous/t/07_server_find_instances.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 07_server_find_instances.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 07_server_find_instances.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous/t/08_server_delete_instance.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 08_server_delete_instance.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 08_server_delete_instance.t,v 1.5 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous/t/09_server_stat_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 09_server_stat_object.t,v 1.5 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 09_server_stat_object.t,v 1.6 2005-08-25 01:40:04 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 my $neb = "Nebulous::Server";
 
-$neb->setup(
-    "DBI:mysql:database=test:host=localhost",
-    "test",
-    "",
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
 );
 

trunk/Nebulous/t/conf/startup.pl.in

@@ -1 +1 @@
 use strict;
+use warnings FATAL => qw( all );
 
 use Apache::DBI;
@@ -6 +7 @@
 use Nebulous::Server;
 
-my $dsn     = "DBI:mysql:database=test:host=localhost";
-my $dbuser  = "test";
-my $dbpass  = "";
+my $dsn         = "DBI:mysql:database=test:host=localhost";
+my $dbuser      = "test";
+my $dbpasswd    = "";
 
-Apache::DBI->connect_on_init( $dsn, $dbuser, $dbpass );
-Nebulous::Server->setup( $dsn, $dbuser, $dbpass );
+Apache::DBI->connect_on_init( $dsn, $dbuser, $dbpasswd );
+Nebulous::Server->init(
+    dsn         => $dsn,
+    dbuser      => $dbuser,
+    dbpasswd    => $dbpasswd,
+    log_level   => 'all',
+);
 
 1;
-