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 strict;
   7 use warnings;
   8
   9 use Test::More tests => 16;
  10 use Data::Dumper;
  11
  12 BEGIN {
  13     use_ok('C4::Context');
  14     use_ok('C4::CourseReserves', qw/:all/);
  15 }
  16
  17 my $dbh = C4::Context->dbh;
  18 $dbh->do("TRUNCATE TABLE course_instructors");
  19 $dbh->do("TRUNCATE TABLE courses");
  20 $dbh->do("TRUNCATE TABLE course_reserves");
  21
  22 my $sth = $dbh->prepare("SELECT * FROM borrowers ORDER BY RAND() LIMIT 10");
  23 $sth->execute();
  24 my @borrowers = @{ $sth->fetchall_arrayref( {} ) };
  25
  26 $sth = $dbh->prepare("SELECT * FROM items ORDER BY RAND() LIMIT 10");
  27 $sth->execute();
  28 my @items = @{ $sth->fetchall_arrayref( {} ) };
  29
  30 my $course_id = ModCourse(
  31     course_name => "Test Course",
  32     staff_note  => "Test staff note",
  33     public_note => "Test public note",
  34 );
  35
  36 ok( $course_id, "ModCourse created course successfully" );
  37
  38 $course_id = ModCourse(
  39     course_id  => $course_id,
  40     staff_note => "Test staff note 2",
  41 );
  42
  43 my $course = GetCourse($course_id);
  44
  45 ok( $course->{'course_name'} eq "Test Course",       "GetCourse returned correct course" );
  46 ok( $course->{'staff_note'}  eq "Test staff note 2", "ModCourse updated course succesfully" );
  47
  48 my $courses = GetCourses();
  49 ok( $courses->[0]->{'course_name'} eq "Test Course", "GetCourses returns valid array of course data" );
  50
  51 ModCourseInstructors( mode => 'add', course_id => $course_id, borrowernumbers => [ $borrowers[0]->{'borrowernumber'} ] );
  52 $course = GetCourse($course_id);
  53 ok( $course->{'instructors'}->[0]->{'borrowernumber'} == $borrowers[0]->{'borrowernumber'}, "ModCourseInstructors added instructors correctly" );
  54
  55 my $course_instructors = GetCourseInstructors($course_id);
  56 ok( $course_instructors->[0]->{'borrowernumber'} eq $borrowers[0]->{'borrowernumber'}, "GetCourseInstructors returns valid data" );
  57
  58 my $ci_id = ModCourseItem( 'itemnumber' => $items[0]->{'itemnumber'} );
  59 ok( $ci_id, "ModCourseItem returned valid data" );
  60
  61 my $course_item = GetCourseItem( 'ci_id' => $ci_id );
  62 ok( $course_item->{'itemnumber'} eq $items[0]->{'itemnumber'}, "GetCourseItem returns valid data" );
  63
  64 my $cr_id = ModCourseReserve( 'course_id' => $course_id, 'ci_id' => $ci_id );
  65 ok( $cr_id, "ModCourseReserve returns valid data" );
  66
  67 my $course_reserve = GetCourseReserve( 'course_id' => $course_id, 'ci_id' => $ci_id );
  68 ok( $course_reserve->{'cr_id'} eq $cr_id, "GetCourseReserve returns valid data" );
  69
  70 my $course_reserves = GetCourseReserves( 'course_id' => $course_id );
  71 ok( $course_reserves->[0]->{'ci_id'} eq $ci_id, "GetCourseReserves returns valid data." );
  72
  73 my $info = GetItemCourseReservesInfo( itemnumber => $items[0]->{'itemnumber'} );
  74 ok( $info->[0]->{'itemnumber'} eq $items[0]->{'itemnumber'}, "GetItemReservesInfo returns valid data." );
  75
  76 DelCourseReserve( 'cr_id' => $cr_id );
  77 $course_reserve = GetCourseReserve( 'cr_id' => $cr_id );
  78 ok( !defined( $course_reserve->{'cr_id'} ), "DelCourseReserve functions correctly" );
  79
  80 DelCourse($course_id);
  81 $course = GetCourse($course_id);
  82 ok( !defined( $course->{'course_id'} ), "DelCourse deleted course successfully" );
  83
  84 $dbh->do("TRUNCATE TABLE course_instructors");
  85 $dbh->do("TRUNCATE TABLE courses");
  86 $dbh->do("TRUNCATE TABLE course_reserves");
  87
  88 exit;