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;
18 # FIXME: are we sure there is an member number 1?
19 # FIXME: can we remove this log entry somehow?
20 logaction("MEMBERS","MODIFY",1,"test operation");
26 ok($success, "logaction seemed to work");
29 # FIXME: US formatted date hardcoded into test for now
30 $success = scalar(@{GetLogs("","","",undef,undef,"","")});
35 ok($success, "GetLogs returns results for an open search");
38 # FIXME: US formatted date hardcoded into test for now
39 $success = scalar(@{GetLogs("09/01/2011","10/01/2011","",undef,undef,"","")});
44 ok($success, "GetLogs accepts dates in an All-matching search");
47 $success = scalar(@{GetLogs("","","",["MEMBERS"],["MODIFY"],1,"")});
52 ok($success, "GetLogs seemed to find ".$success." like our test record in a tighter search");