X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100_bugs%2F013_lazybuild_required_undef.t;h=a5377cbf1ae9b604ccbce8025694cfcba4b83497;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hp=d4cba4821ec47f0b0f85fa710d8afbe91dae8f40;hpb=8845df4dd6432e3164d078ade741409061adae9f;p=gitmo%2FMouse.git

diff --git a/t/100_bugs/013_lazybuild_required_undef.t b/t/100_bugs/013_lazybuild_required_undef.t
index d4cba48..a5377cb 100644
--- a/t/100_bugs/013_lazybuild_required_undef.t
+++ b/t/100_bugs/013_lazybuild_required_undef.t
@@ -1,7 +1,7 @@
+use strict;
+use Test::More tests => 4;
+
 package Foo;
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
 use Mouse;
 
 ## Problem:
@@ -14,13 +14,12 @@ use Mouse;
 #### or, make required accept undef and use a predicate test
 
 
-has 'foo' => ( isa => 'Int | Undef', is => 'rw', lazy_build => 1 );
-has 'bar' => ( isa => 'Int | Undef', is => 'rw' );
+has 'foo' => ( isa => 'Int | Undef', is => 'rw', coerce => 1, lazy_build => 1 );
+has 'bar' => ( isa => 'Int | Undef', is => 'rw', coerce => 1 );
 
 sub _build_foo { undef }
 
 package main;
-use Test::More;
 
 ok ( !defined(Foo->new->bar), 'NonLazyBuild: Undef default' );
 ok ( !defined(Foo->new->bar(undef)), 'NonLazyBuild: Undef explicit' );
@@ -29,5 +28,3 @@ ok ( !defined(Foo->new->foo), 'LazyBuild: Undef default/lazy_build' );
 
 ## This test fails at the time of creation.
 ok ( !defined(Foo->new->foo(undef)), 'LazyBuild: Undef explicit' );
-
-done_testing;