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
|
use strict;
use warnings;
use Test;
plan tests => 31;
use threads::shared;
### Start of Testing ###
# 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" );
}
exit(0);
# EOF
|
