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
|
use strict;
use warnings;
use Test::More;
use Config;
BEGIN
{
my $will_run = 0;
if ( $Config{useithreads} )
{
if ($ENV{THREAD_TEST})
{
require threads;
require threads::shared;
$will_run = 1;
}
else
{
plan skip_all => "optional (set THREAD_TEST=1 to run these tests)";
}
}
else
{
plan skip_all => "no ithreads in this Perl";
}
if ($will_run)
{
plan tests => 3;
}
}
use XML::LibXML qw(:threads_shared);
# TEST
ok(1, 'Loaded');
my $p = XML::LibXML->new();
# TEST
ok($p, 'Parser initted.');
{
my $doc = $p->parse_string(qq{<root><foo id="1">bar</foo></root>});
my $cloned = threads::shared::shared_clone($doc);
# TEST
ok(1, "Shared clone");
}
|
