summaryrefslogtreecommitdiff
path: root/ext/HTML/Parser/t/threads.t
diff options
context:
space:
mode:
authorSteve Peters <steve@fisharerojo.org>2008-06-05 13:04:00 +0000
committerSteve Peters <steve@fisharerojo.org>2008-06-05 13:04:00 +0000
commit8ba733f51b2432eafd952574f404d7f464786ad5 (patch)
treef700f7a325ee971da6238e266c752d785a59ced0 /ext/HTML/Parser/t/threads.t
parent8737ae4deeb0953ae3b76fcc430072d0e030997c (diff)
downloadperl-8ba733f51b2432eafd952574f404d7f464786ad5.tar.gz
A quick new release of Pod-Simple has removed the dependency on
HTML-Parser. HTML-Parser and HTML-Tagset will now be leaving us. p4raw-id: //depot/perl@34001
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);
-