/[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 222 by dpavlin, Wed Nov 14 23:02:17 2007 UTC revision 223 by dpavlin, Sat Nov 24 02:17:40 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 => 19;  use Test::More tests => 20;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
10  use blib;  use blib;
# Line 192  my $state = { Line 192  my $state = {
192    _dispatch      => "InformResponse",    _dispatch      => "InformResponse",
193  };  };
194    
195  is_deeply( $store->current_store->get_state( 'CP0644JTHJ4' ), $state, 'store->current_store->get_state' );  ok( my $store_state = $store->current_store->get_state( 'CP0644JTHJ4' ), 'get_state' );
196    
197    is_deeply( $store_state, $state, 'store->current_store->get_state' );
198    
199  diag "shutdown server";  diag "shutdown server";
200    
Legend:
Removed from v.222  
changed lines
  Added in v.223
  ViewVC Help
Powered by ViewVC 1.1.26