DEATH TO ALL zionist ELLIPSES

[gitmo/Moose.git] / t / 200_examples / 003_example.t

diff --git a/t/200_examples/003_example.t b/t/200_examples/003_example.t
index 2e081bb..e9e194c 100644 (file)
--- a/t/200_examples/003_example.t
+++ b/t/200_examples/003_example.t
@@ -83,14 +83,14 @@ sub Y {
 
     ::lives_ok {
         with 'List', 'List::Immutable';
-    } '... successfully composed roles together';
+    } 'successfully composed roles together';
 
     package My::List2;
     use Moose;
 
     ::lives_ok {
         with 'List::Immutable', 'List';
-    } '... successfully composed roles together';
+    } 'successfully composed roles together';
 
 }
 
@@ -98,60 +98,60 @@ sub Y {
     my $coll = My::List1->new;
     isa_ok($coll, 'My::List1');
 
-    ok($coll->does('List'), '... $coll does List');
-    ok($coll->does('List::Immutable'), '... $coll does List::Immutable');
+    ok($coll->does('List'), '$coll does List');
+    ok($coll->does('List::Immutable'), '$coll does List::Immutable');
 
-    ok($coll->is_empty, '... we have an empty collection');
-    is($coll->length, 0, '... we have a length of 1 for the collection');
+    ok($coll->is_empty, 'we have an empty collection');
+    is($coll->length, 0, 'we have a length of 1 for the collection');
 }
 
 {
     my $coll = My::List2->new;
     isa_ok($coll, 'My::List2');
 
-    ok($coll->does('List'), '... $coll does List');
-    ok($coll->does('List::Immutable'), '... $coll does List::Immutable');
+    ok($coll->does('List'), '$coll does List');
+    ok($coll->does('List::Immutable'), '$coll does List::Immutable');
 
-    ok($coll->is_empty, '... we have an empty collection');
-    is($coll->length, 0, '... we have a length of 1 for the collection');
+    ok($coll->is_empty, 'we have an empty collection');
+    is($coll->length, 0, 'we have a length of 1 for the collection');
 }
 
 {
     my $coll = My::List1->new('::' => [ 1 .. 10 ]);
     isa_ok($coll, 'My::List1');
 
-    ok($coll->does('List'), '... $coll does List');
-    ok($coll->does('List::Immutable'), '... $coll does List::Immutable');
+    ok($coll->does('List'), '$coll does List');
+    ok($coll->does('List::Immutable'), '$coll does List::Immutable');
 
-    ok(!$coll->is_empty, '... we do not have an empty collection');
-    is($coll->length, 10, '... we have a length of 10 for the collection');
+    ok(!$coll->is_empty, 'we do not have an empty collection');
+    is($coll->length, 10, 'we have a length of 10 for the collection');
 
-    is($coll->print, '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', '... got the right printed value');
+    is($coll->print, '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'got the right printed value');
 
     my $coll2 = $coll->apply(sub { $_[0] * $_[0] });
     isa_ok($coll2, 'My::List1');
 
-    is($coll->print, '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', '... original is still the same');
-    is($coll2->print, '1, 4, 9, 16, 25, 36, 49, 64, 81, 100', '... new collection is changed');
+    is($coll->print, '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'original is still the same');
+    is($coll2->print, '1, 4, 9, 16, 25, 36, 49, 64, 81, 100', 'new collection is changed');
 }
 
 {
     my $coll = My::List2->new('::' => [ 1 .. 10 ]);
     isa_ok($coll, 'My::List2');
 
-    ok($coll->does('List'), '... $coll does List');
-    ok($coll->does('List::Immutable'), '... $coll does List::Immutable');
+    ok($coll->does('List'), '$coll does List');
+    ok($coll->does('List::Immutable'), '$coll does List::Immutable');
 
-    ok(!$coll->is_empty, '... we do not have an empty collection');
-    is($coll->length, 10, '... we have a length of 10 for the collection');
+    ok(!$coll->is_empty, 'we do not have an empty collection');
+    is($coll->length, 10, 'we have a length of 10 for the collection');
 
-    is($coll->print, '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', '... got the right printed value');
+    is($coll->print, '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'got the right printed value');
 
     my $coll2 = $coll->apply(sub { $_[0] * $_[0] });
     isa_ok($coll2, 'My::List2');
 
-    is($coll->print, '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', '... original is still the same');
-    is($coll2->print, '1, 4, 9, 16, 25, 36, 49, 64, 81, 100', '... new collection is changed');
+    is($coll->print, '1, 2, 3, 4, 5, 6, 7, 8, 9, 10', 'original is still the same');
+    is($coll2->print, '1, 4, 9, 16, 25, 36, 49, 64, 81, 100', 'new collection is changed');
 }