t/6-library/TEST-plan.t

   1 #!perl
   2 #
   3 # This file is part of Language::Befunge.
   4 # Copyright (c) 2001-2009 Jerome Quelin, all rights reserved.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the same terms as Perl itself.
   8 #
   9 #
  10
  11 use strict;
  12 use warnings;
  13
  14 # -- TEST library
  15
  16 # this test is not like the others, where we check whether the output matches
  17 # what is expected. indeed, since we're testing a test library, we're just
  18 # running the befunge snippets, which should output some regular tap.
  19
  20 use Language::Befunge;
  21 my $bef = Language::Befunge->new;
  22
  23 # TEST.pm and this test script share the same plan.
  24
  25 # plan (2 tests)
  26 $bef->store_code( <<'END_OF_CODE' );
  27 0"TSET"4(#@2P)@
  28 END_OF_CODE
  29 $bef->run_code;
  30
  31 # ok
  32 $bef->store_code( <<'END_OF_CODE' );
  33 0"TSET"4(0"dnammoc O"1O)@
  34 END_OF_CODE
  35 $bef->run_code;
  36
  37 # is
  38 $bef->store_code( <<'END_OF_CODE' );
  39 0"TSET"4(0"dnammoc I"44I)@
  40 END_OF_CODE
  41 $bef->run_code;
  42