X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F040_type_constraints%2F023_types_and_undef.t;h=ca36bdb7b7d4892bea3055c92a0409ca06eceff9;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=f20ee2e7318f12a416122b168683f1ec8db094a9;hpb=f6bee6fe1d579dc3d2ed2952cce9a1556040c8e5;p=gitmo%2FMoose.git diff --git a/t/040_type_constraints/023_types_and_undef.t b/t/040_type_constraints/023_types_and_undef.t index f20ee2e..ca36bdb 100644 --- a/t/040_type_constraints/023_types_and_undef.t +++ b/t/040_type_constraints/023_types_and_undef.t @@ -46,21 +46,21 @@ ok(!Int(undef), '... undef is NOT a Int'); ok(!Number(undef), '... undef is NOT a Number'); ok(!Str(undef), '... undef is NOT a Str'); ok(!String(undef), '... undef is NOT a String'); - + ok(!Undef(5), '... 5 is a NOT a Undef'); ok(Defined(5), '... 5 is a Defined'); ok(Int(5), '... 5 is a Int'); ok(Number(5), '... 5 is a Number'); -ok(Str(5), '... 5 is a Str'); +ok(Str(5), '... 5 is a Str'); ok(!String(5), '... 5 is NOT a String'); - + ok(!Undef(0.5), '... 0.5 is a NOT a Undef'); ok(Defined(0.5), '... 0.5 is a Defined'); ok(!Int(0.5), '... 0.5 is NOT a Int'); ok(Number(0.5), '... 0.5 is a Number'); ok(Str(0.5), '... 0.5 is a Str'); ok(!String(0.5), '... 0.5 is NOT a String'); - + ok(!Undef('Foo'), '... "Foo" is NOT a Undef'); ok(Defined('Foo'), '... "Foo" is a Defined'); ok(!Int('Foo'), '... "Foo" is NOT a Int'); @@ -73,16 +73,16 @@ my $foo = Foo->new; lives_ok { $foo->vUndef(undef) } '... undef is a Foo->Undef'; dies_ok { $foo->vDefined(undef) } '... undef is NOT a Foo->Defined'; -dies_ok { $foo->vInt(undef) } '... undef is NOT a Foo->Int'; -dies_ok { $foo->vNumber(undef) } '... undef is NOT a Foo->Number'; -dies_ok { $foo->vStr(undef) } '... undef is NOT a Foo->Str'; -dies_ok { $foo->vString(undef) } '... undef is NOT a Foo->String'; +dies_ok { $foo->vInt(undef) } '... undef is NOT a Foo->Int'; +dies_ok { $foo->vNumber(undef) } '... undef is NOT a Foo->Number'; +dies_ok { $foo->vStr(undef) } '... undef is NOT a Foo->Str'; +dies_ok { $foo->vString(undef) } '... undef is NOT a Foo->String'; dies_ok { $foo->vUndef(5) } '... 5 is NOT a Foo->Undef'; lives_ok { $foo->vDefined(5) } '... 5 is a Foo->Defined'; lives_ok { $foo->vInt(5) } '... 5 is a Foo->Int'; lives_ok { $foo->vNumber(5) } '... 5 is a Foo->Number'; -lives_ok { $foo->vStr(5) } '... 5 is a Foo->Str'; +lives_ok { $foo->vStr(5) } '... 5 is a Foo->Str'; dies_ok { $foo->vString(5) } '... 5 is NOT a Foo->String'; dies_ok { $foo->vUndef(0.5) } '... 0.5 is NOT a Foo->Undef'; @@ -99,14 +99,14 @@ dies_ok { $foo->vNumber('Foo') } '... "Foo" is NOT a Foo->Number'; lives_ok { $foo->vStr('Foo') } '... "Foo" is a Foo->Str'; lives_ok { $foo->vString('Foo') } '... "Foo" is a Foo->String'; -# the lazy tests +# the lazy tests lives_ok { $foo->v_lazy_Undef() } '... undef is a Foo->Undef'; dies_ok { $foo->v_lazy_Defined() } '... undef is NOT a Foo->Defined'; -dies_ok { $foo->v_lazy_Int() } '... undef is NOT a Foo->Int'; -dies_ok { $foo->v_lazy_Number() } '... undef is NOT a Foo->Number'; -dies_ok { $foo->v_lazy_Str() } '... undef is NOT a Foo->Str'; -dies_ok { $foo->v_lazy_String() } '... undef is NOT a Foo->String'; +dies_ok { $foo->v_lazy_Int() } '... undef is NOT a Foo->Int'; +dies_ok { $foo->v_lazy_Number() } '... undef is NOT a Foo->Number'; +dies_ok { $foo->v_lazy_Str() } '... undef is NOT a Foo->Str'; +dies_ok { $foo->v_lazy_String() } '... undef is NOT a Foo->String';