3 # This is to test C4/Members
4 # It requires a working Koha database with the sample data
8 use Test::More tests => 20;
13 use_ok('C4::Context');
14 use_ok('C4::CourseReserves', qw/:all/);
15 use_ok('C4::Items', qw(AddItemFromMarc));
16 use_ok('MARC::Field');
17 use_ok('MARC::Record');
20 my $dbh = C4::Context->dbh;
22 my $sth = $dbh->prepare("SELECT * FROM borrowers ORDER BY RAND() LIMIT 10");
24 my @borrowers = @{ $sth->fetchall_arrayref( {} ) };
27 my $record = MARC::Record->new();
28 $record->append_fields(
29 MARC::Field->new( '952', '0', '0', a => 'CPL', b => 'CPL' )
31 my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio($record, '');
32 my @iteminfo = C4::Items::AddItemFromMarc( $record, $biblionumber );
33 my $itemnumber = $iteminfo[2];
35 my $course_id = ModCourse(
36 course_name => "Test Course",
37 staff_note => "Test staff note",
38 public_note => "Test public note",
41 ok( $course_id, "ModCourse created course successfully" );
43 $course_id = ModCourse(
44 course_id => $course_id,
45 staff_note => "Test staff note 2",
48 my $course = GetCourse($course_id);
50 ok( $course->{'course_name'} eq "Test Course", "GetCourse returned correct course" );
51 ok( $course->{'staff_note'} eq "Test staff note 2", "ModCourse updated course succesfully" );
53 my $courses = GetCourses();
54 ok( $courses->[0]->{'course_name'} eq "Test Course", "GetCourses returns valid array of course data" );
56 ModCourseInstructors( mode => 'add', course_id => $course_id, borrowernumbers => [ $borrowers[0]->{'borrowernumber'} ] );
57 $course = GetCourse($course_id);
58 ok( $course->{'instructors'}->[0]->{'borrowernumber'} == $borrowers[0]->{'borrowernumber'}, "ModCourseInstructors added instructors correctly" );
60 my $course_instructors = GetCourseInstructors($course_id);
61 ok( $course_instructors->[0]->{'borrowernumber'} eq $borrowers[0]->{'borrowernumber'}, "GetCourseInstructors returns valid data" );
63 my $ci_id = ModCourseItem( 'itemnumber' => $itemnumber );
64 ok( $ci_id, "ModCourseItem returned valid data" );
66 my $course_item = GetCourseItem( 'ci_id' => $ci_id );
67 ok( $course_item->{'itemnumber'} eq $itemnumber, "GetCourseItem returns valid data" );
69 my $cr_id = ModCourseReserve( 'course_id' => $course_id, 'ci_id' => $ci_id );
70 ok( $cr_id, "ModCourseReserve returns valid data" );
72 my $course_reserve = GetCourseReserve( 'course_id' => $course_id, 'ci_id' => $ci_id );
73 ok( $course_reserve->{'cr_id'} eq $cr_id, "GetCourseReserve returns valid data" );
75 my $course_reserves = GetCourseReserves( 'course_id' => $course_id );
76 ok( $course_reserves->[0]->{'ci_id'} eq $ci_id, "GetCourseReserves returns valid data." );
78 my $info = GetItemCourseReservesInfo( itemnumber => $itemnumber );
79 ok( $info->[0]->{'itemnumber'} eq $itemnumber, "GetItemReservesInfo returns valid data." );
81 DelCourseReserve( 'cr_id' => $cr_id );
82 $course_reserve = GetCourseReserve( 'cr_id' => $cr_id );
83 ok( !defined( $course_reserve->{'cr_id'} ), "DelCourseReserve functions correctly" );
85 DelCourse($course_id);
86 $course = GetCourse($course_id);
87 ok( !defined( $course->{'course_id'} ), "DelCourse deleted course successfully" );
90 C4::Items::DelItem( $dbh, $biblionumber, $itemnumber );
91 C4::Biblio::DelBiblio( $biblionumber );