view release on metacpan or  search on metacpan

t/0002-debug.t  view on Meta::CPAN

# object tests
isa_ok($debug,      'Akamai::Open::Debug');
isa_ok($clone,      'Akamai::Open::Debug');

# functional tests
is($debug, $clone,                  'test for a singleton object');
ok($debug->logger->debug('foo'),    'print a message of priority DEBUG');
ok($debug->logger->info('foo'),     'print a message of priority INFO');
ok($debug->logger->warn('foo'),     'print a message of priority WARN');
ok($debug->logger->error('foo'),    'print a message of priority ERROR');
ok($debug->logger->fatal('foo'),    'print a message of priority FATAL');

done_testing;