view release on metacpan or  search on metacpan

t/anvl.t  view on Meta::CPAN

e f g
h i

"), "%0aa b%3a%3ad%0a%0a: %0ae f g%0ah i%0a%0a
", '%encode newlines, spaces, and colons in element name';

is $om->elems('b   c', "e  f  g"), 'b %20%20c: e  f  g
', '%encode spaces and tabs in element name';

is $om->elems(" label ", "  now is"),
"%20label%20:   now is
", 'initial and final space encode with newline added';

is $om->elems("
label", " now is
   a
   b
   c d"), "%0alabel:  now is%0a   a%0a   b%0a   c d
", 'multi-line, initial newline encode';

is $om->elems("label", "
now is
   a
   b
   c d"), "label: %0anow is%0a   a%0a   b%0a   c d
", 'multi-line preserving first newline';

is $om->elems("label", "now is the time for all good men to come to the aid of the party again and again and again."),
"label: now is the time for all good men to come to the aid of the party
	again and again and again.
", 'multi-line wrap';

my $anvl_record =		# POD example use of anvl_fmt()
       $om->elems("erc", "",
	"who", "creator1;
creator2; creator3",
	"what", "This is a very long involved complicated extended, very long involved complicated extended, very long involved complicated extended, very long involved complicated extended, very long involved complicated extended, very long involved compli...
	"when", "18990304",
	"where", "http://foo.bar.com/ab/cd.efg"
	) . "\n";                # 2nd newline in a row terminates record

like $anvl_record, '/^erc:\nwho:.*what:.*\nwhen:.*\nwhere:.*\n\n$/s',
	'well-formed anvl record in one call';

$anvl_record =			# verbose version of POD example
       $om->elems("erc")
     . $om->elems("who", "creator1;
creator2; creator3")
     . $om->elems("what", "This is a very long involved complicated extended, very long involved complicated extended, very long involved complicated extended, very long involved complicated extended, very long involved complicated extended, very lon...
     . $om->elems("when", "18990304")
     . $om->elems("where", "http://foo.bar.com/ab/cd.efg")
     . "\n";                # 2nd newline in a row terminates record

like $anvl_record, '/^erc:\nwho:.*what:.*\nwhen:.*\nwhere:.*\n\n$/s',
	'well-formed anvl record in multiple calls';

my $m = File::ANVL::anvl_recarray("foo", "dummy");
like $m, qr/an array/, 'recarray message about 2nd arg referencing an array';

#$m = anvl_recsplit("foo", "dummy");
#like $m, qr/array/, 'recsplit message about 2nd arg referencing an array';

my @elems;
#is anvl_recsplit($anvl_record, \@elems, 1), "", 'easy split, strict';
is File::ANVL::anvl_recarray($anvl_record, \@elems), "",
	'easy recarray split, all defaults';

is $elems[0], '', 'record preamble lineno';
is $elems[1], "ANVL", 'record preamble format';
is $elems[2], '', 'record preamble format';
is $elems[3], "1:", 'first line number';
is $elems[4], "erc", 'valueless label';
is $elems[5], "", 'valueless value';
is $elems[6], "2:", 'second line number';
is $elems[7], "who", 'first real element label';
is $elems[8], "creator1;%0acreator2; creator3", 'first real element value';
is $elems[13], "when", 'third element label';
is $elems[14], "18990304", 'third element value';
is $elems[16], "where", 'fourth label';
is $elems[17], "http://foo.bar.com/ab/cd.efg", 'fourth value';

#my %read_anvl = @elems;
#is $read_anvl{when}, "", 'third element';
#is $read_anvl{where}, "", 'fourth element';

my $offbeat_record = "a: b
c d";

#$m = anvl_recsplit($offbeat_record, \@elems, 1);
$m = File::ANVL::anvl_recarray($offbeat_record, \@elems, 1, {autoindent => 0});
like $m, qr/^error:/, 'indention glitch, strict mode no autoindent';

#$m = anvl_recsplit($offbeat_record, \@elems);
$m = File::ANVL::anvl_recarray($offbeat_record, \@elems, 1);
like $m, qr/^warning:/, 'indention glitch, default autoindent mode warning';

my $r1 = 'a: b
#foo
c: d
#  bar
e: f
# note to self
';

is File::ANVL::anvl_recarray($r1, \@elems, 1, {comments=>1}), "",
	'record with final comment, comments kept';
is scalar(@elems), 21, 'correct elem count for record, comments kept';

ok (($elems[9] eq '3:' && $elems[10] eq 'c'),
	'input line number for "c" element, comments kept');

is File::ANVL::anvl_recarray($r1, \@elems), "", 'record, comments stripped';
is scalar(@elems), 12, 'correct elem count for record, no comments';

ok (($elems[6] eq '3:' && $elems[7] eq 'c'),
	'input line number for "c" element, comments stripped');

is File::ANVL::anvl_recarray("
a: b c
d:  e
  f