Commit | Line | Data |
0dc5f2bb |
1 | BEGIN { |
2 | # chdir 't' if -d 't'; |
3 | # push @INC ,'../lib'; |
4 | require Config; import Config; |
5 | unless ($Config{'useithreads'}) { |
6 | print "1..0 # Skip: no useithreads\n"; |
7 | exit 0; |
8 | } |
9 | } |
10 | |
11 | |
12 | sub ok { |
13 | my ($id, $ok, $name) = @_; |
14 | |
15 | # You have to do it this way or VMS will get confused. |
16 | print $ok ? "ok $id - $name\n" : "not ok $id - $name\n"; |
17 | |
18 | printf "# Failed test at line %d\n", (caller)[2] unless $ok; |
19 | |
20 | return $ok; |
21 | } |
22 | |
23 | |
24 | |
25 | use ExtUtils::testlib; |
26 | use strict; |
27 | BEGIN { print "1..7\n" }; |
28 | use threads; |
29 | use threads::shared; |
30 | ok(1,1,"loaded"); |
31 | my $foo; |
32 | share($foo); |
33 | my %foo; |
34 | share(%foo); |
35 | $foo{"foo"} = \$foo; |
36 | ok(2, ${$foo{foo}} == undef, "Check deref"); |
37 | $foo = "test"; |
38 | ok(3, ${$foo{foo}} eq "test", "Check deref after assign"); |
39 | threads->create(sub{${$foo{foo}} = "test2";})->join(); |
40 | ok(4, $foo eq "test2", "Check after assign in another thread"); |
41 | ok(5, threads::shared::_thrcnt($foo) == 2, "Check refcount"); |
42 | my $bar = delete($foo{foo}); |
43 | ok(6, $$bar eq "test2", "check delete"); |
44 | ok(7, threads::shared::_thrcnt($foo) == 1, "Check refcount after delete"); |
409b1fd3 |
45 | threads->create( sub { |
46 | my $test; |
47 | share($test); |
48 | $test = "thread3"; |
49 | $foo{test} = \$test; |
50 | })->join(); |
51 | ok(8, ${$foo{test}} eq "thread3", "Check refernece created in another thread"); |
52 | my $gg = $foo{test}; |
53 | $$gg = "test"; |
54 | ok(9, ${$foo{test}} eq "test", "Check refernece"); |
55 | ok(10, threads::shared::_thrcnt($gg) == 2, "Check refcount"); |
56 | my $gg2 = delete($foo{test}); |
57 | ok(11, threads::shared::_thrcnt($gg) == 1, "Check refcount"); |
58 | ok(12, $gg == $gg2, "Check we get the same reference ($gg == $gg2)"); |
59 | ok(13, $$gg eq $$gg2, "And check the values are the same"); |
60 | ok(14, keys %foo == 0, "And make sure we realy have deleted the values"); |
61 | |
62 | |