styles.t

one of the linux gd libraries

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');
}