t/db_dependent/Template/Plugin/Categories.t

   1 use Modern::Perl;
   2
   3 use Test::More tests => 5;
   4
   5 use C4::Context;
   6 use Koha::Template::Plugin::Categories;
   7
   8 my $dbh = C4::Context->dbh;
   9 $dbh->{AutoCommit} = 0;
  10 $dbh->{RaiseError} = 1;
  11
  12 my @categories = Koha::Template::Plugin::Categories->new->all;
  13 isnt( scalar( @categories ), 0, 'Plugin Categories should return categories' );
  14 my $selected_categories = [ grep { $_->{selected} } @categories ];
  15 is( scalar( @$selected_categories ), 0, 'Plugin Categories should not select one if not given' );
  16
  17 my $category = $categories[-1];
  18 @categories = Koha::Template::Plugin::Categories->new->all({selected => $category->{categorycode}});
  19 isnt( scalar( @categories ), 0, 'Plugin Categories should return categories if selected needed' );
  20 $selected_categories = [ grep { $_->{selected} } @categories ];
  21 is( scalar( @$selected_categories ), 1, 'Plugin Categories should select only 1 category' );
  22 is( $selected_categories->[0]->{categorycode}, $category->{categorycode}, 'Plugin Categories should select the good one' );