|
Lines 25-31
use Module::Load::Conditional qw/check_install/;
Link Here
|
| 25 |
|
25 |
|
| 26 |
BEGIN { |
26 |
BEGIN { |
| 27 |
if ( check_install( module => 'Test::DBIx::Class' ) ) { |
27 |
if ( check_install( module => 'Test::DBIx::Class' ) ) { |
| 28 |
plan tests => 31; |
28 |
plan tests => 32; |
| 29 |
} else { |
29 |
} else { |
| 30 |
plan skip_all => "Need Test::DBIx::Class" |
30 |
plan skip_all => "Need Test::DBIx::Class" |
| 31 |
} |
31 |
} |
|
Lines 138-141
subtest 'getFacets() tests' => sub {
Link Here
|
| 138 |
); |
138 |
); |
| 139 |
}; |
139 |
}; |
| 140 |
|
140 |
|
| 141 |
1; |
141 |
subtest 'GetKohaAuthorisedValues() tests' => sub { |
|
|
142 |
plan tests => 6; |
| 143 |
my $values; |
| 144 |
is( C4::Koha::GetKohaAuthorisedValues('','','',''), undef, 'Test GetKohaAuthorisedValues with empty parameters values'); |
| 145 |
|
| 146 |
my $dbh = C4::Context->dbh; |
| 147 |
my $sth = $dbh->prepare("INSERT INTO authorised_values (category,authorised_value,lib,lib_opac) VALUES (?, ?, ?, ?)"); |
| 148 |
my $sth1 = $dbh->prepare("INSERT INTO marc_subfield_structure VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"); |
| 149 |
|
| 150 |
$sth->execute('TESTMODE','TestDebit','TestDebitstaff','TestDebitopac'); |
| 151 |
$sth->execute('TESTMODE','TestCC','TestCCstaff','TestCCopac'); |
| 152 |
$sth->execute('TESTFIELD','TestCC','TestCCstaff','TestCCopac'); |
| 153 |
$sth1->execute(999,'z','Test','Test',0,0,'TestFieldKoha',10,'TESTMODE','','',0,0,'','','','',9999); |
| 154 |
|
| 155 |
$values = C4::Koha::GetKohaAuthorisedValues('TestFieldKoha'); |
| 156 |
ok($values->{TestCC} eq 'TestCCstaff','GetKohaAuthorisedValues return the correct value when put kohafield parameter and empty for other parameters'); |
| 157 |
|
| 158 |
is (C4::Koha::GetKohaAuthorisedValues('TestFieldNotExist'), undef ,'GetKohaAuthorisedValues return undef when kohafield not exist'); |
| 159 |
|
| 160 |
$values = C4::Koha::GetKohaAuthorisedValues('','','','TESTMODE'); |
| 161 |
ok(keys %$values eq 2,'GetKohaAuthorisedValues return the correct number of result'); |
| 162 |
ok($values->{TestCC} eq 'TestCCstaff','GetKohaAuthorisedValues return a correct value when put category parameter and empty for other parameters'); |
| 163 |
|
| 164 |
$values = C4::Koha::GetKohaAuthorisedValues('','',1,'TESTMODE'); |
| 165 |
ok($values->{TestDebit} eq 'TestDebitopac','GetKohaAuthorisedValues return a correct value when put category,opac parameter and empty for other parameters'); |
| 166 |
}; |
| 167 |
|
| 168 |
-1; |
| 142 |
- |
|
|