t/db_dependent/Members_columns.t

   1 #!/usr/bin/perl
   2 #
   3 # This is to test C4/Members
   4 # It requires a working Koha database with the sample data
   5
   6 use Modern::Perl;
   7
   8 use Test::More tests => 2;
   9
  10 BEGIN {
  11     use_ok('C4::Members');
  12 }
  13
  14 my @borrowers_columns = C4::Members->columns;
  15 ok(
  16     $#borrowers_columns > 1,
  17     'C4::Member->column returned a reasonable number of columns ('
  18       . ( $#borrowers_columns + 1 ) . ')'
  19   )
  20   or diag(
  21 'WARNING: Check that the borrowers table exists and has the correct fields defined.'
  22   );
  23
  24 exit;