Trim unused imports

[p5sagit/Devel-PeekPoke.git] / t / 03torture.t

diff --git a/t/03torture.t b/t/03torture.t
index 6e4eb6b..d623181 100644 (file)
--- a/t/03torture.t
+++ b/t/03torture.t
@@ -15,11 +15,21 @@ sub is {
       $::TEST_COUNT,
       $_[2] || '',
     );
+    if ($str ne 'ok') {
+      printf STDERR ("# Failed test #%d at %s line %d
+# %s
+#   ne
+# %s
+"       , $::TEST_COUNT, (caller(0))[1,2],
+        , (map { unpack 'H*', $_ } @_[0,1])
+      );
+    }
+
   }
   threads->yield if $INC{'threads.pm'};
 }
 
-use Devel::PeekPoke qw/peek poke peek_address poke_address/;
+use Devel::PeekPoke qw/peek poke/;
 use Devel::PeekPoke::Constants qw/PTR_SIZE PTR_PACK_TYPE/;
 
 my $str = 'for mutilation and mayhem';
@@ -28,7 +38,7 @@ my $str_pv_addr = unpack(PTR_PACK_TYPE, pack('p', $str) );
 
 is( peek($str_pv_addr, $len + 1), $str . "\0", 'peek as expected (with NUL termination)' );
 
-for (1 .. ($ENV{AUTOMATED_TESTING} ? 200 : 20 ) ) {
+for (1 .. ($ENV{AUTOMATED_TESTING} ? 200 : 5 ) ) {
   for my $poke_size (2 .. $len) {
     my $replace_chunk = 'a' . ( '0' x ($poke_size-1) );
     for my $poke_start ( 0 .. ($len - $poke_size) ) {