t/5-befunge/l-concur.t

   1 #!perl
   2 #
   3 # This file is part of Language::Befunge.
   4 # Copyright (c) 2001-2008 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 # -- concurrent funge
  12
  13 use strict;
  14 use warnings;
  15
  16 use Test::More tests => 6;
  17 use Test::Output;
  18
  19 use Language::Befunge;
  20 my $bef = Language::Befunge->new;
  21
  22
  23 # basic concurrency
  24 $bef->store_code( <<'END_OF_CODE' );
  25 #vtzz1.@
  26  >2.@
  27 END_OF_CODE
  28 stdout_is { $bef->run_code } '2 1 ', 'basic concurrency';
  29
  30
  31 # q kills all ips running
  32 $bef->store_code( <<'END_OF_CODE' );
  33 #vtq
  34  >123...@
  35 END_OF_CODE
  36 stdout_is { $bef->run_code } '', 'q kills all ips running';
  37
  38
  39 # cloning the stack
  40 $bef->store_code( <<'END_OF_CODE' );
  41 123 #vtzz...@
  42      >...@
  43 END_OF_CODE
  44 stdout_is { $bef->run_code } '3 3 2 2 1 1 ', 'threading clones the stack';
  45
  46
  47 # spaces are one no-op
  48 $bef->store_code( <<'END_OF_CODE' );
  49 #vtzzz2.@
  50  >         1.@
  51 END_OF_CODE
  52 stdout_is { $bef->run_code } '1 2 ', 'spaces are one no-op';
  53
  54
  55 # comments are one no-op
  56 $bef->store_code( <<'END_OF_CODE' );
  57 #vtzzz2.@
  58  >;this is a comment;1.@
  59 END_OF_CODE
  60 stdout_is { $bef->run_code } '1 2 ', 'comments are one no-op';
  61
  62
  63 # repeat instructions are one op
  64 $bef->store_code( <<'END_OF_CODE' );
  65 #vtzzzzz2.@
  66  >1112k.@
  67 END_OF_CODE
  68 stdout_is { $bef->run_code } '1 1 2 1 ', 'repeat instr is one op';
  69
  70