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

(-)a/t/db_dependent/Serials.t (-5 / +23 lines)
Lines 17-22 use C4::Items; Link Here
17
use Koha::DateUtils;
17
use Koha::DateUtils;
18
use Koha::Acquisition::Booksellers;
18
use Koha::Acquisition::Booksellers;
19
use t::lib::Mocks;
19
use t::lib::Mocks;
20
use t::lib::TestBuilder;
20
use Test::More tests => 49;
21
use Test::More tests => 49;
21
22
22
BEGIN {
23
BEGIN {
Lines 29-34 my $dbh = C4::Context->dbh; Link Here
29
$dbh->{AutoCommit} = 0;
30
$dbh->{AutoCommit} = 0;
30
$dbh->{RaiseError} = 1;
31
$dbh->{RaiseError} = 1;
31
32
33
my $builder = t::lib::TestBuilder->new();
34
32
# This could/should be used for all untested methods
35
# This could/should be used for all untested methods
33
my @methods = ('updateClaim');
36
my @methods = ('updateClaim');
34
can_ok('C4::Serials', @methods);
37
can_ok('C4::Serials', @methods);
Lines 140-156 ok(C4::Serials::GetSerialStatusFromSerialId($serial->{serialid}), 'test getting Link Here
140
isa_ok(C4::Serials::GetSerialInformation($serial->{serialid}), 'HASH', 'test getting Serial Information');
143
isa_ok(C4::Serials::GetSerialInformation($serial->{serialid}), 'HASH', 'test getting Serial Information');
141
144
142
subtest 'Values should not be erased on editing' => sub {
145
subtest 'Values should not be erased on editing' => sub {
146
143
    plan tests => 1;
147
    plan tests => 1;
148
144
    ( $biblionumber, $biblioitemnumber ) = get_biblio();
149
    ( $biblionumber, $biblioitemnumber ) = get_biblio();
145
    my ( $icn_tag, $icn_sf ) = GetMarcFromKohaField( 'items.itemcallnumber', '' );
150
    my ( $icn_tag, $icn_sf ) = GetMarcFromKohaField( 'items.itemcallnumber', '' );
146
    my $item_record    = new MARC::Record;
151
    my ( $it_tag, $it_sf )   = GetMarcFromKohaField( 'items.itype', '' );
152
153
    my $itemtype = $builder->build( { source => 'Itemtype' } )->{itemtype};
147
    my $itemcallnumber = 'XXXmy itemcallnumberXXX';
154
    my $itemcallnumber = 'XXXmy itemcallnumberXXX';
148
    $item_record->append_fields( MARC::Field->new( '080', '', '', "a" => "default" ), MARC::Field->new( $icn_tag, '', '', $icn_sf => $itemcallnumber ), );
155
156
    my $item_record    = new MARC::Record;
157
158
    $item_record->append_fields(
159
        MARC::Field->new( '080', '', '', "a" => "default" ),
160
        MARC::Field->new(
161
            $icn_tag, '', '',
162
            $icn_sf => $itemcallnumber,
163
            $it_sf  => $itemtype
164
        )
165
    );
149
    my ( undef, undef, $itemnumber ) = C4::Items::AddItemFromMarc( $item_record, $biblionumber );
166
    my ( undef, undef, $itemnumber ) = C4::Items::AddItemFromMarc( $item_record, $biblionumber );
150
    my $serialid = C4::Serials::NewIssue( "serialseq", $subscriptionid, $biblionumber, 1, undef, undef, "publisheddatetext", "notes" );
167
    my $serialid = C4::Serials::NewIssue( "serialseq", $subscriptionid, $biblionumber,
168
                                          1, undef, undef, "publisheddatetext", "notes" );
151
    C4::Serials::AddItem2Serial( $serialid, $itemnumber );
169
    C4::Serials::AddItem2Serial( $serialid, $itemnumber );
152
    my $serial_info = C4::Serials::GetSerialInformation($serialid);
170
    my $serial_info = C4::Serials::GetSerialInformation($serialid);
153
    my ($itemcallnumber_info) = grep { $_->{kohafield} eq 'items.itemcallnumber' } @{ $serial_info->{items}[0]->{iteminformation} };
171
    my ($itemcallnumber_info) = grep { $_->{kohafield} eq 'items.itemcallnumber' }
172
                                     @{ $serial_info->{items}[0]->{iteminformation} };
154
    like( $itemcallnumber_info->{marc_value}, qr|value="$itemcallnumber"| );
173
    like( $itemcallnumber_info->{marc_value}, qr|value="$itemcallnumber"| );
155
};
174
};
156
175
157
- 

Return to bug 18460