X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F34_next_method_in_eval.t;fp=t%2F34_next_method_in_eval.t;h=0000000000000000000000000000000000000000;hb=fbe8c8c4b14d12e8f2e254abe7aab98c74391920;hp=f782cd6fbae6933c9576c55e42ea6bbeef4ff839;hpb=8995e8271e0f7f7b9c0942a4425e8a44099bf608;p=gitmo%2FClass-C3-XS.git

diff --git a/t/34_next_method_in_eval.t b/t/34_next_method_in_eval.t
deleted file mode 100644
index f782cd6..0000000
--- a/t/34_next_method_in_eval.t
+++ /dev/null
@@ -1,51 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 2;
-
-BEGIN {
-    use lib 'opt', '../opt', '..';    
-    use_ok('c3');
-}
-
-=pod
-
-This tests the use of an eval{} block to wrap a next::method call.
-
-=cut
-
-{
-    package A;
-    use c3; 
-
-    sub foo {
-      die 'A::foo died';
-      return 'A::foo succeeded';
-    }
-}
-
-{
-    package B;
-    use base 'A';
-    use c3; 
-    
-    sub foo {
-      eval {
-        return 'B::foo => ' . (shift)->next::method();
-      };
-
-      if ($@) {
-        return $@;
-      }
-    }
-}
-
-Class::C3::initialize();  
-
-like(B->foo, 
-   qr/^A::foo died/, 
-   'method resolved inside eval{}');
-
-