diff options
Diffstat (limited to 't/001Level.t')
-rw-r--r-- | t/001Level.t | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/t/001Level.t b/t/001Level.t new file mode 100644 index 0000000..381d3f1 --- /dev/null +++ b/t/001Level.t @@ -0,0 +1,61 @@ +########################################### +# Test Suite for Log::Log4perl::Level +# Mike Schilli, 2002 (m@perlmeister.com) +########################################### + +######################### +# change 'tests => 1' to 'tests => last_test_to_print'; +######################### +use Test; +use strict; + +BEGIN { + if($ENV{INTERNAL_DEBUG}) { + require Log::Log4perl::InternalDebug; + Log::Log4perl::InternalDebug->enable(); + } +} + +BEGIN { plan tests => 34 }; +use Log::Log4perl::Level; +BEGIN { + Log::Log4perl::Level->import("Level"); + Log::Log4perl::Level->import("My::Level"); +} +ok(1); # If we made it this far, we're ok. + +# Import them into the 'main' namespace; +foreach ($TRACE, $DEBUG, $INFO, $WARN, $ERROR, $FATAL) { + ok(Log::Log4perl::Level::to_level($_)); +} + +# Import them into the 'Level' namespace; +foreach ($Level::TRACE, $Level::DEBUG, $Level::INFO, $Level::WARN, $Level::ERROR, $Level::FATAL) { + ok(Log::Log4perl::Level::to_level($_)); +} + +# Import them into the 'My::Level' namespace; +foreach ($My::Level::DEBUG, $My::Level::DEBUG, $My::Level::INFO, $My::Level::WARN, $My::Level::ERROR, $My::Level::FATAL) { + ok(Log::Log4perl::Level::to_level($_)); +} + +# ok, now let's check to make sure the relative order is correct. + +ok(Log::Log4perl::Level::isGreaterOrEqual($TRACE, $DEBUG)); +ok(Log::Log4perl::Level::isGreaterOrEqual($DEBUG, $INFO)); +ok(Log::Log4perl::Level::isGreaterOrEqual($INFO, $WARN)); +ok(Log::Log4perl::Level::isGreaterOrEqual($WARN, $ERROR)); +ok(Log::Log4perl::Level::isGreaterOrEqual($ERROR, $FATAL)); + +ok(Log::Log4perl::Level::isGreaterOrEqual($Level::TRACE, $Level::DEBUG)); +ok(Log::Log4perl::Level::isGreaterOrEqual($Level::DEBUG, $Level::INFO)); +ok(Log::Log4perl::Level::isGreaterOrEqual($Level::INFO, $Level::WARN)); +ok(Log::Log4perl::Level::isGreaterOrEqual($Level::WARN, $Level::ERROR)); +ok(Log::Log4perl::Level::isGreaterOrEqual($Level::ERROR, $Level::FATAL)); + +ok(Log::Log4perl::Level::isGreaterOrEqual($My::Level::TRACE, + $My::Level::DEBUG)); +ok(Log::Log4perl::Level::isGreaterOrEqual($My::Level::DEBUG, $My::Level::INFO)); +ok(Log::Log4perl::Level::isGreaterOrEqual($My::Level::INFO, $My::Level::WARN)); +ok(Log::Log4perl::Level::isGreaterOrEqual($My::Level::WARN, $My::Level::ERROR)); +ok(Log::Log4perl::Level::isGreaterOrEqual($My::Level::ERROR, $My::Level::FATAL)); |