[Bps-public-commit] r14877 - Class-Require/trunk/t

[sartak at bestpractical.com]

Author: sartak
Date: Wed Aug  6 20:03:11 2008
New Revision: 14877

Added:
   Class-Require/trunk/t/001-basic.t

Log:
A failing test!

Added: Class-Require/trunk/t/001-basic.t
==============================================================================
--- (empty file)
+++ Class-Require/trunk/t/001-basic.t	Wed Aug  6 20:03:11 2008
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+use Class::Require ':all';
+
+ok(is_class_loaded('Class::Require'), "Class::Require is loaded");
+ok(!is_class_loaded('Class::Require::NONEXISTENT'), "nonexistent class is NOT loaded");
+