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=47994c510f8a4e1a970ec32ca3b042d6e8ea893f;hp=6712f6749b700ed8d1a5336036f9aa06e6df045a;hb=55f8e5163b1f5c502b92a9976350c611610c80e3;hpb=9af4ee013b23e7241d4664ea39952fa3b20f4b7f diff --git a/t/unit_utils_load_class.t b/t/unit_utils_load_class.t index 6712f67..47994c5 100644 --- a/t/unit_utils_load_class.t +++ b/t/unit_utils_load_class.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More tests => 18; -use Class::MOP; +use Class::Load 'is_class_loaded'; use lib "t/lib"; @@ -19,11 +19,11 @@ $SIG{__WARN__} = sub { $warnings++; }; -ok( !Class::MOP::is_class_loaded("TestApp::View::Dump"), "component not yet loaded" ); +ok( !is_class_loaded("TestApp::View::Dump"), "component not yet loaded" ); Catalyst::Utils::ensure_class_loaded("TestApp::View::Dump"); -ok( Class::MOP::is_class_loaded("TestApp::View::Dump"), "loaded ok" ); +ok( is_class_loaded("TestApp::View::Dump"), "loaded ok" ); is( $warnings, 0, "no warnings emitted" ); $warnings = 0; @@ -31,10 +31,10 @@ $warnings = 0; Catalyst::Utils::ensure_class_loaded("TestApp::View::Dump"); is( $warnings, 0, "calling again doesn't reaload" ); -ok( !Class::MOP::is_class_loaded("TestApp::View::Dump::Request"), "component not yet loaded" ); +ok( !is_class_loaded("TestApp::View::Dump::Request"), "component not yet loaded" ); Catalyst::Utils::ensure_class_loaded("TestApp::View::Dump::Request"); -ok( Class::MOP::is_class_loaded("TestApp::View::Dump::Request"), "loaded ok" ); +ok( is_class_loaded("TestApp::View::Dump::Request"), "loaded ok" ); is( $warnings, 0, "calling again doesn't reaload" );