languages/pipp/t/php/relops.t

   1 # $Id$
   2
   3 =head1 NAME
   4
   5 pipp/t/relops.t - tests for Pipp
   6
   7 =head1 DESCRIPTION
   8
   9 Test relational ops.
  10
  11 =head1 TODO
  12
  13 Set up tests in an array, like in arithmetics.t
  14
  15 =cut
  16
  17 # pragmata
  18 use strict;
  19 use warnings;
  20
  21 use FindBin;
  22 use lib "$FindBin::Bin/../../lib";
  23
  24 use Parrot::Config ();
  25 use Parrot::Test;
  26 use Test::More     tests => 13;
  27
  28 # True tests
  29 my $expected = "Condition is true.\n";
  30
  31 language_output_is( 'Pipp', <<'END_CODE', $expected, 'zero is less than' );
  32 <?php
  33 if ( 0 < 2 )
  34 {
  35 ?>
  36 Condition is true.
  37 <?php
  38 }
  39 else
  40 {
  41 ?>
  42 Condition is false.
  43 <?php
  44 }
  45 ?>
  46 END_CODE
  47
  48 language_output_is( 'Pipp', <<'END_CODE', $expected, 'less than' );
  49 <?php
  50 if ( 1 < 2 )
  51 {
  52 ?>
  53 Condition is true.
  54 <?php
  55 }
  56 else
  57 {
  58 ?>
  59 Condition is false.
  60 <?php
  61 }
  62 ?>
  63 END_CODE
  64
  65
  66 language_output_is( 'Pipp', <<'END_CODE', $expected, 'less equal' );
  67 <?php
  68 if ( 1 <= 1 )
  69 {
  70 ?>
  71 Condition is true.
  72 <?php
  73 }
  74 else
  75 {
  76 ?>
  77 Condition is false.
  78 <?php
  79 }
  80 ?>
  81 END_CODE
  82
  83
  84 language_output_is( 'Pipp', <<'END_CODE', $expected, 'equal' );
  85 <?php
  86 if ( 1 == 1 )
  87 {
  88 ?>
  89 Condition is true.
  90 <?php
  91 }
  92 else
  93 {
  94 ?>
  95 Condition is false.
  96 <?php
  97 }
  98 ?>
  99 END_CODE
 100
 101
 102 language_output_is( 'Pipp', <<'END_CODE', $expected, 'greater equal' );
 103 <?php
 104 if ( 1 >= 1 )
 105 {
 106 ?>
 107 Condition is true.
 108 <?php
 109 }
 110 else
 111 {
 112 ?>
 113 Condition is false.
 114 <?php
 115 }
 116 ?>
 117 END_CODE
 118
 119
 120 language_output_is( 'Pipp', <<'END_CODE', $expected, 'greater than' );
 121 <?php
 122 if ( 2 > 1 )
 123 {
 124 ?>
 125 Condition is true.
 126 <?php
 127 }
 128 else
 129 {
 130 ?>
 131 Condition is false.
 132 <?php
 133 }
 134 ?>
 135 END_CODE
 136
 137
 138 language_output_is( 'Pipp', <<'END_CODE', $expected, 'unequal' );
 139 <?php
 140 if ( 1 != 2 )
 141 {
 142 ?>
 143 Condition is true.
 144 <?php
 145 }
 146 else
 147 {
 148 ?>
 149 Condition is false.
 150 <?php
 151 }
 152 ?>
 153 END_CODE
 154
 155 $expected = "Condition is false.\n";
 156
 157 language_output_is( 'Pipp', <<'END_CODE', $expected, 'not less than' );
 158 <?php
 159 if ( 2 < 1 )
 160 {
 161 ?>
 162 Condition is true.
 163 <?php
 164 }
 165 else
 166 {
 167 ?>
 168 Condition is false.
 169 <?php
 170 }
 171 ?>
 172 END_CODE
 173
 174
 175 language_output_is( 'Pipp', <<'END_CODE', $expected, 'not less equal' );
 176 <?php
 177 if ( 2 <= 1 )
 178 {
 179 ?>
 180 Condition is true.
 181 <?php
 182 }
 183 else
 184 {
 185 ?>
 186 Condition is false.
 187 <?php
 188 }
 189 ?>
 190 END_CODE
 191
 192
 193 language_output_is( 'Pipp', <<'END_CODE', $expected, 'not equal' );
 194 <?php
 195 if ( 1 == 2 )
 196 {
 197 ?>
 198 Condition is true.
 199 <?php
 200 }
 201 else
 202 {
 203 ?>
 204 Condition is false.
 205 <?php
 206 }
 207 ?>
 208 END_CODE
 209
 210
 211 language_output_is( 'Pipp', <<'END_CODE', $expected, 'not greater equal' );
 212 <?php
 213 if ( 1 >= 2 )
 214 {
 215 ?>
 216 Condition is true.
 217 <?php
 218 }
 219 else
 220 {
 221 ?>
 222 Condition is false.
 223 <?php
 224 }
 225 ?>
 226 END_CODE
 227
 228
 229 language_output_is( 'Pipp', <<'END_CODE', $expected, 'not greater than' );
 230 <?php
 231 if ( 2 > 2 )
 232 {
 233 ?>
 234 Condition is true.
 235 <?php
 236 }
 237 else
 238 {
 239 ?>
 240 Condition is false.
 241 <?php
 242 }
 243 ?>
 244 END_CODE
 245
 246
 247 language_output_is( 'Pipp', <<'END_CODE', $expected, 'not unequal' );
 248 <?php
 249 if ( 1 != 1 )
 250 {
 251 ?>
 252 Condition is true.
 253 <?php
 254 }
 255 else
 256 {
 257 ?>
 258 Condition is false.
 259 <?php
 260 }
 261 ?>
 262 END_CODE
 263