Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
0nothread.t	1.8 KB	-r--r--r--	2014-12-27 11:48
av_refs.t	2.05 KB	-r--r--r--	2014-12-27 11:48
av_simple.t	4 KB	-r--r--r--	2014-12-27 11:49
blessed.t	4.51 KB	-r--r--r--	2014-12-27 11:48
clone.t	4.94 KB	-r--r--r--	2014-12-27 11:48
cond.t	6.14 KB	-r--r--r--	2014-12-27 11:48
disabled.t	1.27 KB	-r--r--r--	2014-12-27 11:48
dualvar.t	8.29 KB	-r--r--r--	2014-12-27 11:48
hv_refs.t	2.97 KB	-r--r--r--	2014-12-27 11:48
hv_simple.t	1.83 KB	-r--r--r--	2014-12-27 11:48
no_share.t	1.29 KB	-r--r--r--	2014-12-27 11:48
object.t	4.03 KB	-r--r--r--	2014-12-27 11:48
object2.t	12.88 KB	-r--r--r--	2014-12-27 11:49
shared_attr.t	1.74 KB	-r--r--r--	2014-12-27 11:48
stress.t	5.93 KB	-r--r--r--	2014-12-27 11:48
sv_refs.t	2.35 KB	-r--r--r--	2014-12-27 11:48
sv_simple.t	1.6 KB	-r--r--r--	2014-12-27 11:48
utf8.t	2.12 KB	-r--r--r--	2014-12-27 11:48
wait.t	9.55 KB	-r--r--r--	2014-12-27 11:48
waithires.t	10.43 KB	-r--r--r--	2014-12-27 11:48

Rename

use strict;
use warnings;

use Test::More tests => 27;

use threads::shared;

### Start of Testing ###

ok( !$INC{"threads.pm"}, 'make sure threads are really off' );

# Check each faked function.
foreach my $func (qw(share cond_wait cond_signal cond_broadcast)) {
    isnt( __PACKAGE__->can($func), 0, "Have $func" );

eval qq{$func()};
    like( $@, qr/^Not enough arguments /, 'Expected error with no arguments');

my %hash = (foo => 42, bar => 23);
    eval qq{$func(\%hash)};
    is( $@, '', 'no error' );
    is_deeply( \%hash, {foo => 42, bar => 23}, 'argument is unchanged' );
}

# These all have no return value.
foreach my $func (qw(cond_wait cond_signal cond_broadcast)) {
    my @array = qw(1 2 3 4);
    is( eval qq{$func(\@array)}, undef, "$func has no return value" );
    is_deeply( \@array, [1, 2, 3, 4], 'argument is unchanged' );
}

{
    my @array = qw(1 2 3 4);
    is_deeply( share(@array), \@array,
	'share() is supposed to return back its argument as a ref' );
    is( ref &share({}), 'HASH' );
    is_deeply( \@array, [1, 2, 3, 4], 'argument is unchanged' );
}

# lock() should be a no-op.  The return value is currently undefined.
{
    my @array = qw(1 2 3 4);
    lock(@array);
    is_deeply( \@array, [1, 2, 3, 4], 'lock() should be a no-op' );
}

exit(0);

# EOF