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

(-)a/Koha/Object.pm (-1 / +1 lines)
Lines 237-243 sub AUTOLOAD { Link Here
237
        }
237
        }
238
    }
238
    }
239
239
240
    my @known_methods = qw( is_changed id in_storage );
240
    my @known_methods = qw( is_changed id in_storage get_column );
241
241
242
    carp "The method $method is not covered by tests or does not exist!" and return unless grep {/^$method$/} @known_methods;
242
    carp "The method $method is not covered by tests or does not exist!" and return unless grep {/^$method$/} @known_methods;
243
243
(-)a/t/db_dependent/Koha/Object.t (-2 / +6 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::More tests => 6;
21
use Test::Warn;
21
use Test::Warn;
22
22
23
use C4::Context;
23
use C4::Context;
Lines 84-87 subtest 'id' => sub { Link Here
84
    is( $patron->id, $patron->borrowernumber );
84
    is( $patron->id, $patron->borrowernumber );
85
};
85
};
86
86
87
subtest 'get_column' => sub {
88
    plan tests => 1;
89
    my $patron = Koha::Patron->new({categorycode => $categorycode, branchcode => $branchcode })->store;
90
    is( $patron->get_column('borrowernumber'), $patron->borrowernumber, 'get_column should retrieve the correct value' );
91
};
87
1;
92
1;
88
- 

Return to bug 17226