--- a/t/032.image.t
+++ b/t/032.image.t
@@ -38,3 +38,4 @@
 
 my $distance = $p->Control->[0]->Distance ($p);
 
+ok ($image->Report);