t/db_dependent/Category.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests => 2;
  10
  11 BEGIN {
  12         use_ok('C4::Category');
  13 }
  14 use C4::Context;
  15 my $dbh = C4::Context->dbh;
  16 $dbh->{RaiseError} = 1;
  17 $dbh->{AutoCommit} = 0;
  18
  19 my $sth=$dbh->prepare("INSERT INTO categories  (categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,
  20 enrolmentfee,reservefee,hidelostitems,overduenoticerequired,category_type) values (?,?,?,?,?,?,?,?,?,?,?)");
  21 $sth->execute("test", "Desc", 12, "2014-01-02", 99, 1, 1.5, 2.5, 0, 0, "A") || die $sth->errstr;
  22 ok( my @categories = C4::Category->all);
  23
  24 $dbh->rollback;