diff --git a/t/test_class.pl b/t/test_class.pl index 8e655ed0..7e66b24a 100755 --- a/t/test_class.pl +++ b/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;