DEATH TO ALL zionist ELLIPSES
[gitmo/Moose.git] / t / 100_bugs / 006_handles_foreign_class_bug.t
index dc162f5..f25d4e2 100644 (file)
@@ -28,17 +28,17 @@ use Test::Exception;
             default => sub { Foo->new() },
             handles => qr/^a$/,
         );
-    } '... can create the attribute with delegations';
+    } 'can create the attribute with delegations';
 
 }
 
 my $bar;
 lives_ok {
     $bar = Bar->new;
-} '... created the object ok';
+} 'created the object ok';
 isa_ok($bar, 'Bar');
 
-is($bar->a, 'Foo::a', '... got the right delgated value');
+is($bar->a, 'Foo::a', 'got the right delgated value');
 
 my @w;
 $SIG{__WARN__} = sub { push @w, "@_" };
@@ -54,7 +54,7 @@ $SIG{__WARN__} = sub { push @w, "@_" };
             default => sub { Foo->new() },
             handles => qr/.*/,
         );
-    } '... can create the attribute with delegations';
+    } 'can create the attribute with delegations';
 
 }
 
@@ -64,10 +64,10 @@ is(@w, 0, "no warnings");
 my $baz;
 lives_ok {
     $baz = Baz->new;
-} '... created the object ok';
+} 'created the object ok';
 isa_ok($baz, 'Baz');
 
-is($baz->a, 'Foo::a', '... got the right delgated value');
+is($baz->a, 'Foo::a', 'got the right delgated value');
 
 
 
@@ -87,7 +87,7 @@ is($baz->a, 'Foo::a', '... got the right delgated value');
             default => sub { Foo->new() },
             handles => [qw(a new)],
         );
-    } '... can create the attribute with delegations';
+    } 'can create the attribute with delegations';
 
 }
 
@@ -103,9 +103,9 @@ is($baz->a, 'Foo::a', '... got the right delgated value');
 my $blart;
 lives_ok {
     $blart = Blart->new;
-} '... created the object ok';
+} 'created the object ok';
 isa_ok($blart, 'Blart');
 
-is($blart->a, 'Foo::a', '... got the right delgated value');
+is($blart->a, 'Foo::a', 'got the right delgated value');