From: Shawn M Moore <sartak@gmail.com>
Date: Sun, 18 May 2008 15:05:28 +0000 (+0000)
Subject: No longer need t/082_get_code_info.t, it's SEP
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Fattic%2Fno_subname;p=gitmo%2FClass-MOP.git

No longer need t/082_get_code_info.t, it's SEP
---

diff --git a/t/082_get_code_info.t b/t/082_get_code_info.t
deleted file mode 100644
index 1a10319..0000000
--- a/t/082_get_code_info.t
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More 'no_plan';
-
-BEGIN { use_ok("Class::MOP") }
-
-use Sub::Name qw(subname);
-
-sub code_name_is ($$$;$) {
-    my ( $code, $stash, $name, $desc ) = @_;
-    $desc ||= "sub name is ${stash}::$name";
-
-    is_deeply(
-        [ Class::MOP::get_code_info($code) ],
-        [ $stash, $name ],
-        $desc,
-    );
-}
-
-code_name_is( sub {}, main => "__ANON__" );
-
-code_name_is( subname("Foo::bar", sub {}), Foo => "bar" );
-
-code_name_is( subname("", sub {}), "main" => "" );
-
-require Class::MOP::Method;
-code_name_is( \&Class::MOP::Method::name, "Class::MOP::Method", "name" );
-