Parent Directory | Revision Log | Patch
revision 886 by dpavlin, Fri Sep 29 19:52:21 2006 UTC | revision 887 by dpavlin, Mon Sep 3 15:26:46 2007 UTC | |
---|---|---|
# | Line 6 use Cwd qw/abs_path/; | Line 6 use Cwd qw/abs_path/; |
6 | use blib; | use blib; |
7 | use strict; | use strict; |
8 | ||
9 | use Data::Dumper; | use Data::Dump qw/dump/; |
10 | ||
11 | my $debug = 1; | my $debug = 1; |
12 | ||
# | Line 42 foreach my $mfn ( 1 ... $size ) { | Line 42 foreach my $mfn ( 1 ... $size ) { |
42 | ||
43 | cmp_ok($input->pos, '==', $mfn, "pos $mfn"); | cmp_ok($input->pos, '==', $mfn, "pos $mfn"); |
44 | ||
45 | diag "rec: ", Dumper($rec), "\n"; | diag "rec: ", dump($rec), "\n"; |
46 | } | } |
47 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |