diff options
-rw-r--r-- | t/11-Shared-Logging.t | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/t/11-Shared-Logging.t b/t/11-Shared-Logging.t new file mode 100644 index 00000000..5b18ae9c --- /dev/null +++ b/t/11-Shared-Logging.t @@ -0,0 +1,19 @@ +use 5.006; +use strict; +use warnings FATAL => 'all'; +use Test::More; +use Data::Dumper; + +BEGIN { + use_ok( 'ManaTools::Shared::Logging' ) || print "ManaTools::Shared::Logging failed!\n"; +} + +ok ( my $obj = ManaTools::Shared::Logging->new(), 'new_logging'); +diag Dumper($obj); +# check I,W,E,D +ok ( $obj->I("test info %d", 1), 'info_logging'); +ok ( $obj->W("test warning %d", 2), 'warning_logging'); +ok ( $obj->E("test err %d", 3), 'err_logging'); +ok ( $obj->D("test debug %d", 4), 'debug_logging'); + +done_testing; |