view release on metacpan or  search on metacpan

t/01-artinate.t  view on Meta::CPAN

#!perl

use Test::More tests => 6;
use Acme::AsciiArtinator;
use strict;
use warnings;

my $art = '
XXXXXXXXXXXXXXX
 XXXXXXXXXXXXX
  XXXXXXXXXXX
   XXXXXXXXX
    XXXXXXX
     XXXXX
      XXX
       X';

my $code = '$_="rst";print"Hello",", ","world!\n" if /st/;';

my @output = asciiartinate( code => $code, art => $art);
my $output = join '', @output;

print STDERR @output;

ok($output =~ /print/);
ok($output =~ /Hello/);
ok($output =~ /;;/ || $output =~ /\{\w+\}/);

################################################

@output = asciiartinate( code => $code, art => $art, test_argv1 => [] );
ok(defined $Acme::AsciiArtinator::TestOutput[1]);
ok(not defined $Acme::AsciiArtinator::TestOutput[0]);
ok(not defined $Acme::AsciiArtinator::TestOutput[2]);