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=c2dae5d88280be6f80857e79194f092298f88b36;hp=0e7fc7a13f36e1dafb547e568245b30c7f265af7;hpb=9d3c60f5f35a8d28951049e8daccd9f67c22f9aa;p=gitmo%2FMooseX-Storage.git diff --git a/t/009_do_not_serialize_lazy.t b/t/009_do_not_serialize_lazy.t index 0e7fc7a..9242065 100644 --- a/t/009_do_not_serialize_lazy.t +++ b/t/009_do_not_serialize_lazy.t @@ -1,9 +1,8 @@ -#!/usr/bin/perl - use strict; use warnings; use Test::More 'no_plan';#tests => 6; +use Test::Deep; use Test::Fatal; BEGIN { @@ -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'