projects / gitmo/Class-MOP.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw (parent: e569876)
Tidy this bizarrely indented code before adding more tests.
Dave Rolsky [Fri, 7 Nov 2008 19:42:51 +0000 (19:42 +0000)]
t/031_method_modifiers.t patch | blob | blame | history

diff --git a/t/031_method_modifiers.t b/t/031_method_modifiers.t
index 3ef94b8..200b045 100644 (file)
--- a/t/031_method_modifiers.t
+++ b/t/031_method_modifiers.t
@@ -11,119 +11,135 @@ use Class::MOP::Method;
 
 # test before and afters
 {
-       my $trace = '';
-
-       my $method = Class::MOP::Method->wrap(
-           body         => sub { $trace .= 'primary' },
-           package_name => 'main',
-           name         => '__ANON__',
-       );
-       isa_ok($method, 'Class::MOP::Method');
-
-       $method->();
-       is($trace, 'primary', '... got the right return value from method');
-       $trace = '';
-
-       my $wrapped = Class::MOP::Method::Wrapped->wrap($method);
-       isa_ok($wrapped, 'Class::MOP::Method::Wrapped');
-       isa_ok($wrapped, 'Class::MOP::Method');
-
-       $wrapped->();
-       is($trace, 'primary', '... got the right return value from the wrapped method');
-       $trace = '';
-
-       lives_ok {
-               $wrapped->add_before_modifier(sub { $trace .= 'before -> ' });
-       } '... added the before modifier okay';
-
-       $wrapped->();
-       is($trace, 'before -> primary', '... got the right return value from the wrapped method (w/ before)');
-       $trace = '';
-
-       lives_ok {
-               $wrapped->add_after_modifier(sub { $trace .= ' -> after' });
-       } '... added the after modifier okay';
-
-       $wrapped->();
-       is($trace, 'before -> primary -> after', '... got the right return value from the wrapped method (w/ before)');
-       $trace = '';
+    my $trace = '';
+
+    my $method = Class::MOP::Method->wrap(
+        body => sub { $trace .= 'primary' },
+        package_name => 'main',
+        name         => '__ANON__',
+    );
+    isa_ok( $method, 'Class::MOP::Method' );
+
+    $method->();
+    is( $trace, 'primary', '... got the right return value from method' );
+    $trace = '';
+
+    my $wrapped = Class::MOP::Method::Wrapped->wrap($method);
+    isa_ok( $wrapped, 'Class::MOP::Method::Wrapped' );
+    isa_ok( $wrapped, 'Class::MOP::Method' );
+
+    $wrapped->();
+    is( $trace, 'primary',
+        '... got the right return value from the wrapped method' );
+    $trace = '';
+
+    lives_ok {
+        $wrapped->add_before_modifier( sub { $trace .= 'before -> ' } );
+    }
+    '... added the before modifier okay';
+
+    $wrapped->();
+    is( $trace, 'before -> primary',
+        '... got the right return value from the wrapped method (w/ before)'
+    );
+    $trace = '';
+
+    lives_ok {
+        $wrapped->add_after_modifier( sub { $trace .= ' -> after' } );
+    }
+    '... added the after modifier okay';
+
+    $wrapped->();
+    is( $trace, 'before -> primary -> after',
+        '... got the right return value from the wrapped method (w/ before)'
+    );
+    $trace = '';
 }
 
 # test around method
 {
-       my $method = Class::MOP::Method->wrap(
-           sub { 4 },
-           package_name => 'main',
-           name         => '__ANON__', 
-       );
-       isa_ok($method, 'Class::MOP::Method');
-       
-       is($method->(), 4, '... got the right value from the wrapped method');  
-
-       my $wrapped = Class::MOP::Method::Wrapped->wrap($method);
-       isa_ok($wrapped, 'Class::MOP::Method::Wrapped');
-       isa_ok($wrapped, 'Class::MOP::Method');
-
-       is($wrapped->(), 4, '... got the right value from the wrapped method');
-       
-       lives_ok {
-               $wrapped->add_around_modifier(sub { (3, $_[0]->()) });          
-               $wrapped->add_around_modifier(sub { (2, $_[0]->()) });
-               $wrapped->add_around_modifier(sub { (1, $_[0]->()) });          
-               $wrapped->add_around_modifier(sub { (0, $_[0]->()) });                          
-       } '... added the around modifier okay'; 
-
-       is_deeply(
-               [ $wrapped->() ],
-               [ 0, 1, 2, 3, 4 ],
-               '... got the right results back from the around methods (in list context)');
-               
-       is(scalar $wrapped->(), 4, '... got the right results back from the around methods (in scalar context)');               
+    my $method = Class::MOP::Method->wrap(
+        sub {4},
+        package_name => 'main',
+        name         => '__ANON__',
+    );
+    isa_ok( $method, 'Class::MOP::Method' );
+
+    is( $method->(), 4, '... got the right value from the wrapped method' );
+
+    my $wrapped = Class::MOP::Method::Wrapped->wrap($method);
+    isa_ok( $wrapped, 'Class::MOP::Method::Wrapped' );
+    isa_ok( $wrapped, 'Class::MOP::Method' );
+
+    is( $wrapped->(), 4, '... got the right value from the wrapped method' );
+
+    lives_ok {
+        $wrapped->add_around_modifier( sub { ( 3, $_[0]->() ) } );
+        $wrapped->add_around_modifier( sub { ( 2, $_[0]->() ) } );
+        $wrapped->add_around_modifier( sub { ( 1, $_[0]->() ) } );
+        $wrapped->add_around_modifier( sub { ( 0, $_[0]->() ) } );
+    }
+    '... added the around modifier okay';
+
+    is_deeply(
+        [ $wrapped->() ],
+        [ 0, 1, 2, 3, 4 ],
+        '... got the right results back from the around methods (in list context)'
+    );
+
+    is( scalar $wrapped->(), 4,
+        '... got the right results back from the around methods (in scalar context)'
+    );
 }
 
 {
-       my @tracelog;
-       
-       my $method = Class::MOP::Method->wrap(
-           sub { push @tracelog => 'primary' },
-           package_name => 'main',
-           name         => '__ANON__', 
-       );
-       isa_ok($method, 'Class::MOP::Method');
-       
-       my $wrapped = Class::MOP::Method::Wrapped->wrap($method);
-       isa_ok($wrapped, 'Class::MOP::Method::Wrapped');
-       isa_ok($wrapped, 'Class::MOP::Method'); 
-       
-       lives_ok {
-               $wrapped->add_before_modifier(sub { push @tracelog => 'before 1' });
-               $wrapped->add_before_modifier(sub { push @tracelog => 'before 2' });            
-               $wrapped->add_before_modifier(sub { push @tracelog => 'before 3' });            
-       } '... added the before modifier okay';
-       
-       lives_ok {
-               $wrapped->add_around_modifier(sub { push @tracelog => 'around 1'; $_[0]->(); });                
-               $wrapped->add_around_modifier(sub { push @tracelog => 'around 2'; $_[0]->(); });
-               $wrapped->add_around_modifier(sub { push @tracelog => 'around 3'; $_[0]->(); });                                                
-       } '... added the around modifier okay'; 
-       
-       lives_ok {
-               $wrapped->add_after_modifier(sub { push @tracelog => 'after 1' });
-               $wrapped->add_after_modifier(sub { push @tracelog => 'after 2' });
-               $wrapped->add_after_modifier(sub { push @tracelog => 'after 3' });                              
-       } '... added the after modifier okay';  
-       
-       $wrapped->();
-       is_deeply(
-               \@tracelog,
-               [ 
-                 'before 3', 'before 2', 'before 1',  # last-in-first-out order
-                 'around 3', 'around 2', 'around 1',  # last-in-first-out order
-                 'primary',
-                 'after 1', 'after 2', 'after 3',     # first-in-first-out order
-               ],
-               '... got the right tracelog from all our before/around/after methods');
+    my @tracelog;
+
+    my $method = Class::MOP::Method->wrap(
+        sub { push @tracelog => 'primary' },
+        package_name => 'main',
+        name         => '__ANON__',
+    );
+    isa_ok( $method, 'Class::MOP::Method' );
+
+    my $wrapped = Class::MOP::Method::Wrapped->wrap($method);
+    isa_ok( $wrapped, 'Class::MOP::Method::Wrapped' );
+    isa_ok( $wrapped, 'Class::MOP::Method' );
+
+    lives_ok {
+        $wrapped->add_before_modifier( sub { push @tracelog => 'before 1' } );
+        $wrapped->add_before_modifier( sub { push @tracelog => 'before 2' } );
+        $wrapped->add_before_modifier( sub { push @tracelog => 'before 3' } );
+    }
+    '... added the before modifier okay';
+
+    lives_ok {
+        $wrapped->add_around_modifier(
+            sub { push @tracelog => 'around 1'; $_[0]->(); } );
+        $wrapped->add_around_modifier(
+            sub { push @tracelog => 'around 2'; $_[0]->(); } );
+        $wrapped->add_around_modifier(
+            sub { push @tracelog => 'around 3'; $_[0]->(); } );
+    }
+    '... added the around modifier okay';
+
+    lives_ok {
+        $wrapped->add_after_modifier( sub { push @tracelog => 'after 1' } );
+        $wrapped->add_after_modifier( sub { push @tracelog => 'after 2' } );
+        $wrapped->add_after_modifier( sub { push @tracelog => 'after 3' } );
+    }
+    '... added the after modifier okay';
+
+    $wrapped->();
+    is_deeply(
+        \@tracelog,
+        [
+            'before 3', 'before 2', 'before 1',    # last-in-first-out order
+            'around 3', 'around 2', 'around 1',    # last-in-first-out order
+            'primary',
+            'after 1', 'after 2', 'after 3',       # first-in-first-out order
+        ],
+        '... got the right tracelog from all our before/around/after methods'
+    );
 }
 
-
-
A Meta Object Protocol for Perl 5 - now lives at https://github.com/moose/Moose