Commit 08cd6b48 authored by Nigel Kukard's avatar Nigel Kukard

CI: Improved timestampCheck to support a coderef check

parent da8d8603
...@@ -599,6 +599,8 @@ sub testDBResults ...@@ -599,6 +599,8 @@ sub testDBResults
$table $table
WHERE WHERE
$whereLines_str $whereLines_str
ORDER BY
ID DESC
",@whereData); ",@whereData);
# Make sure we got no error # Make sure we got no error
...@@ -610,7 +612,12 @@ sub testDBResults ...@@ -610,7 +612,12 @@ sub testDBResults
# Loop through results and check if they match # Loop through results and check if they match
foreach my $resultName (keys %{$resultCheck}) { foreach my $resultName (keys %{$resultCheck}) {
is($row->{$resultName},$resultCheck->{$resultName},"$name: $resultName check"); # Check if the result is a code-based subroutine
if (ref(my $result = $resultCheck->{$resultName}) eq "CODE") {
is($resultCheck->{$resultName}($row->{$resultName}),1,"$name: $resultName sub{} check");
} else {
is($row->{$resultName},$resultCheck->{$resultName},"$name: $resultName check");
}
} }
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment