X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F070_native_traits%2F207_trait_string.t;h=0a5cf9a0f79ed8de23ec47441d915d3400576e77;hb=1808c2dab86d0317d10f70d3a7a923e97daf54bb;hp=7c85ae82c477514f8ef8e7285dbfbf051c540f82;hpb=6b584f6c4dc1c2108c1bc233caec49627b2cce04;p=gitmo%2FMoose.git diff --git a/t/070_native_traits/207_trait_string.t b/t/070_native_traits/207_trait_string.t index 7c85ae8..0a5cf9a 100644 --- a/t/070_native_traits/207_trait_string.t +++ b/t/070_native_traits/207_trait_string.t @@ -36,17 +36,17 @@ my $uc; my $page = MyHomePage->new(); isa_ok( $page, 'MyHomePage' ); -is( $page->string, '', '... got the default value' ); -is( $page->length_string, 0,'... length is zero' ); +is( $page->string, '', 'got the default value' ); +is( $page->length_string, 0,'length is zero' ); $page->string('a'); -is( $page->length_string, 1,'... new string has length of one' ); +is( $page->length_string, 1,'new string has length of one' ); $page->inc_string; -is( $page->string, 'b', '... got the incremented value' ); +is( $page->string, 'b', 'got the incremented value' ); $page->inc_string; -is( $page->string, 'c', '... got the incremented value (again)' ); +is( $page->string, 'c', 'got the incremented value (again)' ); $page->append_string("foo$/"); is( $page->string, "cfoo$/", 'appended to string' ); @@ -92,7 +92,7 @@ does_ok( $string, 'Moose::Meta::Attribute::Native::Trait::String' ); is( $string->type_constraint->name, 'Str', - '... got the expected type constraint' + 'got the expected type constraint' ); is_deeply( @@ -111,6 +111,6 @@ is_deeply( capitalize_last => [ replace => qr/(.)$/, $uc ], invalid_number => [ match => qr/\D/ ], }, - '... got the right handles methods' + 'got the right handles methods' );