1 files changed, 62 insertions, 0 deletions
diff --git a/t/styles.t b/t/styles.t
new file mode 100644
index 0000000..b4567ce
--- /dev/null
+++ b/t/styles.t
@@ -0,0 +1,62 @@
+use Test;
+BEGIN { plan tests => 13 }
+use XML::Parser;
+use IO::File;
+
+my $xmlstr = '<foo>bar</foo>';
+
+{
+    # Debug style
+    my $parser = XML::Parser->new(Style => 'Debug');
+    ok($parser);
+    
+    my $tmpfile = IO::File->new_tmpfile();
+    open(OLDERR, ">&STDERR");
+    open(STDERR, ">&" . $tmpfile->fileno) || die "Cannot re-open STDERR : $!";
+    
+    $parser->parse($xmlstr);
+    
+    close(STDERR);
+    open(STDERR, ">&OLDERR");
+    close(OLDERR);
+    
+    seek($tmpfile, 0, 0);
+    my $warn = 0;
+    $warn++ while (<$tmpfile>);
+    ok($warn, 3, "Check we got three warnings out");
+}
+
+{
+    # Object style
+    my $parser = XML::Parser->new(Style => 'Objects');
+    ok($parser);
+    
+    my $tree = $parser->parse($xmlstr);
+    ok($tree);
+}
+
+{
+    # Stream style
+    my $parser = XML::Parser->new(Style => 'Stream');
+    ok($parser);
+}
+
+{
+    # Subs style
+    my $parser = XML::Parser->new(Style => 'Subs');
+    ok($parser);
+}
+
+{
+    # Tree style
+    my $parser = XML::Parser->new(Style => 'Tree');
+    ok($parser);
+
+    my $tree = $parser->parse($xmlstr);
+    ok(ref($tree), 'ARRAY');
+    ok($tree->[0], 'foo');
+    ok(ref($tree->[1]), 'ARRAY');
+    ok(ref($tree->[1]->[0]), 'HASH');
+    ok($tree->[1][1], '0');
+    ok($tree->[1][2], 'bar');
+}