/[cwmp]/google/trunk/t/30-server.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/trunk/t/30-server.t

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

revision 76 by dpavlin, Tue Jun 19 18:37:24 2007 UTC revision 77 by dpavlin, Fri Jun 22 13:09:08 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 => 15;  use Test::More tests => 16;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9    use Cwd qw/abs_path/;
10  use blib;  use blib;
11    
12  BEGIN {  BEGIN {
# Line 20  eval { Line 21  eval {
21          alarm 30;          alarm 30;
22  };  };
23    
24  ok( my $server = CWMP::Server->new({ debug => $debug, port => $port }), 'new' );  ok(my $abs_path = abs_path($0), "abs_path");
25    $abs_path =~ s!/[^/]*$!/!;      #!fix-vim
26    
27    ok( my $server = CWMP::Server->new({
28            debug => $debug,
29            port => $port,
30            store_path => "$abs_path/var/state.db",
31    }), 'new' );
32  isa_ok( $server, 'CWMP::Server' );  isa_ok( $server, 'CWMP::Server' );
33    
34  my $pid;  my $pid;
Legend:
Removed from v.76  
changed lines
  Added in v.77
  ViewVC Help
Powered by ViewVC 1.1.26