parent
218c0d73f8
commit
d9603ff7aa
@ -0,0 +1,43 @@
|
|||||||
|
diff --git a/basetest.pm b/basetest.pm
|
||||||
|
index 8a05ceb..dac0ef1 100755
|
||||||
|
--- a/basetest.pm
|
||||||
|
+++ b/basetest.pm
|
||||||
|
@@ -106,6 +106,7 @@ sub record_screenmatch {
|
||||||
|
screenshot => sprintf("%s-%d.png", $testname, $count),
|
||||||
|
result => 'ok',
|
||||||
|
properties => [@$properties],
|
||||||
|
+ json => $h->{json},
|
||||||
|
};
|
||||||
|
|
||||||
|
# When the needle has the workaround property,
|
||||||
|
@@ -155,9 +156,10 @@ sub _serialize_match {
|
||||||
|
my $candidates;
|
||||||
|
my $diffcount = 0;
|
||||||
|
|
||||||
|
- my $name = $cand->{needle}->{name};
|
||||||
|
+ my $name = $cand->{needle}->{name};
|
||||||
|
+ my $jsonfile = $cand->{needle}->{file};
|
||||||
|
|
||||||
|
- my $h = {name => $name, error => $cand->{error}, area => []};
|
||||||
|
+ my $h = {name => $name, error => $cand->{error}, area => [], json => $jsonfile};
|
||||||
|
for my $a (@{$cand->{area}}) {
|
||||||
|
my $na = {};
|
||||||
|
for my $i (qw/x y w h result/) {
|
||||||
|
diff --git a/needle.pm b/needle.pm
|
||||||
|
index e9da38b..fdb8e85 100755
|
||||||
|
--- a/needle.pm
|
||||||
|
+++ b/needle.pm
|
||||||
|
@@ -37,7 +37,7 @@ sub new {
|
||||||
|
my $json;
|
||||||
|
if (ref $jsonfile eq 'HASH') {
|
||||||
|
$json = $jsonfile;
|
||||||
|
- $jsonfile = join('/', $needledir, $json->{name} . '.json');
|
||||||
|
+ $jsonfile = $json->{file} || join('/', $needledir, $json->{name} . '.json');
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
local $/;
|
||||||
|
@@ -238,4 +238,3 @@ sub all {
|
||||||
|
1;
|
||||||
|
|
||||||
|
# vim: set sw=4 et:
|
||||||
|
-
|
Loading…
Reference in new issue