Index: trunk/Nebulous/t/09_server_is_valid_class_id.t
===================================================================
--- trunk/Nebulous/t/09_server_is_valid_class_id.t	(revision 5498)
+++ trunk/Nebulous/t/09_server_is_valid_class_id.t	(revision 5498)
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+# 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 $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use Test::More tests => 3;
+
+use lib qw( ./t ./lib );
+
+use Nebulous::Server;
+use Nebulous::Util qw( :standard );
+use Test::Nebulous;
+
+my $neb = "Nebulous::Server";
+
+$neb->init(
+    dsn         => "DBI:mysql:database=test:host=localhost",
+    dbuser      => "test",
+    dbpasswd    => "",
+);
+
+*_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");
+
+Test::Nebulous->setup;
+
+# the test setup adds class id 1
+ok( _is_valid_class_id( 1 ), "custom class id");
+
+Test::Nebulous->setup;
+
+is( _is_valid_class_id( 99 ), undef, "invalid class id");
+
+Test::Nebulous->cleanup;