summaryrefslogtreecommitdiff
path: root/ext/HTML/Parser/t/threads.t
diff options
context:
space:
mode:
Diffstat (limited to 'ext/HTML/Parser/t/threads.t')
-rw-r--r--ext/HTML/Parser/t/threads.t39
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);
-