1 files changed, 69 insertions, 0 deletions
diff --git a/textproc/p5-SGML-Parser-OpenSP/files/patch-t-21parsestring.t b/textproc/p5-SGML-Parser-OpenSP/files/patch-t-21parsestring.t
new file mode 100644
index 000000000000..10d57aa49886
--- /dev/null
+++ b/textproc/p5-SGML-Parser-OpenSP/files/patch-t-21parsestring.t
@@ -0,0 +1,69 @@
+--- /dev/null  Fri Jul 27 20:05:08 2007
++++ t/21parsestring.t  Fri Jul 27 20:06:55 2007
+X@@ -0,0 +1,65 @@
++# 06parseliteral.t -- ...
++#
++# $Id: 21parsestring.t,v 1.1 2006/03/06 08:51:59 tbe Exp $
++
++use strict;
++use warnings;
++use Test::More tests => 13;
++use Test::Exception;
++use File::Spec qw();
++
++use constant NO_DOCTYPE   => File::Spec->catfile('samples', 'no-doctype.xml');
++use constant TEST_CATALOG => File::Spec->catfile('samples', 'test.soc');
++
++BEGIN { use_ok('SGML::Parser::OpenSP') };
++require_ok('SGML::Parser::OpenSP');
++my $p = SGML::Parser::OpenSP->new;
++isa_ok($p, 'SGML::Parser::OpenSP');
++
++#########################################################
++## Parse using ->parse_string().
++#########################################################
++
++sub TestHandler1::new { bless{ok1=>0,ok2=>0,ok3=>0,ok4=>0,ok5=>0,
++                              ok6=>0,ok7=>0,ok8=>0,ok9=>0,oka=>0},shift }
++sub TestHandler1::start_element {
++    my $s = shift;
++    my $e = shift;
++
++    return unless defined $s;
++    return unless defined $e;
++
++    $s->{ok1}++ if UNIVERSAL::isa($s, 'TestHandler1');
++
++    # Name
++    $s->{ok2}++ if exists $e->{Name};
++    $s->{ok3}++ if $e->{Name} =~ /no-doctype/i;
++
++    # Attributes
++    $s->{ok4}++ if exists $e->{Attributes};
++    $s->{ok5}++ if UNIVERSAL::isa($e->{Attributes}, "HASH");
++    $s->{ok6}++ if scalar(keys(%{$_[1]->{Attributes}})) == 0;
++
++    # Included
++    $s->{ok7}++ if exists $e->{Included};
++    $s->{ok8}++ if $e->{Included} == 0;
++
++    # ContentType
++    $s->{ok9}++ if exists $e->{ContentType};
++}
++
++my $h1 = TestHandler1->new;
++
++$p->handler($h1);
++lives_ok { $p->parse_string("<no-doctype></no-doctype>") }
++  'parsing with parse_string()';
++
++ok($h1->{ok1}, 'self to handler');
++ok($h1->{ok2}, 'has name');
++ok($h1->{ok3}, 'proper name');
++ok($h1->{ok4}, 'has attrs');
++ok($h1->{ok5}, 'attrs hash ref');
++ok($h1->{ok6}, 'proper attrs');
++ok($h1->{ok7}, 'has included');
++ok($h1->{ok8}, 'included == 0');
++ok($h1->{ok9}, 'has content type');
+