diff options
author | Steve Peters <steve@fisharerojo.org> | 2008-06-05 13:04:00 +0000 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2008-06-05 13:04:00 +0000 |
commit | 8ba733f51b2432eafd952574f404d7f464786ad5 (patch) | |
tree | f700f7a325ee971da6238e266c752d785a59ced0 /ext/HTML/Parser/t/threads.t | |
parent | 8737ae4deeb0953ae3b76fcc430072d0e030997c (diff) | |
download | perl-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.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); - |