From: Tyler Riddle <t.riddle@shadowcat.co.uk>
Date: Fri, 21 Dec 2012 22:11:47 +0000 (-0800)
Subject: logging test now checks to make sure arg_levels is correct
X-Git-Tag: v0.003001_01~23
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=commitdiff_plain;h=98bc05f5c9a8b6dcc25542bd808212eaea4944f6

logging test now checks to make sure arg_levels is correct
---

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";