t/db_dependent/lib/KohaTest/Biblio/get_biblio_authorised_values.pm

   1 package KohaTest::Biblio::get_biblio_authorised_values;
   2 use base qw( KohaTest::Biblio );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Biblio;
  10
  11 =head2 STARTUP METHODS
  12
  13 These get run once, before the main test methods in this module
  14
  15 =head3 insert_test_data
  16
  17 =cut
  18
  19 sub insert_test_data : Test( startup => 71 ) {
  20     my $self = shift;
  21
  22     # I'm going to add a bunch of biblios so that I can search for them.
  23     $self->add_biblios( count     => 10,
  24                         add_items => 1 );
  25
  26
  27 }
  28
  29 =head2 TEST METHODS
  30
  31 standard test methods
  32
  33 =head3 basic_test
  34
  35 basic usage.
  36
  37 =cut
  38
  39 sub basic_test : Test( 1 ) {
  40     my $self = shift;
  41
  42     ok( $self->{'biblios'}[0], 'we have a biblionumber' );
  43     my $authorised_values = C4::Biblio::get_biblio_authorised_values( $self->{'biblios'}[0] );
  44     diag( Data::Dumper->Dump( [ $authorised_values ], [ 'authorised_values' ] ) );
  45
  46 }
  47
  48 1;