t/db_dependent/CourseReserves.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 => 21;
   9
  10 use Koha::Database;
  11 use t::lib::TestBuilder;
  12
  13 BEGIN {
  14     use_ok('C4::Biblio');
  15     use_ok('C4::Context');
  16     use_ok('C4::CourseReserves', qw/:all/);
  17     use_ok('C4::Items', qw(AddItem));
  18     use_ok('MARC::Field');
  19     use_ok('MARC::Record');
  20 }
  21
  22 my $schema = Koha::Database->schema;
  23 $schema->storage->txn_begin;
  24 my $builder = t::lib::TestBuilder->new;
  25 my $dbh = C4::Context->dbh;
  26 $dbh->{RaiseError} = 1;
  27
  28 my $library = $builder->build({
  29     source => 'Branch',
  30 });
  31
  32 my $sth = $dbh->prepare("SELECT * FROM borrowers ORDER BY RAND() LIMIT 10");
  33 $sth->execute();
  34 my @borrowers = @{ $sth->fetchall_arrayref( {} ) };
  35
  36 # Create the item
  37 my $record = MARC::Record->new();
  38 $record->append_fields(
  39     MARC::Field->new( '952', '0', '0', a => $library->{branchcode}, b => $library->{branchcode} )
  40 );
  41 my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio($record, '');
  42 my @iteminfo = C4::Items::AddItem( { homebranch => $library->{branchcode}, holdingbranch => $library->{branchcode} }, $biblionumber );
  43 my $itemnumber = $iteminfo[2];
  44
  45 my $course_id = ModCourse(
  46     course_name => "Test Course",
  47     staff_note  => "Test staff note",
  48     public_note => "Test public note",
  49 );
  50
  51 ok( $course_id, "ModCourse created course successfully" );
  52
  53 $course_id = ModCourse(
  54     course_id  => $course_id,
  55     staff_note => "Test staff note 2",
  56 );
  57
  58 my $course = GetCourse($course_id);
  59
  60 ok( $course->{'course_name'} eq "Test Course",       "GetCourse returned correct course" );
  61 ok( $course->{'staff_note'}  eq "Test staff note 2", "ModCourse updated course succesfully" );
  62
  63 my $courses = GetCourses();
  64 is( ref($courses), 'ARRAY', "GetCourses returns an array" );
  65 my @match = map {$_->{course_name} eq 'Test Course'} @$courses;
  66 ok( scalar(@match) > 0, "GetCourses returns valid array of course data" );
  67
  68 ModCourseInstructors( mode => 'add', course_id => $course_id, borrowernumbers => [ $borrowers[0]->{'borrowernumber'} ] );
  69 $course = GetCourse($course_id);
  70 ok( $course->{'instructors'}->[0]->{'borrowernumber'} == $borrowers[0]->{'borrowernumber'}, "ModCourseInstructors added instructors correctly" );
  71
  72 my $course_instructors = GetCourseInstructors($course_id);
  73 ok( $course_instructors->[0]->{'borrowernumber'} eq $borrowers[0]->{'borrowernumber'}, "GetCourseInstructors returns valid data" );
  74
  75 my $ci_id = ModCourseItem( 'itemnumber' => $itemnumber );
  76 ok( $ci_id, "ModCourseItem returned valid data" );
  77
  78 my $course_item = GetCourseItem( 'ci_id' => $ci_id );
  79 ok( $course_item->{'itemnumber'} eq $itemnumber, "GetCourseItem returns valid data" );
  80
  81 my $cr_id = ModCourseReserve( 'course_id' => $course_id, 'ci_id' => $ci_id );
  82 ok( $cr_id, "ModCourseReserve returns valid data" );
  83
  84 my $course_reserve = GetCourseReserve( 'course_id' => $course_id, 'ci_id' => $ci_id );
  85 ok( $course_reserve->{'cr_id'} eq $cr_id, "GetCourseReserve returns valid data" );
  86
  87 my $course_reserves = GetCourseReserves( 'course_id' => $course_id );
  88 ok( $course_reserves->[0]->{'ci_id'} eq $ci_id, "GetCourseReserves returns valid data." );
  89
  90 my $info = GetItemCourseReservesInfo( itemnumber => $itemnumber );
  91 ok( $info->[0]->{'itemnumber'} eq $itemnumber, "GetItemReservesInfo returns valid data." );
  92
  93 DelCourseReserve( 'cr_id' => $cr_id );
  94 $course_reserve = GetCourseReserve( 'cr_id' => $cr_id );
  95 ok( !defined( $course_reserve->{'cr_id'} ), "DelCourseReserve functions correctly" );
  96
  97 DelCourse($course_id);
  98 $course = GetCourse($course_id);
  99 ok( !defined( $course->{'course_id'} ), "DelCourse deleted course successfully" );