3 # Copyright 2011 MJ Ray and software.coop
4 # This Koha test module is a stub!
5 # Add more tests here!!!
9 use Test::More tests => 5;
11 # We need C4::Dates to handle the dates
20 # FIXME: are we sure there is an member number 1?
21 # FIXME: can we remove this log entry somehow?
22 logaction("MEMBERS","MODIFY",1,"test operation");
28 ok($success, "logaction seemed to work");
31 # FIXME: US formatted date hardcoded into test for now
32 $success = scalar(@{GetLogs("","","",undef,undef,"","")});
37 ok($success, "GetLogs returns results for an open search");
40 # FIXME: US formatted date hardcoded into test for now
41 my $date = C4::Dates->new();
42 $success = scalar(@{GetLogs($date->today(),$date->today(),"",undef,undef,"","")});
47 ok($success, "GetLogs accepts dates in an All-matching search");
50 $success = scalar(@{GetLogs("","","",["MEMBERS"],["MODIFY"],1,"")});
55 ok($success, "GetLogs seemed to find ".$success." like our test record in a tighter search");