Lines 161-167
sub test06 { #some extra tests for get
Link Here
|
161 |
sub test07 { #simple test for httpheaders and getCategories |
161 |
sub test07 { #simple test for httpheaders and getCategories |
162 |
my @hdrs = Koha::Upload->httpheaders('does_not_matter_yet'); |
162 |
my @hdrs = Koha::Upload->httpheaders('does_not_matter_yet'); |
163 |
is( @hdrs == 4 && $hdrs[1] =~ /application\/octet-stream/, 1, 'Simple test for httpheaders'); |
163 |
is( @hdrs == 4 && $hdrs[1] =~ /application\/octet-stream/, 1, 'Simple test for httpheaders'); |
164 |
$dbh->do("INSERT INTO authorised_values (category, authorised_value, lib) VALUES (?,?,?) ", undef, ( 'UPLOAD', 'HAVE_AT_LEAST_ONE', 'Hi there' )); |
164 |
my $builder = t::lib::TestBuilder->new; |
|
|
165 |
$builder->build({ source => 'AuthorisedValue', value => { category => 'UPLOAD', authorised_value => 'HAVE_AT_LEAST_ONE', lib => 'Hi there' } }); |
165 |
my $cat = Koha::Upload->getCategories; |
166 |
my $cat = Koha::Upload->getCategories; |
166 |
is( @$cat >= 1, 1, 'getCategories returned at least one category' ); |
167 |
is( @$cat >= 1, 1, 'getCategories returned at least one category' ); |
167 |
} |
168 |
} |
168 |
- |
|
|