View | Details | Raw Unified | Return to bug 10332
Collapse All | Expand All

(-)a/t/db_dependent/CourseReserves.t (-4 / +4 lines)
Lines 5-12 Link Here
5
5
6
use Modern::Perl;
6
use Modern::Perl;
7
7
8
use Test::More tests => 20;
8
use Test::More tests => 21;
9
use Data::Dumper;
10
9
11
BEGIN {
10
BEGIN {
12
    use_ok('C4::Biblio');
11
    use_ok('C4::Biblio');
Lines 51-57 ok( $course->{'course_name'} eq "Test Course", "GetCourse returned correct Link Here
51
ok( $course->{'staff_note'}  eq "Test staff note 2", "ModCourse updated course succesfully" );
50
ok( $course->{'staff_note'}  eq "Test staff note 2", "ModCourse updated course succesfully" );
52
51
53
my $courses = GetCourses();
52
my $courses = GetCourses();
54
ok( $courses->[0]->{'course_name'} eq "Test Course", "GetCourses returns valid array of course data" );
53
is( ref($courses), 'ARRAY', "GetCourses returns an array" );
54
my @match = map {$_->{course_name} eq 'Test Course'} @$courses;
55
ok( scalar(@match) > 0, "GetCourses returns valid array of course data" );
55
56
56
ModCourseInstructors( mode => 'add', course_id => $course_id, borrowernumbers => [ $borrowers[0]->{'borrowernumber'} ] );
57
ModCourseInstructors( mode => 'add', course_id => $course_id, borrowernumbers => [ $borrowers[0]->{'borrowernumber'} ] );
57
$course = GetCourse($course_id);
58
$course = GetCourse($course_id);
58
- 

Return to bug 10332