View | Details | Raw Unified | Return to bug 17216
Collapse All | Expand All

(-)a/t/db_dependent/Koha.t (-2 / +6 lines)
Lines 7-12 use Modern::Perl; Link Here
7
use C4::Context;
7
use C4::Context;
8
use Koha::DateUtils qw(dt_from_string);
8
use Koha::DateUtils qw(dt_from_string);
9
use Koha::AuthorisedValue;
9
use Koha::AuthorisedValue;
10
use Koha::AuthorisedValueCategories;
10
11
11
use Test::More tests => 9;
12
use Test::More tests => 9;
12
use DateTime::Format::MySQL;
13
use DateTime::Format::MySQL;
Lines 31-37 subtest 'Authorized Values Tests' => sub { Link Here
31
        imageurl            => 'IMAGEURL'
32
        imageurl            => 'IMAGEURL'
32
    };
33
    };
33
34
34
35
    my $avc = Koha::AuthorisedValueCategories->find($data->{category});
36
    Koha::AuthorisedValueCategory->new({ category_name => $data->{category} })->store unless $avc;
35
# Insert an entry into authorised_value table
37
# Insert an entry into authorised_value table
36
    my $insert_success = Koha::AuthorisedValue->new(
38
    my $insert_success = Koha::AuthorisedValue->new(
37
        {   category         => $data->{category},
39
        {   category         => $data->{category},
Lines 61-66 subtest 'Authorized Values Tests' => sub { Link Here
61
    SKIP: {
63
    SKIP: {
62
        eval { require Test::Deep; import Test::Deep; };
64
        eval { require Test::Deep; import Test::Deep; };
63
        skip "Test::Deep required to run the GetAuthorisedValues() tests.", 2 if $@;
65
        skip "Test::Deep required to run the GetAuthorisedValues() tests.", 2 if $@;
66
        Koha::AuthorisedValueCategory->new({ category_name => 'BUG10656' })->store;
64
        Koha::AuthorisedValue->new(
67
        Koha::AuthorisedValue->new(
65
            {   category         => 'BUG10656',
68
            {   category         => 'BUG10656',
66
                authorised_value => 'ZZZ',
69
                authorised_value => 'ZZZ',
Lines 289-294 subtest 'GetFrameworksLoop() tests' => sub { Link Here
289
subtest 'GetItemTypesByCategory GetItemTypesCategorized test' => sub{
292
subtest 'GetItemTypesByCategory GetItemTypesCategorized test' => sub{
290
    plan tests => 7;
293
    plan tests => 7;
291
294
295
    my $avc = Koha::AuthorisedValueCategories->find('ITEMTYPECAT');
296
    Koha::AuthorisedValueCategory->new({ category_name => 'ITEMTYPECAT' })->store unless $avc;
292
    my $insertGroup = Koha::AuthorisedValue->new(
297
    my $insertGroup = Koha::AuthorisedValue->new(
293
        {   category         => 'ITEMTYPECAT',
298
        {   category         => 'ITEMTYPECAT',
294
            authorised_value => 'Quertyware',
299
            authorised_value => 'Quertyware',
295
- 

Return to bug 17216