Attachment #156221 for bug #34912

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




    my $debit = Koha::Account::Line->new(
        {
            borrowernumber    => $patron->id,
            date              => '1970-01-01 14:00:01',
            amountoutstanding => 0,
            interface         => 'commandline',
            debit_type_code   => 'LOST'

    my $credit = Koha::Account::Line->new(
        {
            borrowernumber    => $patron->id,
            date              => '1970-01-01 14:00:01',
            amountoutstanding => -5,
            interface         => 'commandline',
            credit_type_code  => 'PAYMENT'

    $debit = Koha::Account::Line->new(
        {
            borrowernumber    => $patron->id,
            date              => '1970-01-01 14:00:01',
            amountoutstanding => 5,
            interface         => 'commanline',
            debit_type_code   => 'LOST'

    $credit = Koha::Account::Line->new(
        {
            borrowernumber    => $patron->id,
            date              => '1970-01-01 14:00:01',
            amountoutstanding => 0,
            interface         => 'commandline',
            credit_type_code  => 'PAYMENT'

    $debit = Koha::Account::Line->new(
        {
            borrowernumber    => $patron->id,
            date              => '1970-01-01 14:00:01',
            amountoutstanding => 0,
            interface         => 'commandline',
            debit_type_code   => 'LOST'

    $credit = Koha::Account::Line->new(
        {
            borrowernumber    => $patron->id,
            date              => '1970-01-01 14:00:01',
            amountoutstanding => 0,
            interface         => 'commandline',
            credit_type_code  => 'PAYMENT'

Lines 1153-1159 subtest 'Koha::Account::Line::apply() handles lost items' => sub { Link Here

(-)a/t/db_dependent/Koha/Account.t (-3 / +2 lines)
1153	my $credit = Koha::Account::Line->new(	1153	my $credit = Koha::Account::Line->new(
1154	{	1154	{
1155	borrowernumber => $patron->id,	1155	borrowernumber => $patron->id,
1156	date => '1970-01-01 00:00:01',	1156	date => '1970-01-01 14:00:01',
1157	amount => -.5,	1157	amount => -.5,
1158	amountoutstanding => -.5,	1158	amountoutstanding => -.5,
1159	interface => 'commandline',	1159	interface => 'commandline',
Lines 1172-1178 subtest 'Koha::Account::Line::apply() handles lost items' => sub { Link Here
1172	$credit = Koha::Account::Line->new(	1172	$credit = Koha::Account::Line->new(
1173	{	1173	{
1174	borrowernumber => $patron->id,	1174	borrowernumber => $patron->id,
1175	date => '1970-01-01 00:00:01',	1175	date => '1970-01-01 14:00:01',
1176	amount => -.5,	1176	amount => -.5,
1177	amountoutstanding => -.5,	1177	amountoutstanding => -.5,
1178	interface => 'commandline',	1178	interface => 'commandline',
1179	-

Return to bug 34912

Lines 866-872 subtest "Koha::Account::non_issues_charges tests" => sub { Link Here

(-)a/t/db_dependent/Accounts.t (-6 / +6 lines)
866	my $debit = Koha::Account::Line->new(	866	my $debit = Koha::Account::Line->new(
867	{	867	{
868	borrowernumber => $patron->id,	868	borrowernumber => $patron->id,
869	date => '1970-01-01 00:00:01',	869	date => '1970-01-01 14:00:01',
870	amountoutstanding => 0,	870	amountoutstanding => 0,
871	interface => 'commandline',	871	interface => 'commandline',
872	debit_type_code => 'LOST'	872	debit_type_code => 'LOST'
Lines 875-881 subtest "Koha::Account::non_issues_charges tests" => sub { Link Here
875	my $credit = Koha::Account::Line->new(	875	my $credit = Koha::Account::Line->new(
876	{	876	{
877	borrowernumber => $patron->id,	877	borrowernumber => $patron->id,
878	date => '1970-01-01 00:00:01',	878	date => '1970-01-01 14:00:01',
879	amountoutstanding => -5,	879	amountoutstanding => -5,
880	interface => 'commandline',	880	interface => 'commandline',
881	credit_type_code => 'PAYMENT'	881	credit_type_code => 'PAYMENT'
Lines 899-905 subtest "Koha::Account::non_issues_charges tests" => sub { Link Here
899	$debit = Koha::Account::Line->new(	899	$debit = Koha::Account::Line->new(
900	{	900	{
901	borrowernumber => $patron->id,	901	borrowernumber => $patron->id,
902	date => '1970-01-01 00:00:01',	902	date => '1970-01-01 14:00:01',
903	amountoutstanding => 5,	903	amountoutstanding => 5,
904	interface => 'commanline',	904	interface => 'commanline',
905	debit_type_code => 'LOST'	905	debit_type_code => 'LOST'
Lines 908-914 subtest "Koha::Account::non_issues_charges tests" => sub { Link Here
908	$credit = Koha::Account::Line->new(	908	$credit = Koha::Account::Line->new(
909	{	909	{
910	borrowernumber => $patron->id,	910	borrowernumber => $patron->id,
911	date => '1970-01-01 00:00:01',	911	date => '1970-01-01 14:00:01',
912	amountoutstanding => 0,	912	amountoutstanding => 0,
913	interface => 'commandline',	913	interface => 'commandline',
914	credit_type_code => 'PAYMENT'	914	credit_type_code => 'PAYMENT'
Lines 933-939 subtest "Koha::Account::non_issues_charges tests" => sub { Link Here
933	$debit = Koha::Account::Line->new(	933	$debit = Koha::Account::Line->new(
934	{	934	{
935	borrowernumber => $patron->id,	935	borrowernumber => $patron->id,
936	date => '1970-01-01 00:00:01',	936	date => '1970-01-01 14:00:01',
937	amountoutstanding => 0,	937	amountoutstanding => 0,
938	interface => 'commandline',	938	interface => 'commandline',
939	debit_type_code => 'LOST'	939	debit_type_code => 'LOST'
Lines 942-948 subtest "Koha::Account::non_issues_charges tests" => sub { Link Here
942	$credit = Koha::Account::Line->new(	942	$credit = Koha::Account::Line->new(
943	{	943	{
944	borrowernumber => $patron->id,	944	borrowernumber => $patron->id,
945	date => '1970-01-01 00:00:01',	945	date => '1970-01-01 14:00:01',
946	amountoutstanding => 0,	946	amountoutstanding => 0,
947	interface => 'commandline',	947	interface => 'commandline',
948	credit_type_code => 'PAYMENT'	948	credit_type_code => 'PAYMENT'