3 # This is to test C4/Members
4 # It requires a working Koha database with the sample data
8 use Test
::More tests
=> 26;
11 use t
::lib
::TestBuilder
;
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');
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;
28 my $library = $builder->build({
32 my $sth = $dbh->prepare("SELECT * FROM borrowers ORDER BY RAND() LIMIT 10");
34 my @borrowers = @
{ $sth->fetchall_arrayref( {} ) };
37 my $record = MARC
::Record
->new();
38 $record->append_fields(
39 MARC
::Field
->new( '952', '0', '0', a
=> $library->{branchcode
}, b
=> $library->{branchcode
} )
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];
45 my $course_id = ModCourse
(
46 course_name
=> "Test Course",
47 staff_note
=> "Test staff note",
48 public_note
=> "Test public note",
51 ok
( $course_id, "ModCourse created course successfully" );
53 $course_id = ModCourse
(
54 course_id
=> $course_id,
55 staff_note
=> "Test staff note 2",
59 my $course = GetCourse
($course_id);
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" );
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" );
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" );
74 my $course_instructors = GetCourseInstructors
($course_id);
75 ok
( $course_instructors->[0]->{'borrowernumber'} eq $borrowers[0]->{'borrowernumber'}, "GetCourseInstructors returns valid data" );
77 my $ci_id = ModCourseItem
( 'itemnumber' => $itemnumber );
78 ok
( $ci_id, "ModCourseItem returned valid data" );
80 my $course_item = GetCourseItem
( 'ci_id' => $ci_id );
81 ok
( $course_item->{'itemnumber'} eq $itemnumber, "GetCourseItem returns valid data" );
83 my $cr_id = ModCourseReserve
( 'course_id' => $course_id, 'ci_id' => $ci_id );
84 ok
( $cr_id, "ModCourseReserve returns valid data" );
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" );
89 my $course_reserves = GetCourseReserves
( 'course_id' => $course_id );
90 ok
( $course_reserves->[0]->{'ci_id'} eq $ci_id, "GetCourseReserves returns valid data." );
92 ## Check for regression of Bug 15530
93 $course_id = ModCourse
(
94 course_id
=> $course_id,
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",
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
112 my $info = GetItemCourseReservesInfo
( itemnumber
=> $itemnumber );
113 ok
( $info->[0]->{'itemnumber'} eq $itemnumber, "GetItemReservesInfo returns valid data." );
115 DelCourseReserve
( 'cr_id' => $cr_id );
116 $course_reserve = GetCourseReserve
( 'cr_id' => $cr_id );
117 ok
( !defined( $course_reserve->{'cr_id'} ), "DelCourseReserve functions correctly" );
119 DelCourse
($course_id);
120 $course = GetCourse
($course_id);
121 ok
( !defined( $course->{'course_id'} ), "DelCourse deleted course successfully" );