Remove spurious comma which broke test

[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 1745839..a61ba35 100644 (file)
--- a/t/200_examples/003_example.t
+++ b/t/200_examples/003_example.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 30;
+use Test::More;
 use Test::Exception;
 
 sub U {
@@ -30,7 +30,7 @@ sub Y {
     sub head { (shift)->_list->[0] }
     sub tail {
         my $self = shift;
-        $self->new(
+        (ref $self)->new(
             '::' => [
                 @{$self->_list}[1 .. $#{$self->_list}]
             ]
@@ -67,7 +67,7 @@ sub Y {
             my $redo = shift;
             sub {
                 my ($list, $func, $acc) = @_;
-                return $list->new('::' => $acc)
+                return (ref $list)->new('::' => $acc)
                     if $list->is_empty;
                 $redo->(
                     $list->tail,
@@ -154,10 +154,4 @@ sub Y {
     is($coll2->print, '1, 4, 9, 16, 25, 36, 49, 64, 81, 100', '... new collection is changed');
 }
 
-
-
-
-
-
-
-
+done_testing;