Changeset 10546 for trunk/Nebulous/t/10_server_is_valid_volume_name.t

Timestamp:

Dec 7, 2006, 5:29:19 PM (20 years ago)

Author:

jhoblitt

Message:

change Nebulous::Server instantiate objects (init -> new) instead of working with class data
add a DESTROY method to Nebulous::Server to tear down the database connection

File:

• trunk/Nebulous/t/10_server_is_valid_volume_name.t (modified) (3 diffs)

trunk/Nebulous/t/10_server_is_valid_volume_name.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 10_server_is_valid_volume_name.t,v 1.1 2005-12-03 02:52:31 jhoblitt Exp $
+# $Id: 10_server_is_valid_volume_name.t,v 1.2 2006-12-08 03:29:19 jhoblitt Exp $
 
 use strict;
@@ -16 +16 @@
 use Test::Nebulous;
 
-my $neb = "Nebulous::Server";
-
-$neb->init(
+my $neb = Nebulous::Server->new(
     dsn         => "DBI:mysql:database=test:host=localhost",
     dbuser      => "test",
@@ -24 +22 @@
 );
 
-*_is_valid_volume_name = \&Nebulous::Server::_is_valid_volume_name;
+Test::Nebulous->setup;
+
+ok( $neb->_is_valid_volume_name( 'node01' ), "valid volume name" );
 
 Test::Nebulous->setup;
 
-ok( _is_valid_volume_name( 'node01' ), "valid volume name" );
+ok( $neb->_is_valid_volume_name( 'node02' ), "valid volume name" );
 
 Test::Nebulous->setup;
 
-ok( _is_valid_volume_name( 'node02' ), "valid volume name" );
-
-Test::Nebulous->setup;
-
-is( _is_valid_volume_name( 'node99' ), undef, "invalid volume name" );
+is( $neb->_is_valid_volume_name( 'node99' ), undef, "invalid volume name" );
 
 Test::Nebulous->cleanup;