#!/usr/local/lib/perl -w
use strict;
use Test;
use XML::SAX::PurePerl;
use XML::Filter::Dispatcher qw( :all );
use UNIVERSAL;
plan tests => 13;
my @log;
my $d = XML::Filter::Dispatcher->new(
    Rules => [
        "/"    => sub {
            xset_var a => string => "aaa";
            ok xget_var( "a" ), "aaa", "/ => xgetvar( a )";
        },
        "//foo" => sub {
            ok xget_var( "a" ), "aaa", "foo => xgetvar( a )";
            ok ! defined xget_var( "b" ), 1, "! defined foo => xgetvar( b )";
            xset_var b => string => "bbb";
            ok xget_var( "b" ), "bbb", "foo => xgetvar( b )";
        },
        "//bar" => sub {
            ok xget_var( "a" ), "aaa", "bar => xgetvar( a )";
            ok xget_var( "b" ), "bbb", "bar => xgetvar( b )";
        },
    ],
);
ok 1;
my $p = XML::SAX::PurePerl->new( Handler => $d );
ok 1;
$p->parse_string( "<root><foo><bar/></foo><foo><bar/></foo></root>" );