1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
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');
|
