diff options
Diffstat (limited to 'ext/HTML/Parser/t/threads.t')
-rw-r--r-- | ext/HTML/Parser/t/threads.t | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/ext/HTML/Parser/t/threads.t b/ext/HTML/Parser/t/threads.t deleted file mode 100644 index 8da91e9b78..0000000000 --- a/ext/HTML/Parser/t/threads.t +++ /dev/null @@ -1,39 +0,0 @@ -# Verify thread safety. - -use Config; -use Test::More; - -BEGIN { - plan(skip_all => "Not configured for threads") - unless $Config{useithreads} && $] >= 5.008; - plan(tests => 1); -} - -use threads; -use HTML::Parser; - -my $ok=0; - -sub start -{ - my($tag,$attr)=@_; - - $ok += ($tag eq "foo"); - $ok += (defined($attr->{param}) && $attr->{param} eq "bar"); -} - -my $p = HTML::Parser->new - (api_version => 3, - handlers => { - start => [\&start, "tagname,attr"], - }); - -$p->parse("<foo pa"); - -$ok=async { - $p->parse("ram=bar>"); - $ok; -}->join(); - -is($ok,2); - |