X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F009_do_not_serialize_lazy.t;h=924206504a41f36f5030a9786c33f764d0d7d0fb;hb=c2d52f94beb56939250944a12df15d7d90779866;hp=54331bfdfebdcf7197fc12bc52944412d3193195;hpb=76218b465af423661a8b711a20e3e458f9adbb08;p=gitmo%2FMooseX-Storage.git diff --git a/t/009_do_not_serialize_lazy.t b/t/009_do_not_serialize_lazy.t index 54331bf..9242065 100644 --- a/t/009_do_not_serialize_lazy.t +++ b/t/009_do_not_serialize_lazy.t @@ -1,10 +1,9 @@ -#!/usr/bin/perl - use strict; use warnings; use Test::More 'no_plan';#tests => 6; -use Test::Exception; +use Test::Deep; +use Test::Fatal; BEGIN { use_ok('MooseX::Storage'); @@ -19,8 +18,8 @@ BEGIN { has 'x' => (is => 'rw', lazy_build => 1 ); has 'y' => (is => 'rw', lazy_build => 1 ); has 'z' => (is => 'rw', builder => '_build_z' ); - - + + sub _build_x { 'x' } sub _build_y { 'y' } sub _build_z { 'z' } @@ -37,8 +36,8 @@ is( $href->{'x'}, $$, " x => $$" ); is( $href->{'z'}, 'z', " z => z" ); ok( not(exists($href->{'y'})), " y does not exist" ); -is_deeply( - $href, +cmp_deeply( + $href, { '__CLASS__' => 'Point', 'x' => $$, 'z' => 'z'