06720cd3cf
I changed getitemtypeimagedir to set a default on its argument so that it would not complain if not passed 'opac'. I improved the documentation on the method. I edited the t/icondirecotries.t test script to explicitly pass an argument to both getitemtypeimagedir calls. - and I adjusted one line of whitespace to make similar things look similar I added a test module for C4::Koha I added a test module for C4::Koha::getitemtypeimagedir. Signed-off-by: Joshua Ferraro <jmf@liblime.com>
51 lines
1 KiB
Perl
51 lines
1 KiB
Perl
package KohaTest::Koha;
|
|
use base qw( KohaTest );
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
use C4::Koha;
|
|
sub testing_class { 'C4::Koha' }
|
|
|
|
sub methods : Test( 1 ) {
|
|
my $self = shift;
|
|
my @methods = qw( slashifyDate
|
|
DisplayISBN
|
|
subfield_is_koha_internal_p
|
|
GetItemTypes
|
|
get_itemtypeinfos_of
|
|
GetCcodes
|
|
getauthtypes
|
|
getauthtype
|
|
getframeworks
|
|
getframeworkinfo
|
|
getitemtypeinfo
|
|
getitemtypeimagesrcfromurl
|
|
getitemtypeimagedir
|
|
getitemtypeimagesrc
|
|
_getImagesFromDirectory
|
|
_getSubdirectoryNames
|
|
getImageSets
|
|
GetPrinters
|
|
GetPrinter
|
|
getnbpages
|
|
getallthemes
|
|
getFacets
|
|
get_infos_of
|
|
get_notforloan_label_of
|
|
displayServers
|
|
displaySecondaryServers
|
|
GetAuthValCode
|
|
GetAuthorisedValues
|
|
GetAuthorisedValueCategories
|
|
GetKohaAuthorisedValues
|
|
GetManagedTagSubfields
|
|
display_marc_indicators
|
|
);
|
|
|
|
can_ok( $self->testing_class, @methods );
|
|
}
|
|
|
|
1;
|