vcs.maemo.org Git - pkg-perl/blob - deb-src/libhtml-parser-perl/libhtml-parser-perl-3.56/t/threads.t

   1 # Verify thread safety.
   2
   3 use Config;
   4 use Test::More;
   5
   6 BEGIN {
   7     plan(skip_all => "Not configured for threads")
   8         unless $Config{useithreads} && $] >= 5.008;
   9     plan(tests => 1);
  10 }
  11
  12 use threads;
  13 use HTML::Parser;
  14
  15 my $ok=0;
  16
  17 sub start
  18 {
  19     my($tag,$attr)=@_;
  20
  21     $ok += ($tag eq "foo");
  22     $ok += (defined($attr->{param}) && $attr->{param} eq "bar");
  23 }
  24
  25 my $p = HTML::Parser->new
  26     (api_version => 3,
  27      handlers => {
  28          start => [\&start, "tagname,attr"],
  29      });
  30
  31 $p->parse("<foo pa");
  32
  33 $ok=async {
  34     $p->parse("ram=bar>");
  35     $ok;
  36 }->join();
  37
  38 is($ok,2);
  39