3 # This is to test C4/Members
4 # It requires a working Koha database with the sample data
9 use Test::More tests => 15;
12 use_ok('C4::Members');
16 # Make a borrower for testing
17 my $data = { cardnumber => 'TESTCARD01',
19 surname => 'Mcknight',
24 my $addmem=AddMember(%$data);
27 my $member=GetMemberDetails("","TESTCARD01");
28 is ($member->{firstname}, "Marie", "Got member");
30 $member->{firstname}="Claire";
32 my $changedmember=GetMemberDetails("","TESTCARD01");
33 is ($changedmember->{firstname}, "Claire", "Member Changed");
35 $member->{firstname}="Marie";
37 $changedmember=GetMemberDetails("","TESTCARD01");
38 is ($changedmember->{firstname}, "Marie", "Member Returned");
40 $member->{email}="Marie\@email.com";
42 $changedmember=GetMemberDetails("","TESTCARD01");
43 is ($changedmember->{email}, "Marie\@email.com", "Email Set works");
45 $member->{ethnicity}="German";
47 $changedmember=GetMemberDetails("","TESTCARD01");
48 is ($changedmember->{ethnicity}, "German", "Ethnicity Works");
50 my @searchstring=("Mcknight");
51 my ($results) = Search(\@searchstring,undef,undef,undef,["surname"]);
52 is ($results->[0]->{surname}, "Mcknight", "Surname Search works");
54 $member->{phone}="555-12123";
57 @searchstring=("555-12123");
58 ($results) = Search(\@searchstring,undef,undef,undef,["phone"]);
59 is ($results->[0]->{phone}, "555-12123", "phone Search works");
61 my $checkcardnum=C4::Members::checkcardnumber("TESTCARD01", "");
62 is ($checkcardnum, "1", "Card No. in use");
64 $checkcardnum=C4::Members::checkcardnumber("67", "");
65 is ($checkcardnum, "0", "Card No. not used");
67 my $age=GetAge("1992-08-14", "2011-01-19");
68 is ($age, "18", "Age correct");
70 $age=GetAge("2011-01-19", "1992-01-19");
71 is ($age, "-19", "Birthday In the Future");
73 my $sortdet=C4::Members::GetSortDetails("lost", "3");
74 is ($sortdet, "Lost and Paid For", "lost and paid works");
76 my $sortdet2=C4::Members::GetSortDetails("loc", "child");
77 is ($sortdet2, "Children's Area", "Child area works");
79 my $sortdet3=C4::Members::GetSortDetails("withdrawn", "1");
80 is ($sortdet3, "Withdrawn", "Withdrawn works");
83 DelMember($member->{borrowernumber});