1 package KohaTest::Context::preference;
2 use base qw( KohaTest::Context );
10 sub testing_class { 'C4::Context' };
13 =head2 STARTUP METHODS
15 These get run once, before the main test methods in this module
23 =head3 preference_does_not_exist
27 sub preference_does_not_exist : Test( 1 ) {
30 my $missing = C4::Context->preference( 'doesnotexist' );
32 is( $missing, undef, 'a query for a missing syspref returns undef' )
33 or diag( Data::Dumper->Dump( [ $missing ], [ 'missing' ] ) );
38 =head3 version_preference
42 sub version_preference : Test( 1 ) {
45 my $version = C4::Context->preference( 'version' );
47 ok( $version, 'C4::Context->preference returns a good version number' )
48 or diag( Data::Dumper->Dump( [ $version ], [ 'version' ] ) );