If the result is a ref to an array, print the array.

(Have to be careful about becoming Data::Dumper...)

t/test_class.pl

@@ -150,7 +150,13 @@ sub test_fn {
     if (grep(/^$method$/,@Dump)) {
         $Dumped{$method} = 1;
         foreach my $iid (keys %$results){
-            print "  $iid : $results->{$iid}\n";
+            print "  $iid : ";
+	    if (ref($results->{$iid}) eq 'ARRAY') {
+		print "[ ", join(", ", @{$results->{$iid}}), " ]";
+	    } else {
+		print $results->{$iid};
+	    }
+	    print "\n";
         }
     }
     return 1;