| Server IP : 188.40.95.74 / Your IP : 216.73.216.205 Web Server : Apache System : Linux cp01.striminghost.net 3.10.0-1160.119.1.el7.tuxcare.els13.x86_64 #1 SMP Fri Nov 22 06:29:45 UTC 2024 x86_64 User : vlasotin ( 1054) PHP Version : 5.6.40 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-Test-Simple-0.98/t/ |
Upload File : |
#!perl -w
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib';
}
}
chdir 't';
BEGIN {
# There was a bug with overloaded objects and threads.
# See rt.cpan.org 4218
eval { require threads; 'threads'->import; 1; };
}
use Test::More tests => 5;
package Overloaded;
use overload
q{""} => sub { $_[0]->{string} };
sub new {
my $class = shift;
bless { string => shift }, $class;
}
package main;
my $warnings = '';
local $SIG{__WARN__} = sub { $warnings = join '', @_ };
# overloaded object as name
my $obj = Overloaded->new('foo');
ok( 1, $obj );
# overloaded object which returns undef as name
my $undef = Overloaded->new(undef);
pass( $undef );
is( $warnings, '' );
TODO: {
my $obj = Overloaded->new('not really todo, testing overloaded reason');
local $TODO = $obj;
fail("Just checking todo as an overloaded value");
}
SKIP: {
my $obj = Overloaded->new('not really skipped, testing overloaded reason');
skip $obj, 1;
}