/[cwmp]/google/t/05-store.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/05-store.t

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

revision 78 by dpavlin, Fri Jun 22 13:09:08 2007 UTC revision 79 by dpavlin, Fri Jun 22 14:32:13 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 => 5;  use Test::More tests => 8;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
10  use lib 'lib';  use lib 'lib';
# Line 25  ok( my $store = CWMP::Store->new({ Line 25  ok( my $store = CWMP::Store->new({
25  isa_ok( $store, 'CWMP::Store' );  isa_ok( $store, 'CWMP::Store' );
26    
27  cmp_ok( $store->path, 'eq', $path, 'path' );  cmp_ok( $store->path, 'eq', $path, 'path' );
28    
29    ok( $store->update_state( 42, { foo => 'bar' } ), 'update_state' );
30    
31    ok( my $state = $store->db->get('42'), 'db->get' );
32    
33    is_deeply( $state, { foo => 'bar' }, 'state' );
Legend:
Removed from v.78  
changed lines
  Added in v.79
  ViewVC Help
Powered by ViewVC 1.1.26