a36b3ad43a
This makes the POD for the columns() function consistent with the rest of C4/Members.pm. It also removes a note that can be relegated to the bug report and the Git history. Also, since C4::Members::columns() is not actually a class method, this patch changes the invocation to not call it that way. Signed-off-by: Galen Charlton <gmc@esilibrary.com>
24 lines
492 B
Perl
24 lines
492 B
Perl
#!/usr/bin/perl
|
|
#
|
|
# This is to test C4/Members
|
|
# It requires a working Koha database with the sample data
|
|
|
|
use Modern::Perl;
|
|
|
|
use Test::More tests => 2;
|
|
|
|
BEGIN {
|
|
use_ok('C4::Members');
|
|
}
|
|
|
|
my @borrowers_columns = C4::Members::columns;
|
|
ok(
|
|
$#borrowers_columns > 1,
|
|
'C4::Member->column returned a reasonable number of columns ('
|
|
. ( $#borrowers_columns + 1 ) . ')'
|
|
)
|
|
or diag(
|
|
'WARNING: Check that the borrowers table exists and has the correct fields defined.'
|
|
);
|
|
|
|
exit;
|