remove direct use of Class::C3 in tests

[p5sagit/Class-C3-Componentised.git] / t / 01-basic.t

diff --git a/t/01-basic.t b/t/01-basic.t
index 0a09da6..8bc81fd 100644 (file)
--- a/t/01-basic.t
+++ b/t/01-basic.t
@@ -2,18 +2,101 @@ use strict;
 use warnings;
 
 use FindBin;
-use lib "$FindBin::Bin/lib";
-
 use Test::More;
 use Test::Exception;
+use Class::Inspector;
+
+use lib "$FindBin::Bin/lib";
 
-plan tests => 3;
+plan tests => 23;
+
+BEGIN {
+  package TestPackage::A;
+  sub some_method {}
+}
 
 use_ok('MyModule');
 
 MyModule->load_components('Foo');
 
-throws_ok { MyModule->load_components('+Foo'); } qr/^Can't locate Foo.pm in \@INC/;
+# Clear down inc so ppl dont mess us up with installing modules that we
+# expect not to exist
+#@INC = ();
+# This breaks Carp1.08/perl 5.10.0; bah
+
+throws_ok { MyModule->load_components('+ClassC3ComponentFooThatShouldntExist'); } qr/^Can't locate ClassC3ComponentFooThatShouldntExist.pm in \@INC/;
 
 is(MyModule->new->message, "Foo MyModule", "it worked");
 
+ok( MyModule->ensure_class_found('MyModule::Plugin::Foo'),
+    'loaded package MyModule::Plugin::Foo was found' );
+ok( !Class::Inspector->loaded('MyModule::OwnComponent'),
+    'MyModule::OwnComponent not loaded yet' );
+ok( MyModule->ensure_class_found('MyModule::OwnComponent'),
+    'package MyModule::OwnComponent was found' );
+ok( !Class::Inspector->loaded('MyModule::OwnComponent'),
+    'MyModule::OwnComponent not loaded by ensure_class_found()' );
+ok( MyModule->ensure_class_found('TestPackage::A'),
+    'anonymous package TestPackage::A found' );
+ok( !MyModule->ensure_class_found('FAKE::WONT::BE::FOUND'),
+        'fake package not found' );
+
+# Test load_optional_class
+my $retval = eval { MyModule->load_optional_class('ANOTHER::FAKE::PACKAGE') };
+ok( !$@, 'load_optional_class on a nonexistent class did not throw' );
+ok( !$retval, 'nonexistent package not loaded' );
+$retval = eval { MyModule->load_optional_class('MyModule::OwnComponent') };
+ok( !$@, 'load_optional_class on an existing class did not throw' );
+ok( $retval, 'MyModule::OwnComponent loaded' );
+throws_ok (
+  sub { MyModule->load_optional_class('MyModule::ErrorComponent') },
+  qr/did not return a true value/,
+  'MyModule::ErrorComponent threw ok'
+);
+
+eval { MyModule->load_optional_class('ENDS::WITH::COLONS::') };
+like( $@, qr/Invalid class name 'ENDS::WITH::COLONS::'/, 'Throw on Class::' );
+
+# Simulate a PAR environment
+{ 
+  my @code;
+  local @INC = @INC;
+  unshift @INC, sub {
+    if ($_[1] eq 'VIRTUAL/PAR/PACKAGE.pm') {
+      return (sub { return 0 unless @code; $_ = shift @code; 1; } );
+    }
+    else {
+      return ();
+    }
+  };
+
+  $retval = eval { MyModule->load_optional_class('FAKE::PAR::PACKAGE') };
+  ok( !$@, 'load_optional_class on a nonexistent PAR class did not throw' );
+  ok( !$retval, 'nonexistent PAR package not loaded' );
+  
+
+  # simulate a class which does load but does not return true
+  @code = (
+    q/package VIRTUAL::PAR::PACKAGE;/,
+    q/0;/,
+  );
+
+  $retval = eval { MyModule->load_optional_class('VIRTUAL::PAR::PACKAGE') };
+  ok( $@, 'load_optional_class of a no-true-returning PAR module did throw' );
+  ok( !$retval, 'no-true-returning PAR package not loaded' );
+  
+  # simulate a normal class (no one adjusted %INC so it will be tried again
+  @code = (
+    q/package VIRTUAL::PAR::PACKAGE;/,
+    q/1;/,
+  );
+
+  $retval = eval { MyModule->load_optional_class('VIRTUAL::PAR::PACKAGE') };
+  ok( !$@, 'load_optional_class of a PAR module did not throw' );
+  ok( $retval, 'PAR package "loaded"' );
+  
+  # see if we can still load stuff with the coderef present
+  $retval = eval { MyModule->load_optional_class('AnotherModule') };
+  ok( !$@, 'load_optional_class did not throw' ) || diag $@;
+  ok( $retval, 'AnotherModule loaded' );
+}