t/Log.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests => 3;
  10 use t::lib::Mocks;
  11
  12 BEGIN {
  13         use_ok('C4::Log');
  14 }
  15
  16 t::lib::Mocks::mock_preference('BorrowersLog', 1);
  17 t::lib::Mocks::mock_preference('CataloguingLog', 1);
  18 t::lib::Mocks::mock_preference('IssueLog', 1);
  19 t::lib::Mocks::mock_preference('ReturnLog', 1);
  20 t::lib::Mocks::mock_preference('SubscriptionLog', 1);
  21 t::lib::Mocks::mock_preference('LetterLog', 1);
  22 t::lib::Mocks::mock_preference('FinesLog', 1);
  23
  24 ok( my $hash=GetLogStatus(),"Testing GetLogStatus");
  25
  26 ok( $hash->{BorrowersLog}, 'Testing hash is non empty');