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=c2535d26d07eb3880b103b3ccf194b7bbf691e81;hp=47994c510f8a4e1a970ec32ca3b042d6e8ea893f;hb=b114ef4764de1bc4f492ba9832b3bae3eba2e17c;hpb=e7399d8baa841cb6525daa2c20d88f70ba42474c diff --git a/t/unit_utils_load_class.t b/t/unit_utils_load_class.t index 47994c5..c2535d2 100644 --- a/t/unit_utils_load_class.t +++ b/t/unit_utils_load_class.t @@ -1,12 +1,17 @@ use strict; use warnings; -use Test::More tests => 18; +use Test::More; use Class::Load 'is_class_loaded'; - use lib "t/lib"; -BEGIN { use_ok("Catalyst::Utils") }; +BEGIN { + if ($^O =~ m/^MSWin/) { + plan skip_all => 'Skipping this test on Windows until someone with Windows has time to fix it'; + } + + use_ok("Catalyst::Utils"); +} { package This::Module::Is::Not::In::Inc::But::Does::Exist; @@ -54,7 +59,7 @@ is( $@, "foo", '$@ is untouched' ); undef $@; eval { Catalyst::Utils::ensure_class_loaded("This::Module::Is::Not::In::Inc::But::Does::Exist") }; -ok( !$@, "no error when loading non existent .pm that *does* have a symbol table entry" ); +ok( !$@, "no error when loading non existent .pm that *does* have a symbol table entry" ); undef $@; eval { Catalyst::Utils::ensure_class_loaded('Silly::File::.#Name') }; @@ -70,3 +75,4 @@ Catalyst::Utils::ensure_class_loaded("NullPackage"); is( $warnings, 1, 'Loading a package which defines no symbols warns'); is( $@, undef, '$@ still undef' ); +done_testing;