Bug 9259: Use is instead of is_deeply
[koha.git] / 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 => 26;
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     enabled   => 'no',
57 );
58
59 my $course = GetCourse($course_id);
60
61 ok( $course->{'course_name'} eq "Test Course",       "GetCourse returned correct course" );
62 ok( $course->{'staff_note'}  eq "Test staff note 2", "ModCourse updated course succesfully" );
63 is( $course->{'enabled'}, 'no', "Test Course is disabled" );
64
65 my $courses = GetCourses();
66 is( ref($courses), 'ARRAY', "GetCourses returns an array" );
67 my @match = map {$_->{course_name} eq 'Test Course'} @$courses;
68 ok( scalar(@match) > 0, "GetCourses returns valid array of course data" );
69
70 ModCourseInstructors( mode => 'add', course_id => $course_id, borrowernumbers => [ $borrowers[0]->{'borrowernumber'} ] );
71 $course = GetCourse($course_id);
72 ok( $course->{'instructors'}->[0]->{'borrowernumber'} == $borrowers[0]->{'borrowernumber'}, "ModCourseInstructors added instructors correctly" );
73
74 my $course_instructors = GetCourseInstructors($course_id);
75 ok( $course_instructors->[0]->{'borrowernumber'} eq $borrowers[0]->{'borrowernumber'}, "GetCourseInstructors returns valid data" );
76
77 my $ci_id = ModCourseItem( 'itemnumber' => $itemnumber );
78 ok( $ci_id, "ModCourseItem returned valid data" );
79
80 my $course_item = GetCourseItem( 'ci_id' => $ci_id );
81 ok( $course_item->{'itemnumber'} eq $itemnumber, "GetCourseItem returns valid data" );
82
83 my $cr_id = ModCourseReserve( 'course_id' => $course_id, 'ci_id' => $ci_id );
84 ok( $cr_id, "ModCourseReserve returns valid data" );
85
86 my $course_reserve = GetCourseReserve( 'course_id' => $course_id, 'ci_id' => $ci_id );
87 ok( $course_reserve->{'cr_id'} eq $cr_id, "GetCourseReserve returns valid data" );
88
89 my $course_reserves = GetCourseReserves( 'course_id' => $course_id );
90 ok( $course_reserves->[0]->{'ci_id'} eq $ci_id, "GetCourseReserves returns valid data." );
91
92 ## Check for regression of Bug 15530
93 $course_id = ModCourse(
94     course_id  => $course_id,
95     enabled   => 'yes',
96 );
97 $course = GetCourse($course_id);
98 is( $course->{'enabled'}, 'yes', "Test Course is enabled" );
99 $course_item = GetCourseItem( 'ci_id' => $ci_id );
100 is( $course_item->{enabled}, 'yes', "Course item is enabled after modding disabled course" );
101 my $disabled_course_id = ModCourse(
102     course_name => "Disabled Course",
103     enabled     => 'no',
104 );
105 my $disabled_course = GetCourse( $disabled_course_id );
106 is( $disabled_course->{'enabled'}, 'no', "Disabled Course is disabled" );
107 my $cr_id2 = ModCourseReserve( 'course_id' => $disabled_course_id, 'ci_id' => $ci_id );
108 $course_item = GetCourseItem( 'ci_id' => $ci_id );
109 is( $course_item->{enabled}, 'yes', "Course item is enabled after modding disabled course" );
110 ## End check for regression of Bug 15530
111
112 my $info = GetItemCourseReservesInfo( itemnumber => $itemnumber );
113 ok( $info->[0]->{'itemnumber'} eq $itemnumber, "GetItemReservesInfo returns valid data." );
114
115 DelCourseReserve( 'cr_id' => $cr_id );
116 $course_reserve = GetCourseReserve( 'cr_id' => $cr_id );
117 ok( !defined( $course_reserve->{'cr_id'} ), "DelCourseReserve functions correctly" );
118
119 DelCourse($course_id);
120 $course = GetCourse($course_id);
121 ok( !defined( $course->{'course_id'} ), "DelCourse deleted course successfully" );