Adde binary packages

[pkg-perl] / deb-src / libsub-uplevel-perl / libsub-uplevel-perl-0.1901 / t / 04_honor_later_override.t

diff --git a/deb-src/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/t/04_honor_later_override.t b/deb-src/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/t/04_honor_later_override.t
deleted file mode 100644 (file)
index f0c0b2a..0000000
--- a/deb-src/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/t/04_honor_later_override.t
+++ /dev/null
@@ -1,82 +0,0 @@
-#!/usr/bin/perl -Tw
-
-use lib qw(t/lib);
-use strict;
-use Test::More tests => 7;
-
-# Goal of these tests: confirm that Sub::Uplevel will honor (use) a
-# CORE::GLOBAL::caller that occurs after Sub::Uplevel is loaded
-
-#--------------------------------------------------------------------------#
-# define a custom caller function that reverses the package name
-#--------------------------------------------------------------------------#
-
-sub _reverse_caller(;$) { 
-    my $height = $_[0];
-    my @caller = CORE::caller(++$height);
-    $caller[0] = reverse $caller[0];
-    if( wantarray and !@_ ) {
-        return @caller[0..2];
-    }
-    elsif (wantarray) {
-        return @caller;
-    }
-    else {
-        return $caller[0];
-    }
-}
-
-#--------------------------------------------------------------------------#
-# load Sub::Uplevel then redefine CORE::GLOBAL::caller
-#--------------------------------------------------------------------------#
-
-BEGIN {
-    ok( ! defined *CORE::GLOBAL::caller{CODE}, 
-        "no global override yet" 
-    );
-
-    use_ok('Sub::Uplevel');
-
-    is( *CORE::GLOBAL::caller{CODE}, \&Sub::Uplevel::_normal_caller,
-        "Sub::Uplevel's normal caller override in place"
-    );
-
-    # old style no warnings 'redefine'
-    my $old_W = $^W;
-    $^W = 0;
-        
-    *CORE::GLOBAL::caller = \&_reverse_caller;
-    $^W = $old_W
-
-}
-
-is( *CORE::GLOBAL::caller{CODE}, \&_reverse_caller, 
-    "added new, custom caller override"
-);
-
-#--------------------------------------------------------------------------#
-# define subs *after* caller has been redefined in BEGIN
-#--------------------------------------------------------------------------#
-
-sub test_caller { return scalar caller }
-
-sub uplevel_caller { return uplevel 1, \&test_caller }
-
-sub test_caller_w_uplevel { return uplevel_caller }
-
-#--------------------------------------------------------------------------#
-# Test for reversed package name both inside and outside an uplevel call
-#--------------------------------------------------------------------------#
-
-is( scalar caller(), '',
-    "caller from main package is empty string"
-);
-
-is( test_caller(), reverse("main"),
-    "caller from subroutine calls custom routine"
-);
-
-is( test_caller_w_uplevel(), reverse("main"),
-    "caller from uplevel subroutine calls custom routine"
-);
-