WIP

t/17-basetest.t

@@ -53,8 +53,8 @@ sub fake_read_json ($fd) {
         };
     }
     elsif ($cmd eq 'backend_verify_image') {
-        return {ret => {found => {needle => {name => 'foundneedle', file => 'foundneedle.json'}, area => [{x => 1, y => 2, similarity => 100}]}, candidates => []}} unless $suppress_match;
-        return {ret => {candidates => [{name => 'foundneedle', file => 'foundneedle.json'}]}};
+        return {ret => {found => {needle => {name => 'candidate_needle', file => 'candidate_needle.json'}, area => [{x => 1, y => 2, similarity => 100}]}, candidates => []}} unless $suppress_match;
+        return {ret => {candidates => [{name => 'candidate_needle', file => 'candidate_needle.json'}]}};
     }
     elsif ($cmd eq 'last_milestone_console') {
         return {};
@@ -487,8 +487,10 @@ subtest verify_sound_image => sub {
     # $suppress_match = 'yes';
     # my $test_without_match = basetest->new();
     # $res = $test_without_match->verify_sound_image("$FindBin::Bin/data/frame1.ppm", 'notapath2', 'check');
-    # is($res->{result}->{$status}, 'unk', 'no needle match: unknown status correct');
-    # is($res->{result}, 'fail', 'no needle match: overall fail correct');
+    # diag explain $res->{result};
+    # die;
+    # is($res->{details}->{status}, 'unk', 'no needle match: unknown status correct') or diag explain $res->{details};
+    # is($res->{details}, 'fail', 'no needle match: overall fail correct') or diag explain $res->{details};
 };
 
 subtest rollback_activated_consoles => sub {
@@ -501,4 +503,5 @@ subtest rollback_activated_consoles => sub {
     is_deeply(\@selected_consoles, [{cmd => 'backend_select_console', testapi_console => 'last_milestone_console'}], 'last milestone console selected') or diag explain \@selected_consoles;
 };
 
+
 done_testing;