[Catalyst-commits] r8551 - in Catalyst-Runtime/5.80/trunk: . t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-10-17 05:07:40 +0100 (Fri, 17 Oct 2008)
New Revision: 8551

Modified:
   Catalyst-Runtime/5.80/trunk/Makefile.PL
   Catalyst-Runtime/5.80/trunk/t/unit_utils_load_class.t
Log:
Stop using Class::Inspector in the testsuite.

Modified: Catalyst-Runtime/5.80/trunk/Makefile.PL
===================================================================
--- Catalyst-Runtime/5.80/trunk/Makefile.PL	2008-10-17 04:07:35 UTC (rev 8550)
+++ Catalyst-Runtime/5.80/trunk/Makefile.PL	2008-10-17 04:07:40 UTC (rev 8551)
@@ -32,7 +32,6 @@
 requires 'MRO::Compat';
 
 test_requires 'NEXT';
-test_requires 'Class::Inspector';
 test_requires 'Class::Data::Inheritable';
 
 if (   ( exists $ENV{AGGREGATE_TESTS} && !$ENV{AGGREGATE_TESTS})

Modified: Catalyst-Runtime/5.80/trunk/t/unit_utils_load_class.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_utils_load_class.t	2008-10-17 04:07:35 UTC (rev 8550)
+++ Catalyst-Runtime/5.80/trunk/t/unit_utils_load_class.t	2008-10-17 04:07:40 UTC (rev 8551)
@@ -4,7 +4,7 @@
 use warnings;
 
 use Test::More tests => 16;
-use Class::Inspector;
+use Class::MOP;
 
 use lib "t/lib";
 
@@ -18,11 +18,11 @@
 my $warnings = 0;
 $SIG{__WARN__} = sub { $warnings++ };
 
-ok( !Class::Inspector->loaded("TestApp::View::Dump"), "component not yet loaded" );
+ok( !Class::MOP::is_class_loaded("TestApp::View::Dump"), "component not yet loaded" );
 
 Catalyst::Utils::ensure_class_loaded("TestApp::View::Dump");
 
-ok( Class::Inspector->loaded("TestApp::View::Dump"), "loaded ok" );
+ok( Class::MOP::is_class_loaded("TestApp::View::Dump"), "loaded ok" );
 is( $warnings, 0, "no warnings emitted" );
 
 $warnings = 0;
@@ -30,10 +30,10 @@
 Catalyst::Utils::ensure_class_loaded("TestApp::View::Dump");
 is( $warnings, 0, "calling again doesn't reaload" );
 
-ok( !Class::Inspector->loaded("TestApp::View::Dump::Request"), "component not yet loaded" );
+ok( !Class::MOP::is_class_loaded("TestApp::View::Dump::Request"), "component not yet loaded" );
 
 Catalyst::Utils::ensure_class_loaded("TestApp::View::Dump::Request");
-ok( Class::Inspector->loaded("TestApp::View::Dump::Request"), "loaded ok" );
+ok( Class::MOP::is_class_loaded("TestApp::View::Dump::Request"), "loaded ok" );
 
 is( $warnings, 0, "calling again doesn't reaload" );