/[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 68 by dpavlin, Wed Jun 20 21:38:09 2007 UTC revision 69 by dpavlin, Wed Jun 20 23:24:56 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 => 28;  use Test::More tests => 53;
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 14  BEGIN { Line 14  BEGIN {
14          use_ok('CWMP::Request');          use_ok('CWMP::Request');
15  }  }
16    
17  my @models = ( qw/SpeedTouch-706/ );  my @models = ( qw/SpeedTouch-706 SpeedTouch-780/ );
18    
19  ok( $#models + 1, 'got models' );  ok( $#models + 1, 'got models' );
20    
# Line 50  foreach my $model ( @models ) { Line 50  foreach my $model ( @models ) {
50          my @xmls = map { "$dir/$_" } grep { /\.xml$/ && -f "$dir/$_" } readdir(DIR);          my @xmls = map { "$dir/$_" } grep { /\.xml$/ && -f "$dir/$_" } readdir(DIR);
51          closedir DIR;          closedir DIR;
52    
53          diag "got ", $#xmls + 1, " xml tests";          diag "$model has ", $#xmls + 1, " xml tests";
54    
55          ok( $#xmls, "xmls" );          ok( $#xmls, "xmls" );
56    
Legend:
Removed from v.68  
changed lines
  Added in v.69
  ViewVC Help
Powered by ViewVC 1.1.26