X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Funit_utils_load_class.t;h=d23ca1c30bd62fa43150e7ed699f3a9f01319cba;hp=f8ce296b2298472f5861b98517aaf631d546bb2d;hb=b40d0b9e730bfb853665b90ba25d889f7bc9a163;hpb=fbedfd6b5429958bd65800beef2951db97ea50f2 diff --git a/t/unit_utils_load_class.t b/t/unit_utils_load_class.t index f8ce296..d23ca1c 100644 --- a/t/unit_utils_load_class.t +++ b/t/unit_utils_load_class.t @@ -4,7 +4,7 @@ use strict; use warnings; use Test::More tests => 16; -use Class::Inspector; +use Class::MOP; use lib "t/lib"; @@ -18,11 +18,11 @@ BEGIN { use_ok("Catalyst::Utils") }; 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 @@ $warnings = 0; 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" );