view release on metacpan or  search on metacpan

t/06_not.t  view on Meta::CPAN

# $rotprog eq $camelstr and print "not ";
# ++$itest; print "ok $itest - rotprog\n";

# -------------------------------------------------

$prog = sightly({ ShapeString   => $rotprog,
                  SourceString  => $hellostr,
                  Rotate        => 180,
                  InformHandler => sub {},
                  Regex         => 1 } );
test_one('rot 180 camel', "hello world\n");
# XXX: Test fails as at perl 5.18
# $prog =~ s/^use re 'eval';\n// if $] >= 5.017;   # remove leading use re 'eval' line
# $prog =~ tr/!-~/#/;
# $prog eq $camelstr or print "not ";
# ++$itest; print "ok $itest - rotprog\n";

# -------------------------------------------------

$prog = sightly({ Shape         => 'camel',
                  SourceString  => $hellostr,
                  Indent        => 1,
                  InformHandler => sub {},
                  Regex         => 1 } );
test_one('indent 1 camel', "hello world\n");
$prog =~ s/^use re 'eval';\n// if $] >= 5.017;   # remove leading use re 'eval' line
$prog =~ tr/!-~/#/;
$prog eq $indent_camelstr or print "not ";
++$itest; print "ok $itest - indent 1 prog\n";

# -------------------------------------------------

my $testshape     = "########         ##########\n" x 50;
my $inv_testshape = "        #########\n"           x 50;
my $ref_testshape = "##########         ########\n" x 50;

$prog = sightly({ ShapeString   => $testshape,
                  SourceString  => $hellostr,
                  Invert        => 1,
                  InformHandler => sub {},
                  Regex         => 1 } );
test_one('inverted test shape', "hello world\n");
$prog =~ s/^use re 'eval';\n// if $] >= 5.017;   # remove leading use re 'eval' line
$prog =~ tr/!-~/#/;
$prog eq $inv_testshape or print "not ";
++$itest; print "ok $itest - inverted test shape prog\n";

$prog = sightly({ ShapeString   => $testshape,
                  SourceString  => $hellostr,
                  Reflect       => 1,
                  InformHandler => sub {},
                  Regex         => 1 } );
test_one('reflected test shape', "hello world\n");
$prog =~ s/^use re 'eval';\n// if $] >= 5.017;   # remove leading use re 'eval' line
$prog =~ tr/!-~/#/;
$prog eq $ref_testshape or print "not ";
++$itest; print "ok $itest - reflected test shape prog\n";

# -------------------------------------------------

unlink($tmpf)   or die "error: unlink '$tmpf': $!";
unlink($tmpeye) or die "error: unlink '$tmpeye': $!";