From d43e0a3e101f48b8fbea5b17dfa1dd1f07defd6d Mon Sep 17 00:00:00 2001 From: Maarten Vanraes Date: Sat, 1 Aug 2015 09:52:18 +0200 Subject: Logging: add a test case --- t/11-Shared-Logging.t | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 t/11-Shared-Logging.t (limited to 't') 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; -- cgit v1.2.1