X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Antlers.git;a=blobdiff_plain;f=tracer.pl;h=5c33ba24a86349d1920ec7a06f4c3fc52b1dca0b;hp=a58c25a318fb39694fe8583cab9d8dfe8b6da385;hb=93dbae6050f325a6bacdb61fc297a409a93d79c6;hpb=3aa089043a81238f12264b987ec1d6e20287821a

diff --git a/tracer.pl b/tracer.pl
index a58c25a..5c33ba2 100644
--- a/tracer.pl
+++ b/tracer.pl
@@ -184,25 +184,3 @@ foreach my $e (@expect) {
   is($map{$e},refaddr($value), "Result for ${e} ok");
 }
 
-=pod
-  
-use Data::Dumper; $Data::Dumper::Indent = 1;
-
-warn Dumper($tracer->_traced_refs);
-warn Dumper($tracer->_traced_names);
-
-=pod
-
-cmp_ok(
-  scalar(@expect), '==', scalar(@{$tracer->_traced_refs}),
-  'Right number of traced refs',
-);
-
-my $reflist = $tracer->_traced_refs;
-
-foreach my $i (0 .. $#expect) {
-  my $tail = "at list pos $i";
-  is($e[$i], $reflist[$i], "Correct ref $e[$i] at $tail");
-  my $data = getdata $reflist[$i], Trace::Constants::TRACE_WIZ;
-  is($data->[0], 'Blue', "tag ok at $tail");
-  cmp_ok($data->[1], '==', $i, "Index ok at $i");