Attachment #106607 for bug #20815

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




        }
    );
    ok( $a, "Found accountline for lost fee" );
    is( $a->amountoutstanding + 0, 42, "Lost fee charged correctly" );
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
    $a = Koha::Account::Lines->find( $a->id );
    is( $a->amountoutstanding + 0, 0, "Lost fee was refunded" );
};

subtest 'Tests for NoRefundOnLostReturnedItemsAge > length of days item has been lost' => sub {

        }
    );
    ok( $a, "Found accountline for lost fee" );
    is( $a->amountoutstanding + 0, 42, "Lost fee charged correctly" );
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
    $a = Koha::Account::Lines->find( $a->id );
    is( $a->amountoutstanding + 0, 0, "Lost fee was refunded" );
};

subtest 'Tests for NoRefundOnLostReturnedItemsAge = length of days item has been lost' => sub {

        }
    );
    ok( $a, "Found accountline for lost fee" );
    is( $a->amountoutstanding + 0, 42, "Lost fee charged correctly" );
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
    $a = Koha::Account::Lines->find( $a->id );
    is( $a->amountoutstanding + 0, 42, "Lost fee was not refunded" );
};

subtest 'Tests for NoRefundOnLostReturnedItemsAge < length of days item has been lost' => sub {

        }
    );
    ok( $a, "Found accountline for lost fee" );
    is( $a->amountoutstanding + 0, 42, "Lost fee charged correctly" );
    my ( $doreturn, $messages ) = AddReturn( $item->barcode, $library->{branchcode}, undef, dt_from_string );
    $a = Koha::Account::Lines->find( $a->id );
    is( $a->amountoutstanding + 0, 42, "Lost fee was not refunded" );
};

$schema->storage->txn_rollback;
- 

Return to bug 20815

Lines 3995-4004 subtest 'Tests for NoRefundOnLostReturnedItemsAge = undef' => sub { Link Here

(-)a/t/db_dependent/Circulation.t (-9 / +8 lines)
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	-