|
Lines 1-7
Link Here
|
| 1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
use Test::More tests => 15; |
4 |
use Test::More tests => 16; |
| 5 |
|
5 |
|
| 6 |
use C4::Context; |
6 |
use C4::Context; |
| 7 |
use Koha::AuthorisedValue; |
7 |
use Koha::AuthorisedValue; |
|
Lines 225-227
subtest 'search_by_*_field + find_by_koha_field + get_description' => sub {
Link Here
|
| 225 |
); |
225 |
); |
| 226 |
}; |
226 |
}; |
| 227 |
}; |
227 |
}; |
| 228 |
- |
228 |
sub GetAuthValues { |
|
|
229 |
require Test::More; |
| 230 |
my $dbh = C4::Context->dbh; |
| 231 |
my ($self, $authcat) = @_; |
| 232 |
my $query = qq{ SELECT * FROM authorised_values WHERE category=? order by lib }; |
| 233 |
my $sth = $dbh->prepare($query); |
| 234 |
$sth->execute($authcat); |
| 235 |
my $AuthValue = 0; |
| 236 |
if ($sth->rows > 0) { |
| 237 |
$AuthValue = 1; |
| 238 |
} |
| 239 |
return $AuthValue; |
| 240 |
}; |
| 241 |
my $AuthValues = GetAuthValues('av_for_testing'); |
| 242 |
is ( $AuthValues,0, 'Does not exist in the database: Test successful'); |
| 243 |
|
| 244 |
sub GetDistinctCat { |
| 245 |
require Test::More; |
| 246 |
my $dbh = C4::Context->dbh; |
| 247 |
my ($self, $dbh) = @_; |
| 248 |
my $sth = $dbh->prepare("select distinct category from authorised_values where category like 'A%' "); |
| 249 |
$sth->execute; |
| 250 |
return $sth; |
| 251 |
my $DistAuth = 0; |
| 252 |
if ($sth->rows > 0){ |
| 253 |
$DistAuth = 1; |
| 254 |
} |
| 255 |
return $DistAuth; |
| 256 |
}; |
| 257 |
my $DistAuth = GetDistinctCat(); |
| 258 |
is ( $DistAuth, 0, 'Does not exist in the database successful'); |
| 259 |
|
| 260 |
|
| 261 |
|
| 262 |
|
| 263 |
|
| 264 |
|