This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Temporarily revert some lib/overload.t tests
authorDavid Mitchell <davem@iabyn.com>
Tue, 14 Feb 2012 16:20:14 +0000 (16:20 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:25:47 +0000 (13:25 +0100)
these accumulated from a few recent commits. Removing will make rebasing
easier.

lib/overload.t

index c0478ee..5d6e38d 100644 (file)
@@ -48,7 +48,7 @@ package main;
 
 $| = 1;
 BEGIN { require './test.pl' }
-plan tests => 5041;
+plan tests => 5037;
 
 use Scalar::Util qw(tainted);
 
@@ -957,18 +957,6 @@ unless ($aaa) {
 }
 
 {
-    # check the invalid argument warning [perl #74098]
-    my $a = "" ;
-    local $SIG{__WARN__} = sub {$a = $_[0]} ;
-    $x = eval ' use overload "~|_|~" => sub{} ' ;
-    is($a, "");
-    use warnings 'overload' ;
-    $x = eval ' use overload "~|_|~" => sub{} ' ;
-    like($a, qr/^overload arg '~\|_\|~' is invalid at \(eval \d+\) line /,
-       'invalid arg warning');
-}
-
-{
   my $c = 0;
   package ov_int1;
   use overload '""'    => sub { 3+shift->[0] },
@@ -2209,39 +2197,4 @@ fresh_perl_is
     ::ok(1, 'no crash when undefining %overload::');
 }
 
-# [perl #40333]
-# overload::Overloaded should not use a ->can designed for autoloading.
-# This example attempts to be as realistic as possible.  The o class has a
-# default singleton object, but can have instances, too.  The proxy class
-# represents proxies for o objects, but class methods delegate to the
-# singleton.
-# overload::Overloaded used to return incorrect results for proxy objects.
-package proxy {
-    sub new { bless [$_[1]], $_[0] }
-    sub AUTOLOAD {
-       our $AUTOLOAD =~ s/.*:://;
-       &_self->$AUTOLOAD;
-    }
-    sub can      { SUPER::can{@_} || &_self->can($_[1]) }
-    sub _self { ref $_[0] ? $_[0][0] : $o::singleton }
-}
-package o     { use overload '""' => sub { 'keck' };
-                sub new { bless[], $_[0] }
-                our $singleton = o->new; }
-ok !overload::Overloaded(new proxy new o),
- 'overload::Overloaded does not incorrectly return true for proxy classes';
-
-# Another test, based on the type of explosive test class for which
-# perl #40333 was filed.
-{
-    package broken_can;
-    sub can {}
-    use overload '""' => sub {"Ahoy!"};
-
-    package main;
-    my $obj = bless [], 'broken_can';
-    ok(overload::Overloaded($obj));
-}
-
-
 # EOF