view release on metacpan or  search on metacpan

t/reform.t  view on Meta::CPAN

# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)

use Test::More tests => 66;
BEGIN {
  use_ok( 'Text::Reform', qw{ form tag break_at break_wrap break_with });
}
#my $testnum = 1;
#use Data::Dumper 'Dumper';
sub teststr(&$;$) # (&sub, $retval)
{
	do { #$testnum++;
	     my $res = &{$_[0]};
  	     my $exp = $_[1];
  	     my $message=$_[2];
             s/ /./g for $res, $exp;
             if ($res eq $exp) {
               ok(1,$message);
               #print "ok $testnum\n";
             } else {