view release on metacpan or  search on metacpan

t/anvl.t  view on Meta::CPAN

     . $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';

t/values.t  view on Meta::CPAN

use File::Value ':all';

#### end boilerplate

use File::ANVL qw(:all);

{	# values tests

my $m = anvl_valsplit("foo", "dummy");
like $m, qr/array/, 'valsplit message about 2nd arg referencing an array';

my (@elems, @svals);
#print "before svals=", \@svals, "\n";
$m = anvl_valsplit("ab;cd;ef|foo;bar||;;zaf", \@svals);
#print "after svals=", \@svals, "\n";

is scalar(@svals), 4, 'anvl_valsplit into 4 subvalues';

is scalar(@{$svals[0]}), 3, '1st subvalue cardinality correct';