From 95f364ddcf6a3568f90a7e843641771b138fe848 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 11 May 2023 05:59:42 +0000 Subject: [PATCH] Bug 33608: Correct indentation in Stats.t Test plan: Run t/db_dependent/Stats.t Run git diff -w HEAD~1.. t/db_dependent/Stats.t, proving that we only did whitespace changes. Signed-off-by: Marcel de Rooy Signed-off-by: Owen Leonard --- t/db_dependent/Stats.t | 274 ++++++++++++++++++++--------------------- 1 file changed, 137 insertions(+), 137 deletions(-) diff --git a/t/db_dependent/Stats.t b/t/db_dependent/Stats.t index aebcaa99a6..fba30415ba 100755 --- a/t/db_dependent/Stats.t +++ b/t/db_dependent/Stats.t @@ -30,145 +30,145 @@ my $dbh = C4::Context->dbh; subtest 'UpdateStats' => sub { plan tests => 17; -is (UpdateStats () ,undef, "UpdateStats returns undef if no params"); - -my $params = { - branch => "BRA", - itemnumber => 31, - borrowernumber => 5, - amount =>5.1, - other => "bla", - itemtype => "BK", - location => "LOC", - ccode => "CODE", - interface => "INTERFACE", -}; -my $return_error; - -# returns undef and croaks if type is not allowed -$params -> {type} = "bla"; -eval {UpdateStats($params)}; -$return_error = $@; -isnt ($return_error,'',"UpdateStats returns undef and croaks if type is not allowed"); - -delete $params->{type}; -# returns undef and croaks if type is missing -eval {UpdateStats($params)}; -$return_error = $@; -isnt ($return_error,'',"UpdateStats returns undef and croaks if no type given"); - -$params -> {type} = undef; -# returns undef and croaks if type is undef -eval {UpdateStats($params)}; -$return_error = $@; -isnt ($return_error,'',"UpdateStats returns undef and croaks if type is undef"); - -# returns undef and croaks if mandatory params are missing -my @allowed_circulation_types = qw (renew issue localuse return onsite_checkout recall); -my @allowed_accounts_types = qw (writeoff payment); -my @circulation_mandatory_keys = qw (branch borrowernumber itemnumber ccode itemtype); #don't check type here -my @accounts_mandatory_keys = qw (branch borrowernumber amount); #don't check type here - -my @missing_errors = (); -foreach my $key (@circulation_mandatory_keys) { - my $value = $params->{$key}; - delete $params->{$key}; - foreach my $type (@allowed_circulation_types) { - $params->{type} = $type; - eval {UpdateStats($params)}; - $return_error = $@; - push @missing_errors, "key:$key for type:$type" unless $return_error; + is (UpdateStats () ,undef, "UpdateStats returns undef if no params"); + + my $params = { + branch => "BRA", + itemnumber => 31, + borrowernumber => 5, + amount =>5.1, + other => "bla", + itemtype => "BK", + location => "LOC", + ccode => "CODE", + interface => "INTERFACE", + }; + my $return_error; + + # returns undef and croaks if type is not allowed + $params -> {type} = "bla"; + eval {UpdateStats($params)}; + $return_error = $@; + isnt ($return_error,'',"UpdateStats returns undef and croaks if type is not allowed"); + + delete $params->{type}; + # returns undef and croaks if type is missing + eval {UpdateStats($params)}; + $return_error = $@; + isnt ($return_error,'',"UpdateStats returns undef and croaks if no type given"); + + $params -> {type} = undef; + # returns undef and croaks if type is undef + eval {UpdateStats($params)}; + $return_error = $@; + isnt ($return_error,'',"UpdateStats returns undef and croaks if type is undef"); + + # returns undef and croaks if mandatory params are missing + my @allowed_circulation_types = qw (renew issue localuse return onsite_checkout recall); + my @allowed_accounts_types = qw (writeoff payment); + my @circulation_mandatory_keys = qw (branch borrowernumber itemnumber ccode itemtype); #don't check type here + my @accounts_mandatory_keys = qw (branch borrowernumber amount); #don't check type here + + my @missing_errors = (); + foreach my $key (@circulation_mandatory_keys) { + my $value = $params->{$key}; + delete $params->{$key}; + foreach my $type (@allowed_circulation_types) { + $params->{type} = $type; + eval {UpdateStats($params)}; + $return_error = $@; + push @missing_errors, "key:$key for type:$type" unless $return_error; + } + $params->{$key} = $value; } - $params->{$key} = $value; -} -foreach my $key (@accounts_mandatory_keys) { - my $value = $params->{$key}; - delete $params->{$key}; - foreach my $type (@allowed_accounts_types) { - $params->{type} = $type; - eval {UpdateStats($params)}; - $return_error = $@; - push @missing_errors, "key:$key for type:$type" unless $return_error; + foreach my $key (@accounts_mandatory_keys) { + my $value = $params->{$key}; + delete $params->{$key}; + foreach my $type (@allowed_accounts_types) { + $params->{type} = $type; + eval {UpdateStats($params)}; + $return_error = $@; + push @missing_errors, "key:$key for type:$type" unless $return_error; + } + $params->{$key} = $value; + } - $params->{$key} = $value; - -} -is (join (", ", @missing_errors),'',"UpdateStats returns undef and croaks if mandatory params are missing"); - -# returns undef and croaks if forbidden params are given -$params -> {type} = "return"; -$params -> {newparam} = "true"; -eval {UpdateStats($params)}; -$return_error = $@; -isnt ($return_error,'',"UpdateStats returns undef and croaks if a forbidden param is given"); -delete $params->{newparam}; - -# save the params in the right database fields -$dbh->do(q|DELETE FROM statistics|); -$params = { - branch => "BRA", - itemnumber => 31, - borrowernumber => 5, - amount =>5.1, - other => "bla", - itemtype => "BK", - location => "LOC", - ccode => "CODE", - type => "return", - interface => "INTERFACE", -}; -UpdateStats ($params); -my $sth = $dbh->prepare("SELECT * FROM statistics"); -$sth->execute(); -my $line = ${ $sth->fetchall_arrayref( {} ) }[0]; -is ($params->{branch}, $line->{branch}, "UpdateStats save branch param in branch field of statistics table"); -is ($params->{type}, $line->{type}, "UpdateStats save type param in type field of statistics table"); -is ($params->{borrowernumber}, $line->{borrowernumber}, "UpdateStats save borrowernumber param in borrowernumber field of statistics table"); -cmp_ok($params->{amount},'==', $line->{value}, "UpdateStats save amount param in value field of statistics table"); -is ($params->{other}, $line->{other}, "UpdateStats save other param in other field of statistics table"); -is ($params->{itemtype}, $line->{itemtype}, "UpdateStats save itemtype param in itemtype field of statistics table"); -is ($params->{location}, $line->{location}, "UpdateStats save location param in location field of statistics table"); -is ($params->{ccode}, $line->{ccode}, "UpdateStats save ccode param in ccode field of statistics table"); -is ($params->{interface}, $line->{interface}, "UpdateStats save interface param in interface field of statistics table"); - -$dbh->do(q|DELETE FROM statistics|); -$params = { - branch => "BRA", - itemnumber => 31, - borrowernumber => 5, - amount => 5.1, - other => "bla", - itemtype => "BK", - ccode => "CODE", - type => "return", - interface => "INTERFACE", -}; -UpdateStats($params); -$sth = $dbh->prepare("SELECT * FROM statistics"); -$sth->execute(); -$line = ${ $sth->fetchall_arrayref( {} ) }[0]; -is( $line->{location}, undef, - "UpdateStats sets location to NULL if no location is passed in." ); - -$dbh->do(q|DELETE FROM statistics|); -$params = { - branch => "BRA", - itemnumber => 31, - borrowernumber => 5, - amount => 5.1, - other => "bla", - itemtype => "BK", - location => undef, - ccode => "CODE", - type => "return", - interface => "interface" -}; -UpdateStats($params); -$sth = $dbh->prepare("SELECT * FROM statistics"); -$sth->execute(); -$line = ${ $sth->fetchall_arrayref( {} ) }[0]; -is( $line->{location}, undef, - "UpdateStats sets location to NULL if undef is passed in." ); + is (join (", ", @missing_errors),'',"UpdateStats returns undef and croaks if mandatory params are missing"); + + # returns undef and croaks if forbidden params are given + $params -> {type} = "return"; + $params -> {newparam} = "true"; + eval {UpdateStats($params)}; + $return_error = $@; + isnt ($return_error,'',"UpdateStats returns undef and croaks if a forbidden param is given"); + delete $params->{newparam}; + + # save the params in the right database fields + $dbh->do(q|DELETE FROM statistics|); + $params = { + branch => "BRA", + itemnumber => 31, + borrowernumber => 5, + amount =>5.1, + other => "bla", + itemtype => "BK", + location => "LOC", + ccode => "CODE", + type => "return", + interface => "INTERFACE", + }; + UpdateStats ($params); + my $sth = $dbh->prepare("SELECT * FROM statistics"); + $sth->execute(); + my $line = ${ $sth->fetchall_arrayref( {} ) }[0]; + is ($params->{branch}, $line->{branch}, "UpdateStats save branch param in branch field of statistics table"); + is ($params->{type}, $line->{type}, "UpdateStats save type param in type field of statistics table"); + is ($params->{borrowernumber}, $line->{borrowernumber}, "UpdateStats save borrowernumber param in borrowernumber field of statistics table"); + cmp_ok($params->{amount},'==', $line->{value}, "UpdateStats save amount param in value field of statistics table"); + is ($params->{other}, $line->{other}, "UpdateStats save other param in other field of statistics table"); + is ($params->{itemtype}, $line->{itemtype}, "UpdateStats save itemtype param in itemtype field of statistics table"); + is ($params->{location}, $line->{location}, "UpdateStats save location param in location field of statistics table"); + is ($params->{ccode}, $line->{ccode}, "UpdateStats save ccode param in ccode field of statistics table"); + is ($params->{interface}, $line->{interface}, "UpdateStats save interface param in interface field of statistics table"); + + $dbh->do(q|DELETE FROM statistics|); + $params = { + branch => "BRA", + itemnumber => 31, + borrowernumber => 5, + amount => 5.1, + other => "bla", + itemtype => "BK", + ccode => "CODE", + type => "return", + interface => "INTERFACE", + }; + UpdateStats($params); + $sth = $dbh->prepare("SELECT * FROM statistics"); + $sth->execute(); + $line = ${ $sth->fetchall_arrayref( {} ) }[0]; + is( $line->{location}, undef, + "UpdateStats sets location to NULL if no location is passed in." ); + + $dbh->do(q|DELETE FROM statistics|); + $params = { + branch => "BRA", + itemnumber => 31, + borrowernumber => 5, + amount => 5.1, + other => "bla", + itemtype => "BK", + location => undef, + ccode => "CODE", + type => "return", + interface => "interface" + }; + UpdateStats($params); + $sth = $dbh->prepare("SELECT * FROM statistics"); + $sth->execute(); + $line = ${ $sth->fetchall_arrayref( {} ) }[0]; + is( $line->{location}, undef, + "UpdateStats sets location to NULL if undef is passed in." ); }; $schema->storage->txn_rollback; -- 2.30.2