X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=t%2Flogging.t;h=d02014f6d4f905bab267b03596fd179cecc3f7c9;hp=4375cf95b891577341abe7def509e2c41f8161ff;hb=98bc05f5c9a8b6dcc25542bd808212eaea4944f6;hpb=b0ec7e3b19d47b9ba5a864f5077d0dc8030834cc diff --git a/t/logging.t b/t/logging.t index 4375cf9..d02014f 100644 --- a/t/logging.t +++ b/t/logging.t @@ -14,7 +14,10 @@ is($router, router(), 'Router object is a singleton'); my $levels = arg_levels(); is(ref($levels), 'ARRAY', 'arg_levels returns array reference'); -ok(scalar(@$levels) > 0, 'arg_levels has at least one level in it'); +is_deeply( + $levels, [qw( trace debug verbose info warn error fatal )], + 'arg_levels has correct names' +); #adds some noise into the string that's not significant just to be more thorough my $selections_string = "Acme::Matt::Daemon \t *\t\t-Acme::POE::Knee";