view release on metacpan or  search on metacpan

t/01bricklayer_templater_parser.t  view on Meta::CPAN

use Test::More;
use Test::MockObject;
use Test::Exception;

use lib '..';
my $TEMPLATE = '<BKcommon::row><BKutil::bench></BKutil::bench></BKcommon::row><BKutil::tester></BKutil::tester>';
my $TEMPLATE2 = '<BKcommon::row attrib="1"><BKutil::bench></BKutil::bench></BKcommon::row><BKutil::tester></BKutil::tester>';

plan tests =>  1 # test that parser module can be loaded
              +3 # test that parser fails without proper setup variables
              +3 # test for simple template parsing
              +2 # test that template attributes are parsed correctly
              +3 # test for mytrim
	      ;

my @cmp = ({type => 'container', tagname => 'common::row', attributes => {undef}, block => '<BKutil::bench></BKutil::bench>', tagid => 'BK'}, {type => 'container', tagname => 'util::tester', attributes => {undef}, block => '', tagid => 'BK'});
my @cmp2 = ({type => 'container', tagname => 'common::row', attributes => {attrib => 1}, block => '<BKutil::bench></BKutil::bench>', tagid => 'BK'}, {type => 'container', tagname => 'util::tester', attributes => {undef}, block => '', tagid => 'BK'});

my @tokens;

{ 
    use_ok('Bricklayer::Templater::Parser');
}

{
    dies_ok(sub {Bricklayer::Templater::Parser::parse_text($TEMPLATE, undef, '<', '>'); }, 'parse without tagid fails' );
    dies_ok(sub {Bricklayer::Templater::Parser::parse_text($TEMPLATE, 'BK', undef, '>'); }, 'parse without start_bracket fails' );
    dies_ok(sub {Bricklayer::Templater::Parser::parse_text($TEMPLATE, undef, '<', undef); }, 'parse without end_bracket fails' );
}

{
    ok(@tokens = Bricklayer::Templater::Parser::parse_text($TEMPLATE, 'BK', '<', '>'), 'Succeeded in parsing simple template');
    ok(scalar @tokens == 2, 'There were two tokens');
    is_deeply(\@tokens, \@cmp, 'Token Structure is correct');
    ok(@tokens = Bricklayer::Templater::Parser::parse_text($TEMPLATE2, 'BK', '<', '>'), 'Succeeded in parsing simple template with attributes');
    is_deeply(\@tokens, \@cmp2, 'Token Structure with attributes is correct');
}

my $foo = '   foo';
my $bar = 'bar   ';

# test utility functions
{
    can_ok(Bricklayer::Templater::Parser, 'mytrim');
    is(Bricklayer::Templater::Parser::mytrim($foo), 'foo', 'mytrim removes whitespace in the front');    
    is(Bricklayer::Templater::Parser::mytrim($bar), 'bar', 'mytrim removes whitespace in the back');    
}