Changeset 10546 for trunk/Nebulous-Server/t/09_server_is_valid_class_id.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-Server/t/09_server_is_valid_class_id.t (modified) (3 diffs)

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

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 09_server_is_valid_class_id.t,v 1.1 2005-11-10 21:31:26 jhoblitt Exp $
+# $Id: 09_server_is_valid_class_id.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_class_id = \&Nebulous::Server::_is_valid_class_id;
-
 Test::Nebulous->setup;
 
 # 0 is the default and is guarenteed to exist
-ok( _is_valid_class_id( 0 ), "default class id");
+ok( $neb->_is_valid_class_id( 0 ), "default class id");
 
 Test::Nebulous->setup;
 
 # the test setup adds class id 1
-ok( _is_valid_class_id( 1 ), "custom class id");
+ok( $neb->_is_valid_class_id( 1 ), "custom class id");
 
 Test::Nebulous->setup;
 
-is( _is_valid_class_id( 99 ), undef, "invalid class id");
+is( $neb->_is_valid_class_id( 99 ), undef, "invalid class id");
 
 Test::Nebulous->cleanup;