|
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 |
- |
|
|