X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=t%2F30-server.t;h=7545d600c88491587fae9fa4bd86a43c6adf830a;hp=5926000cf518d15e748b7e2ee0d9b5451c43d4da;hb=d4b4202a2f21c686eb6bb6c9efaf49cf3ed7c954;hpb=05a74703cfed777742e9110b36f4ecd3dd1878cc

diff --git a/t/30-server.t b/t/30-server.t
index 5926000..7545d60 100755
--- a/t/30-server.t
+++ b/t/30-server.t
@@ -4,7 +4,7 @@ use warnings;
 
 my $debug = shift @ARGV;
 
-use Test::More tests => 19;
+use Test::More tests => 20;
 use Data::Dump qw/dump/;
 use Cwd qw/abs_path/;
 use blib;
@@ -192,7 +192,9 @@ my $state = {
   _dispatch      => "InformResponse",
 };
 
-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' );
+
+is_deeply( $store_state, $state, 'store->current_store->get_state' );
 
 diag "shutdown server";