1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#!./perl -Tw
# Tests of threads::shared's behavior when threads are disabled.
BEGIN {
chdir 't';
@INC = '../lib';
require Config;
if (($Config::Config{'extensions'} !~ m!\bthreads/shared\b!) ){
print "1..0 # Skip -- Perl configured without threads::shared module\n";
exit 0;
}
}
# Can't use Test::More, it turns threads on.
use Test;
plan tests => 31;
use threads::shared;
# Make sure threads are really off.
ok( !$INC{"threads.pm"} );
# Check each faked function.
foreach my $func (qw(share cond_wait cond_signal cond_broadcast)) {
ok( my $func_ref = __PACKAGE__->can($func) ? 1 : 0 );
eval qq{$func()};
ok( $@, qr/^Not enough arguments / );
my %hash = (foo => 42, bar => 23);
eval qq{$func(\%hash)};
ok( $@, '' );
ok( $hash{foo}, 42 );
ok( $hash{bar}, 23 );
}
# These all have no return value.
foreach my $func (qw(cond_wait cond_signal cond_broadcast)) {
my @array = qw(1 2 3 4);
ok( eval qq{$func(\@array)}, undef );
ok( "@array", "1 2 3 4" );
}
# share() is supposed to return back it's argument as a ref.
{
my @array = qw(1 2 3 4);
ok( share(@array), \@array );
ok( ref &share({}), 'HASH' );
ok( "@array", "1 2 3 4" );
}
# lock() should be a no-op. The return value is currently undefined.
{
my @array = qw(1 2 3 4);
lock(@array);
ok( "@array", "1 2 3 4" );
}
|
