@@ -, +, @@ --- Koha/Object.pm | 2 +- t/db_dependent/Koha/Object.t | 7 ++++++- 2 files changed, 7 insertions(+), 2 deletions(-) --- a/Koha/Object.pm +++ a/Koha/Object.pm @@ -237,7 +237,7 @@ sub AUTOLOAD { } } - my @known_methods = qw( is_changed id in_storage ); + my @known_methods = qw( is_changed id in_storage get_column ); carp "The method $method is not covered by tests or does not exist!" and return unless grep {/^$method$/} @known_methods; --- a/t/db_dependent/Koha/Object.t +++ a/t/db_dependent/Koha/Object.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 5; +use Test::More tests => 6; use Test::Warn; use C4::Context; @@ -84,4 +84,9 @@ subtest 'id' => sub { is( $patron->id, $patron->borrowernumber ); }; +subtest 'get_column' => sub { + plan tests => 1; + my $patron = Koha::Patron->new({categorycode => $categorycode, branchcode => $branchcode })->store; + is( $patron->get_column('borrowernumber'), $patron->borrowernumber, 'get_column should retrieve the correct value' ); +}; 1; --