Lines Matching refs:Log
2 # Test Suite for Log::Log4perl::Level
14 require Log::Log4perl::InternalDebug;
15 Log::Log4perl::InternalDebug->enable();
20 use Log::Log4perl::Level;
22 Log::Log4perl::Level->import("Level");
23 Log::Log4perl::Level->import("My::Level");
29 ok(Log::Log4perl::Level::to_level($_));
34 ok(Log::Log4perl::Level::to_level($_));
39 ok(Log::Log4perl::Level::to_level($_));
44 ok(Log::Log4perl::Level::isGreaterOrEqual($TRACE, $DEBUG));
45 ok(Log::Log4perl::Level::isGreaterOrEqual($DEBUG, $INFO));
46 ok(Log::Log4perl::Level::isGreaterOrEqual($INFO, $WARN));
47 ok(Log::Log4perl::Level::isGreaterOrEqual($WARN, $ERROR));
48 ok(Log::Log4perl::Level::isGreaterOrEqual($ERROR, $FATAL));
50 ok(Log::Log4perl::Level::isGreaterOrEqual($Level::TRACE, $Level::DEBUG));
51 ok(Log::Log4perl::Level::isGreaterOrEqual($Level::DEBUG, $Level::INFO));
52 ok(Log::Log4perl::Level::isGreaterOrEqual($Level::INFO, $Level::WARN));
53 ok(Log::Log4perl::Level::isGreaterOrEqual($Level::WARN, $Level::ERROR));
54 ok(Log::Log4perl::Level::isGreaterOrEqual($Level::ERROR, $Level::FATAL));
56 ok(Log::Log4perl::Level::isGreaterOrEqual($My::Level::TRACE,
58 ok(Log::Log4perl::Level::isGreaterOrEqual($My::Level::DEBUG, $My::Level::INFO));
59 ok(Log::Log4perl::Level::isGreaterOrEqual($My::Level::INFO, $My::Level::WARN));
60 ok(Log::Log4perl::Level::isGreaterOrEqual($My::Level::WARN, $My::Level::ERROR));
61 ok(Log::Log4perl::Level::isGreaterOrEqual($My::Level::ERROR, $My::Level::FATAL));