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

(-)a/t/db_dependent/Circulation.t (-9 / +8 lines)
Lines 3995-4004 subtest 'Tests for NoRefundOnLostReturnedItemsAge = undef' => sub { Link Here
3995
        }
3995
        }
3996
    );
3996
    );
3997
    ok( $a, "Found accountline for lost fee" );
3997
    ok( $a, "Found accountline for lost fee" );
3998
    is( $a->amountoutstanding, '42.000000', "Lost fee charged correctly" );
3998
    is( $a->amountoutstanding + 0, 42, "Lost fee charged correctly" );
3999
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
3999
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
4000
    $a = Koha::Account::Lines->find( $a->id );
4000
    $a = Koha::Account::Lines->find( $a->id );
4001
    is( $a->amountoutstanding, '0.000000', "Lost fee was refunded" );
4001
    is( $a->amountoutstanding + 0, 0, "Lost fee was refunded" );
4002
};
4002
};
4003
4003
4004
subtest 'Tests for NoRefundOnLostReturnedItemsAge > length of days item has been lost' => sub {
4004
subtest 'Tests for NoRefundOnLostReturnedItemsAge > length of days item has been lost' => sub {
Lines 4070-4079 subtest 'Tests for NoRefundOnLostReturnedItemsAge > length of days item has been Link Here
4070
        }
4070
        }
4071
    );
4071
    );
4072
    ok( $a, "Found accountline for lost fee" );
4072
    ok( $a, "Found accountline for lost fee" );
4073
    is( $a->amountoutstanding, '42.000000', "Lost fee charged correctly" );
4073
    is( $a->amountoutstanding + 0, 42, "Lost fee charged correctly" );
4074
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
4074
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
4075
    $a = Koha::Account::Lines->find( $a->id );
4075
    $a = Koha::Account::Lines->find( $a->id );
4076
    is( $a->amountoutstanding, '0.000000', "Lost fee was refunded" );
4076
    is( $a->amountoutstanding + 0, 0, "Lost fee was refunded" );
4077
};
4077
};
4078
4078
4079
subtest 'Tests for NoRefundOnLostReturnedItemsAge = length of days item has been lost' => sub {
4079
subtest 'Tests for NoRefundOnLostReturnedItemsAge = length of days item has been lost' => sub {
Lines 4145-4154 subtest 'Tests for NoRefundOnLostReturnedItemsAge = length of days item has been Link Here
4145
        }
4145
        }
4146
    );
4146
    );
4147
    ok( $a, "Found accountline for lost fee" );
4147
    ok( $a, "Found accountline for lost fee" );
4148
    is( $a->amountoutstanding, '42.000000', "Lost fee charged correctly" );
4148
    is( $a->amountoutstanding + 0, 42, "Lost fee charged correctly" );
4149
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
4149
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
4150
    $a = Koha::Account::Lines->find( $a->id );
4150
    $a = Koha::Account::Lines->find( $a->id );
4151
    is( $a->amountoutstanding, '42.000000', "Lost fee was not refunded" );
4151
    is( $a->amountoutstanding + 0, 42, "Lost fee was not refunded" );
4152
};
4152
};
4153
4153
4154
subtest 'Tests for NoRefundOnLostReturnedItemsAge < length of days item has been lost' => sub {
4154
subtest 'Tests for NoRefundOnLostReturnedItemsAge < length of days item has been lost' => sub {
Lines 4220-4229 subtest 'Tests for NoRefundOnLostReturnedItemsAge < length of days item has been Link Here
4220
        }
4220
        }
4221
    );
4221
    );
4222
    ok( $a, "Found accountline for lost fee" );
4222
    ok( $a, "Found accountline for lost fee" );
4223
    is( $a->amountoutstanding, '42.000000', "Lost fee charged correctly" );
4223
    is( $a->amountoutstanding + 0, 42, "Lost fee charged correctly" );
4224
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
4224
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
4225
    $a = Koha::Account::Lines->find( $a->id );
4225
    $a = Koha::Account::Lines->find( $a->id );
4226
    is( $a->amountoutstanding, '42.000000', "Lost fee was not refunded" );
4226
    is( $a->amountoutstanding + 0, 42, "Lost fee was not refunded" );
4227
};
4227
};
4228
4228
4229
$schema->storage->txn_rollback;
4229
$schema->storage->txn_rollback;
4230
- 

Return to bug 20815