view release on metacpan or  search on metacpan

t/14_brainfu.t  view on Meta::CPAN

# make test
# perl Makefile.PL; make; perl -Iblib/lib t/14_brainfu.t

use lib '.'; BEGIN{require 't/common.pl'}
use Test::More tests => 3;

my @test=(

   '>++++++++[<++++++++>-]<++++++++.>++++++[<++++++>-]<---.',
   'Hi',

   '++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>-.>---..++++++.++++++>>.<<--.
    ----.+++++++++.>><<-----.>++++++++++.+++.<+++.>>.++++++++++++++++++.--.+.+++.,.,.,.',
   'Geek oktober 2014xyz',

   '++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>---.+++++++++++..+++.>++.<<++++++++++++++
    .>----------.+++++++++++++.--------------.+.+++++++++.>+  .>.',
   "Hallo Verden!\n",

);

#print brainfu2perl('>++++++++[<++++++++>-]<++++++++.>++++++[<++++++>-]<---.'),"\n";
#print brainfu2perl($test[0],"asdf"),"\n\n";

while(@test){
  my($bf,$answer)=splice(@test,0,2);
  ok( brainfu($bf,"xyz") eq $answer,  "brainfu: $answer");
}