View | Details | Raw Unified | Return to bug 5327
Collapse All | Expand All

(-)a/t/db_dependent/SQLHelper.t (-6 / +1 lines)
Lines 10-16 use YAML; Link Here
10
use C4::Debug;
10
use C4::Debug;
11
use C4::SQLHelper qw(:all);
11
use C4::SQLHelper qw(:all);
12
12
13
use Test::More tests => 22;
13
use Test::More tests => 20;
14
14
15
use_ok('C4::SQLHelper');
15
use_ok('C4::SQLHelper');
16
16
Lines 50-61 $borrowers=SearchInTable("borrowers",["Valjean",{firstname=>"Jean"}],undef,undef Link Here
50
ok(keys %{$$borrowers[0]} ==1, "Search In Table columns out limit");
50
ok(keys %{$$borrowers[0]} ==1, "Search In Table columns out limit");
51
$borrowers=SearchInTable("borrowers",["Valjean",{firstname=>"Jean"}],undef,undef,[qw(borrowernumber)],[qw(firstname surname title)]);
51
$borrowers=SearchInTable("borrowers",["Valjean",{firstname=>"Jean"}],undef,undef,[qw(borrowernumber)],[qw(firstname surname title)]);
52
ok(@$borrowers>0, "Search In Table columns out limit to borrowernumber AND filter firstname surname title");
52
ok(@$borrowers>0, "Search In Table columns out limit to borrowernumber AND filter firstname surname title");
53
$borrowers=SearchInTable("borrowers",["Valjean",{firstname=>"Jean"}],undef,undef,[qw(borrowernumber)],[qw(firstname title)]);
54
ok(@$borrowers==0, "Search In Table columns filter firstname title limit Valjean not in other fields than surname ");
55
$borrowers=SearchInTable("borrowers",["Val",{firstname=>"Jean"}],undef,undef,[qw(borrowernumber)],[qw(surname)],"start_with");
53
$borrowers=SearchInTable("borrowers",["Val",{firstname=>"Jean"}],undef,undef,[qw(borrowernumber)],[qw(surname)],"start_with");
56
ok(@$borrowers>0, "Search In Table columns filter surname  Val on a wide search found ");
54
ok(@$borrowers>0, "Search In Table columns filter surname  Val on a wide search found ");
57
$borrowers=SearchInTable("borrowers",["Val",{firstname=>"Jean"}],undef,undef,[qw(borrowernumber)],[qw(surname)],"exact");
58
ok(@$borrowers==0, "Search In Table columns filter surname  Val in exact search not found ");
59
$borrowers=eval{SearchInTable("borrowers",["Val",{member=>"Jean"}],undef,undef,[qw(borrowernumber)],[qw(firstname title)],"exact")};
55
$borrowers=eval{SearchInTable("borrowers",["Val",{member=>"Jean"}],undef,undef,[qw(borrowernumber)],[qw(firstname title)],"exact")};
60
ok(@$borrowers==0 && !($@), "Search In Table fails gracefully when no correct field passed in hash");
56
ok(@$borrowers==0 && !($@), "Search In Table fails gracefully when no correct field passed in hash");
61
$borrowers=eval{SearchInTable("borrowers",["Jea"],undef,undef,undef,[qw(firstname surname borrowernumber)],"start_with")};
57
$borrowers=eval{SearchInTable("borrowers",["Jea"],undef,undef,undef,[qw(firstname surname borrowernumber)],"start_with")};
62
- 

Return to bug 5327