#!/usr/local/bin perl -w

use strict;

use Test;
use XML::SAX::Machines qw( Machine );
use XML::SAX::Base;
use UNIVERSAL;

my $m;

my $p1 = XML::SAX::Base->new;
my $p2 = XML::SAX::Base->new;

my @tests = (
sub {
    $m = Machine(
        [ Intake => $p1 ],
        [ B      => Machine( [ "BA", Machine( [ "BAA", $p2 ] ) ] ) ],
    );
    ok UNIVERSAL::isa( $m, "XML::SAX::Machine" );
},

sub {
    my $p = $m->find_part( "Intake" );
    ok "$p", "$p1", "Intake";
},

sub {
    my $p = $m->find_part( "/Intake" );
    ok "$p", "$p1", "/Intake";
},

sub {
    my $p = $m->find_part( "/Intake/" );
    ok "$p", "$p1", "/Intake/";
},

sub {
    my $p = $m->find_part( "//../////.//Intake///.///" );
    ok "$p", "$p1", "//../////.//Intake///.///";
},

sub {
    my $p = $m->find_part( "B" );
    ok ref $p, "XML::SAX::Machine", "B";
},

sub {
    my $p = $m->find_part( "/B" );
    ok ref $p, "XML::SAX::Machine", "/B";
},

sub {
    my $p = $m->find_part( "/B/BA" );
    ok ref $p, "XML::SAX::Machine", "/B/BA";
},

sub {
    my $p = $m->find_part( "/B/BA/BAA" );
    ok "$p", "$p2", "/B/BA/BAA";
},

);

plan tests => scalar @tests;

$_->() for @tests;