/[cwmp]/google/t/10-request.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/t/10-request.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 62 by dpavlin, Wed Jun 20 21:33:35 2007 UTC revision 63 by dpavlin, Wed Jun 20 21:38:09 2007 UTC
# Line 4  use warnings; Line 4  use warnings;
4    
5  my $debug = shift @ARGV;  my $debug = shift @ARGV;
6    
7  use Test::More tests => 24;  use Test::More tests => 28;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
10  use File::Slurp;  use File::Slurp;
# Line 35  sub file_is_deeply { Line 35  sub file_is_deeply {
35    
36          write_file( $dump_path, dump( $state ) ) unless ( -e $dump_path );          write_file( $dump_path, dump( $state ) ) unless ( -e $dump_path );
37    
38          diag "$path ? $dump_path";          diag "$path ? $dump_path" if $debug;
39    
40          my $hash = read_file( $dump_path ), "read_file( $dump_path )";          ok( my $hash = read_file( $dump_path ), "read_file( $dump_path )" );
41          ok ( $hash = eval "$hash", 'eval' );          ok ( $hash = eval "$hash", 'eval' );
42    
43          is_deeply( $state, $hash, 'same' );          is_deeply( $state, $hash, 'same' );
Legend:
Removed from v.62  
changed lines
  Added in v.63
  ViewVC Help
Powered by ViewVC 1.1.26