|
Lines 5-11
Link Here
|
| 5 |
use strict; |
5 |
use strict; |
| 6 |
use warnings; |
6 |
use warnings; |
| 7 |
|
7 |
|
| 8 |
use Test::More tests => 11; |
8 |
use Test::More tests => 23; |
| 9 |
|
9 |
|
| 10 |
BEGIN { |
10 |
BEGIN { |
| 11 |
use_ok('C4::Members::Attributes', qw(:all)); |
11 |
use_ok('C4::Members::Attributes', qw(:all)); |
|
Lines 23-28
INIT {
Link Here
|
| 23 |
'code' => 'grade', |
23 |
'code' => 'grade', |
| 24 |
'unique_id' => '0' |
24 |
'unique_id' => '0' |
| 25 |
}, |
25 |
}, |
|
|
26 |
'grade_prev' => { |
| 27 |
'opac_display' => '0', |
| 28 |
'staff_searchable' => '1', |
| 29 |
'description' => 'Previous grade level', |
| 30 |
'password_allowed' => '0', |
| 31 |
'authorised_value_category' => '', |
| 32 |
'repeatable' => '0', |
| 33 |
'code' => 'grade_prev', |
| 34 |
'unique_id' => '0' |
| 35 |
}, |
| 36 |
'grade_prev_r' => { |
| 37 |
'opac_display' => '0', |
| 38 |
'staff_searchable' => '1', |
| 39 |
'description' => 'Previous grade level', |
| 40 |
'password_allowed' => '0', |
| 41 |
'authorised_value_category' => '', |
| 42 |
'repeatable' => '1', |
| 43 |
'code' => 'grade_prev_r', |
| 44 |
'unique_id' => '0' |
| 45 |
}, |
| 26 |
'deanslist' => { |
46 |
'deanslist' => { |
| 27 |
'opac_display' => '0', |
47 |
'opac_display' => '0', |
| 28 |
'staff_searchable' => '1', |
48 |
'staff_searchable' => '1', |
|
Lines 102-104
foreach my $test (@merge_tests) {
Link Here
|
| 102 |
ok($merged = extended_attributes_merge($old, $new, 1), "extended_attributes_merge(\$old, \$new, 1)"); |
122 |
ok($merged = extended_attributes_merge($old, $new, 1), "extended_attributes_merge(\$old, \$new, 1)"); |
| 103 |
} |
123 |
} |
| 104 |
|
124 |
|
|
|
125 |
my $old = extended_attributes_code_value_arrayref("grade:02,grade_prev:01"); |
| 126 |
my $new = extended_attributes_code_value_arrayref("grade:03"); |
| 127 |
my $merged = extended_attributes_merge($old, $new, 0, { "grade" => "grade_prev" }); |
| 128 |
is( scalar @$merged, 2, "Merge has two attributes" ); |
| 129 |
is( $merged->[0]->{code}, 'grade', "First attribute has code of 'grade'" ); |
| 130 |
is( $merged->[0]->{value}, '03', "First attribute has value of '03'" ); |
| 131 |
is( $merged->[1]->{code}, 'grade_prev', "Second attribute has code of 'grade_prev'" ); |
| 132 |
is( $merged->[1]->{value}, '02', "Second attribute has value of '02'" ); |
| 133 |
|
| 134 |
$old = extended_attributes_code_value_arrayref("grade:02,grade_prev_r:01"); |
| 135 |
$new = extended_attributes_code_value_arrayref("grade:03"); |
| 136 |
$merged = extended_attributes_merge($old, $new, 0, { "grade" => "grade_prev_r" }); |
| 137 |
is( scalar @$merged, 3, "Merge has three attributes" ); |
| 138 |
is( $merged->[0]->{code}, 'grade', "First attribute has code of 'grade'" ); |
| 139 |
is( $merged->[0]->{value}, '03', "First attribute has value of '03'" ); |
| 140 |
is( $merged->[1]->{code}, 'grade_prev_r', "Second attribute has code of 'grade_prev'" ); |
| 141 |
is( $merged->[1]->{value}, '01', "Second attribute has value of '01'" ); |
| 142 |
is( $merged->[2]->{code}, 'grade_prev_r', "Third attribute has code of 'grade_prev'" ); |
| 143 |
is( $merged->[2]->{value}, '02', "Third attribute has value of '02'" ); |