Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (9 sloc) 289 Bytes
use Test::More tests => 3;
use strict;
use warnings;
BEGIN { use_ok('App::Mowyw', 'parse_str'); };
my %meta = ( OPTIONS => {}, );
is parse_str('[% option foo bar %]', \%meta),
'',
'[% option ... %] returns empty string';
is $meta{OPTIONS}{foo}, 'bar', 'Option set correctly';