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

(-)a/t/Edifact.t (-5 / +4 lines)
Lines 80-87 my $branch = $test_line->girfield('branch'); Link Here
80
is( $branch, 'ELIB', "branch returned" );
80
is( $branch, 'ELIB', "branch returned" );
81
my $fund_allocation = $test_line->girfield('fund_allocation');
81
my $fund_allocation = $test_line->girfield('fund_allocation');
82
is( $fund_allocation, '660BOO_2013', "fund_allocation returned" );
82
is( $fund_allocation, '660BOO_2013', "fund_allocation returned" );
83
my $collection_code = $test_line->girfield('collection_code');
83
my $sequence_code = $test_line->girfield('sequence_code');
84
is( $collection_code, 'EBOO', "collection_code returned" );
84
is( $sequence_code, 'EBOO', "sequence_code returned" );
85
85
86
#my $shelfmark = $test_line->girfield('shelfmark');
86
#my $shelfmark = $test_line->girfield('shelfmark');
87
#my $classification = $test_line->girfield('classification');
87
#my $classification = $test_line->girfield('classification');
Lines 118-125 is( $y, 'REF', 'Copy fund returned' ); Link Here
118
$y = $ol->girfield( 'branch', 4 );
118
$y = $ol->girfield( 'branch', 4 );
119
is( $y, 'SOU', 'Copy Branch returned' );
119
is( $y, 'SOU', 'Copy Branch returned' );
120
120
121
$y = $ol->girfield( 'collection_code', 4 );
121
$y = $ol->girfield( 'sequence_code', 4 );
122
is( $y, 'ANF', 'Collection code returned' );
122
is( $y, 'ANF', 'Sequence code returned' );
123
123
124
$y = $ol->girfield( 'stock_category', 4 );
124
$y = $ol->girfield( 'stock_category', 4 );
125
is( $y, 'RS', 'Copy stock category returned' );
125
is( $y, 'RS', 'Copy stock category returned' );
126
- 

Return to bug 30135