languages/pipp/t/php/control_flow.t

   1 # $Id$
   2
   3 =head1 NAME
   4
   5 pipp/t/control_flow.t - tests for Pipp
   6
   7 =head1 DESCRIPTION
   8
   9 Test control flow.
  10
  11 =cut
  12
  13 # pragmata
  14 use strict;
  15 use warnings;
  16
  17 use FindBin;
  18 use lib "$FindBin::Bin/../../lib";
  19
  20 use Parrot::Config ();
  21 use Parrot::Test;
  22 use Test::More     tests => 10;
  23
  24 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'if, one statement in block' );
  25 <?php
  26 if (1)
  27 {
  28   echo "Hi\n";
  29 }
  30 ?>
  31 END_CODE
  32 Hi
  33 END_EXPECTED
  34
  35 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'if, no statements in block' );
  36 <?php
  37 if (1)
  38 {
  39 }
  40 echo "Hi\n";
  41 ?>
  42 END_CODE
  43 Hi
  44 END_EXPECTED
  45
  46 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'if, two statements in block' );
  47 <?php
  48 if (1)
  49 {
  50   echo "Hi";
  51   echo "\n";
  52 }
  53 ?>
  54 END_CODE
  55 Hi
  56 END_EXPECTED
  57
  58 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'if/else taking if-branch' );
  59 <?php
  60 if (1)
  61 {
  62   echo "if block\n";
  63 }
  64 else
  65 {
  66   echo "else block\n";
  67 }
  68 ?>
  69 END_CODE
  70 if block
  71 END_EXPECTED
  72
  73 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'i/else taking else-branchf' );
  74 <?php
  75 if (0)
  76 {
  77   echo "if block\n";
  78 }
  79 else
  80 {
  81   echo "else block\n";
  82 }
  83 ?>
  84 END_CODE
  85 else block
  86 END_EXPECTED
  87
  88 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED' . q{  }, 'positive int' );
  89 <?php
  90 if (1) {
  91   ?>
  92     Condition is true.
  93   <?php
  94 }
  95 ?>
  96 END_CODE
  97     Condition is true.
  98 END_EXPECTED
  99
 100 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'zero' );
 101 <?php
 102 if (0) {
 103   ?>
 104     'Condition is true' does not apply.
 105   <?php
 106 }
 107 ?>
 108 Condition is false.
 109 END_CODE
 110 Condition is false.
 111 END_EXPECTED
 112
 113 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'string' );
 114 <?php
 115 if ( 'false' ) {
 116 ?>
 117 The string 'false' is true.
 118 <?php
 119 }
 120 ?>
 121 END_CODE
 122 The string 'false' is true.
 123 END_EXPECTED
 124
 125 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'string' );
 126 <?php
 127 if ( 'vrai' ) {
 128 ?>
 129 The string 'vrai' is true.
 130 <?php
 131 }
 132 else
 133 {
 134 ?>
 135 The string 'vrai' is false.
 136 <?php
 137 }
 138 ?>
 139 END_CODE
 140 The string 'vrai' is true.
 141 END_EXPECTED
 142
 143
 144 language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'string' );
 145 <?php
 146 if ( 0 ) {
 147 ?>
 148 The integer 0 is true.
 149 <?php
 150 }
 151 else
 152 {
 153 ?>
 154 The integer 0 is false.
 155 <?php
 156 }
 157 ?>
 158 END_CODE
 159 The integer 0 is false.
 160 END_EXPECTED