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'" ); |