/macosx-10.10.1/CPANInternal-159.1/Log-Log4perl-1.40/t/ |
H A D | 025CustLevels.t | 10 Log::Log4perl::InternalDebug->enable(); 100 # check a category logger 102 my $logger = Log::Log4perl->get_logger("groceries.beer"); 103 $logger->warn("this is a warning message"); 104 $logger->litewarn("this is a LITE warning message (2/3 the calories)"); 105 $logger->info("this info message should not log"); 116 # check the root logger 118 $logger->warn("this is a rootlevel warning message"); 119 $logger->litewarn("this is a rootlevel LITE warning message (2/3 the calories)"); 120 $logger [all...] |
H A D | 059Wrapper.t | 6 Log::Log4perl::InternalDebug->enable(); 60 my $logger; 62 $logger = get_logger(); 63 is $logger->{category}, "main", "imported get_logger()"; 65 $logger = get_logger( $pkg ); 66 is $logger->{category}, $pkgcat, "imported get_logger($pkg)"; 78 $logger = $func->(); 79 is $logger->{category}, "main", "$class\::()"; 81 $logger = $func->( $pkg ); 82 is $logger [all...] |
H A D | 054Subclass.t | 9 Log::Log4perl::InternalDebug->enable(); 28 my $logger = Mylogger->get_logger("Waah"); 29 is($logger->{category}, "Waah", "subclass category rt #32942");
|
H A D | 003Layout-Rr.t | 6 Log::Log4perl::InternalDebug->enable(); 38 my $logger = create_logger(); 42 $logger->info("Start"); 45 $logger->debug("Pause: 1 sec"); 48 $logger->info("Pause: 2 secs"); 51 $logger->debug("Pause: 1 sec"); 53 $logger->warn("End"); 112 # log4perl.logger.test = ALL, A, B 126 my $logger = Log::Log4perl->get_logger("test"); 127 $logger [all...] |
H A D | 008ConfCat.t | 9 Log::Log4perl::InternalDebug->enable(); 30 # Test a 'foo.bar.baz' logger which inherits level from foo.bar 37 my $logger = Log::Log4perl->get_logger("foo.bar.baz"); 38 $logger->debug("Gurgel"); 44 # Test the root logger via inheritance (discovered by Kevin Goess) 52 $logger = Log::Log4perl->get_logger("foo"); 53 $logger->debug("Gurgel");
|
H A D | 009Deuce.t | 10 Log::Log4perl::InternalDebug->enable(); 29 # Test the root logger on a configuration file defining a file appender 33 my $logger = Log::Log4perl->get_logger(""); 34 $logger->debug("Gurgel"); 42 # Test the root logger via inheritance (discovered by Kevin Goess) 49 $logger = Log::Log4perl->get_logger("foo"); 50 $logger->debug("Gurgel");
|
H A D | 003Layout.t | 9 Log::Log4perl::InternalDebug->enable(); 34 my $logger = Log::Log4perl->get_logger("abc.def.ghi"); 35 $logger->level($DEBUG); 36 $logger->add_appender($app); 41 $logger->debug("That's the message"); 54 $logger->debug("That's the message"); 64 $logger->debug("That's the message"); 74 $logger->debug("That's the message"); 91 $logger->debug("That's the message"); 99 $logger [all...] |
H A D | 028Additivity.t | 9 Log::Log4perl::InternalDebug->enable(); 28 # Define the root logger and another logger, additivity on 31 log4perl.logger = INFO, A1 32 log4perl.logger.Twix.Bar = DEBUG, A2 39 my $logger = get_logger("Twix::Bar"); 40 $logger->info("Percolate this!"); 51 # Define the root logger and another logger, additivity off 54 log4perl.logger [all...] |
H A D | 005Config-Perl.t | 9 Log::Log4perl::InternalDebug->enable(); 33 my $logger = Log::Log4perl->get_logger(""); 35 $logger->debug("Gurgel"); 52 $logger = Log::Log4perl->get_logger(""); 54 $logger->debug("Gurgel");
|
H A D | 006Config-Java.t | 9 Log::Log4perl::InternalDebug->enable(); 47 my $logger = Log::Log4perl->get_logger(""); 50 push @lines, $line++; $logger->debug("Gurgel"); 51 push @lines, $line++; $logger->info("Gurgel"); 52 push @lines, $line++; $logger->warn("Gurgel"); 53 push @lines, $line++; $logger->error("Gurgel"); 54 push @lines, $line++; $logger->fatal("Gurgel");
|
H A D | 007LogPrio.t | 9 Log::Log4perl::InternalDebug->enable(); 36 my $logger = Log::Log4perl->get_logger(""); 39 push @lines, $line++; $logger->debug("Gurgel"); 40 push @lines, $line++; $logger->info("Gurgel"); 41 push @lines, $line++; $logger->warn("Gurgel"); 42 push @lines, $line++; $logger->error("Gurgel"); 43 push @lines, $line++; $logger->fatal("Gurgel");
|
H A D | 015fltmsg.t | 10 Log::Log4perl::InternalDebug->enable(); 36 my $logger = Log::Log4perl->get_logger(""); 37 $logger->debug("Chunk1", "Chunk2", "Chunk3"); 54 $logger = Log::Log4perl->get_logger(""); 55 $logger->debug("Chunk1", "Chunk2", "Chunk3"); 73 $logger = Log::Log4perl->get_logger(""); 74 $logger->debug("Chunk1", "Chunk2", "Chunk3"); 91 $logger = Log::Log4perl->get_logger(""); 92 $logger->debug("Chunk1", "Chunk2", "Chunk3", "Chunk4"); 116 $logger [all...] |
H A D | 055AppDestroy.t | 10 Log::Log4perl::InternalDebug->enable(); 46 my $logger = get_logger(); 47 $logger->debug("foo");
|
H A D | 040Filter.t | 9 Log::Log4perl::InternalDebug->enable(); 25 log4perl.logger.Some = INFO, A1 34 # Define a logger 35 my $logger = Log::Log4perl->get_logger("Some.Where"); 38 $logger->info("Here's the info, let this through!"); 41 $logger->info("Here's the info, suppress this!"); 53 log4perl.logger.Some = INFO, A1 65 # Define a logger 66 $logger = Log::Log4perl->get_logger("Some.Where"); 69 $logger [all...] |
H A D | 024WarnDieCarp.t | 21 Log::Log4perl::InternalDebug->enable(); 102 # Get a logger and use it without having called init() first 168 my $logger = get_logger("Twix::Bar"); 171 eval { $logger->logdie("Log and die!"); }; 191 my $logger = get_logger("Twix::Bar"); 193 $logger->logcroak("Inferno!"); 196 my $logger = get_logger("Twix::Bar"); 198 $logger->logdie("Inferno!"); 223 my $logger = get_logger("Twix::Bar"); 225 $logger [all...] |
H A D | 022Wrap.t | 9 Log::Log4perl::InternalDebug->enable(); 31 # want anybody to do, but just to have a test case for a logger in a 121 my $logger = L4p::Wrapper::get_logger(); 122 is $logger->{category}, "main", "cat on () is main"; 124 $logger = L4p::Wrapper::get_logger(__PACKAGE__); 125 is $logger->{category}, "main", "cat on (__PACKAGE__) is main"; 127 $logger = L4p::Wrapper->get_logger(); 128 is $logger->{category}, "main", "cat on ->() is main"; 131 # print Dumper($logger);
|
H A D | 046RRDs.t | 9 Log::Log4perl::InternalDebug->enable(); 47 my $logger = get_logger(); 50 $logger->info($_);
|
H A D | 021AppThres.t | 9 Log::Log4perl::InternalDebug->enable(); 50 # Root logger's appender 95 log4perl.logger = ERROR, BUF0 96 log4perl.logger.a = INFO, BUF1 126 log4j.logger = ERROR, BUF0 127 log4j.logger.a = INFO, BUF1 153 log4j.logger = ERROR, BUF0 154 log4j.logger.a = INFO, BUF1 192 my $logger = get_logger(""); 194 $logger [all...] |
H A D | 029SysWide.t | 9 Log::Log4perl::InternalDebug->enable(); 33 log4perl.logger.a = INFO, BUF0 57 log4perl.logger = ERROR, BUF0 58 log4perl.logger.a = INFO, BUF1 97 my $logger = get_logger(); 98 $logger->info("Blah"); 119 $logger = get_logger(); 120 $logger->warn("Blah");
|
H A D | 053Resurrect.t | 9 Log::Log4perl::InternalDebug->enable(); 29 log4perl.logger = DEBUG, A1
|
H A D | 045Composite.t | 9 Log::Log4perl::InternalDebug->enable(); 59 my $logger = get_logger(""); 60 $logger->warn("This message will be sent immediately"); 61 $logger->warn("This message will be delayed by one hour."); 88 $logger = get_logger(""); 89 $logger->warn("This message will be queued but discarded on flush."); 118 $logger = get_logger(""); 119 $logger->warn("This message will be sent immediately"); 121 $logger->warn("This message will be discarded"); 155 $logger [all...] |
H A D | 016Export.t | 10 Log::Log4perl::InternalDebug->enable(); 34 # Init logger 39 my $logger = get_logger("abc.def"); 40 $logger->add_appender($app); 41 $logger->level($DEBUG); 43 # Let the next logger assume the default category, 52 # Use logger 61 # Use other logger 70 # Use main logger 79 # Use other logger [all...] |
H A D | 035JDBCAppender.t | 12 Log::Log4perl::InternalDebug->enable(); 72 #calculated at runtime and fed to the $logger->whatever(...) 110 # check a category logger 112 my $logger = Log::Log4perl->get_logger("groceries.beer"); 114 #$logger->fatal('fatal message',1234,'foo','bar'); 115 $logger->fatal('fatal message',1234,'foo', 'bar'); 116 $logger->warn('warning message',3456,'foo','bar'); 117 $logger->debug('debug message',99,'foo','bar');
|
H A D | 050Buffer.t | 9 Log::Log4perl::InternalDebug->enable(); 68 my $logger = Log::Log4perl->get_logger('triggertest'); 69 $logger->debug("This message gets buffered."); 72 $logger->info("This message gets buffered also."); 75 $logger->error("This message triggers a buffer flush.");
|
H A D | 004Config.t | 9 Log::Log4perl::InternalDebug->enable(); 31 # Test the root logger on a configuration file defining a file appender 35 my $logger = Log::Log4perl->get_logger(""); 36 $logger->debug("Gurgel"); 40 qr#^\d+\s+\[N/A\] DEBUG N/A - Gurgel$#, "Root logger"); 43 # Test the root logger via inheritance (discovered by Kevin Goess) 49 $logger = Log::Log4perl->get_logger("foo"); 50 $logger->debug("Gurgel"); 53 qr#^\d+\s+\[N/A\] DEBUG foo N/A - Gurgel$#, "Root logger inherited"); 67 $logger [all...] |