view release on metacpan or  search on metacpan

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

use strict;
use Test::More tests => 25;
use Text::MessageFormat;

my @Tests = do {
    local $/ = '';
    map {
	my($name, $format, $args, $output) = split /\n/;
	$args = [ grep length, split /\|/, $args ];
	[ $name, $format, $args, $output ];
    } <DATA>;
};

for my $test (@Tests) {
    my($name, $format, $args, $output) = @$test;
    local $TODO = "unimplemented"  if $name =~ s/^#\s*//;