languages/pipp/t/php/type.t

   1 #! perl
   2 # Copyright (C) 2008, The Perl Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/php/type.t - Standard Library type
   8
   9 =head1 SYNOPSIS
  10
  11     % perl -I../lib pipp/t/php/type.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests PHP Standard Library type
  16 (implemented in F<languages/pipp/src/common/php_type.pir>).
  17
  18 See L<http://www.php.net/manual/en/ref.var.php>.
  19
  20 =cut
  21
  22 use strict;
  23 use warnings;
  24
  25 use FindBin;
  26 use lib "$FindBin::Bin/../../lib";
  27
  28 use Test::More     tests => 18;
  29 use Parrot::Test;
  30
  31 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'floatval()' );
  32 <?php
  33   echo floatval(TRUE), "\n";
  34   echo floatval(NULL), "\n";
  35   echo floatval(3), "\n";
  36   echo floatval('3.14'), "\n";
  37   echo floatval(' 3.14'), "\n";
  38   echo floatval(' 3.14 '), "\n";
  39   echo floatval('str'), "\n";
  40 ?>
  41 CODE
  42 1
  43 0
  44 3
  45 3.14
  46 3.14
  47 3.14
  48 0
  49 OUTPUT
  50
  51 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype(TRUE)' );
  52 <?php
  53   echo gettype(TRUE), "\n";
  54 ?>
  55 CODE
  56 boolean
  57 OUTPUT
  58
  59 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype(NULL)' );
  60 <?php
  61   echo gettype(NULL), "\n";
  62 ?>
  63 CODE
  64 NULL
  65 OUTPUT
  66
  67 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype(42)' );
  68 <?php
  69   echo gettype(42), "\n";
  70 ?>
  71 CODE
  72 integer
  73 OUTPUT
  74
  75 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype(3.14)' );
  76 <?php
  77   echo gettype(3.14), "\n";
  78 ?>
  79 CODE
  80 double
  81 OUTPUT
  82
  83 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype("str")' );
  84 <?php
  85   echo gettype('str'), "\n";
  86 ?>
  87 CODE
  88 string
  89 OUTPUT
  90
  91 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype($array)' );
  92 <?php
  93   $hello['world'] = 'hi';
  94   echo gettype($hello), "\n";
  95 ?>
  96 CODE
  97 array
  98 OUTPUT
  99
 100
 101 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'intval()' );
 102 <?php
 103   echo intval(TRUE), "\n";
 104   echo intval(NULL), "\n";
 105   echo intval(3.14), "\n";
 106   echo intval(3), "\n";
 107   echo intval('3'), "\n";
 108   echo intval('0x03'), "\n";
 109   echo intval('3.14'), "\n";
 110   echo intval(' 3'), "\n";
 111   echo intval(' 3 '), "\n";
 112   echo intval('str'), "\n";
 113 ?>
 114 CODE
 115 1
 116 0
 117 3
 118 3
 119 3
 120 0
 121 3
 122 3
 123 3
 124 0
 125 OUTPUT
 126
 127 language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'is_bool() no args' );
 128 <?php
 129   echo is_bool(), "\n";
 130 ?>
 131 CODE
 132 /Only one argument expected/
 133 OUTPUT
 134
 135 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_bool(TRUE)' );
 136 <?php
 137   echo is_bool(TRUE), "\n";
 138 ?>
 139 CODE
 140 1
 141 OUTPUT
 142
 143 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_float(3.14)' );
 144 <?php
 145   echo is_float(3.14), "\n";
 146 ?>
 147 CODE
 148 1
 149 OUTPUT
 150
 151 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_long(42)' );
 152 <?php
 153   echo is_long(42), "\n";
 154 ?>
 155 CODE
 156 1
 157 OUTPUT
 158
 159 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_null(NULL)' );
 160 <?php
 161   echo is_null(NULL), "\n";
 162 ?>
 163 CODE
 164 1
 165 OUTPUT
 166
 167 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_numeric()' );
 168 <?php
 169   echo is_numeric(3), "\n";
 170   echo is_numeric(3.14), "\n";
 171   echo is_numeric(NULL), "\n";
 172   echo is_numeric(TRUE), "\n";
 173   echo is_numeric('3'), "\n";
 174   echo is_numeric('0x03'), "\n";
 175   echo is_numeric('3.14'), "\n";
 176   echo is_numeric(' 3'), "\n";
 177   echo is_numeric(' 3 '), "\n";
 178   echo is_numeric(' string '), "\n";
 179 ?>
 180 CODE
 181 1
 182 1
 183
 184
 185 1
 186 1
 187 1
 188 1
 189
 190
 191 OUTPUT
 192
 193 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_scalar()' );
 194 <?php
 195   echo is_scalar(NULL), "\n";
 196   echo is_scalar(TRUE), "\n";
 197   echo is_scalar(3.14), "\n";
 198   echo is_scalar(42), "\n";
 199   echo is_scalar('str'), "\n";
 200 ?>
 201 CODE
 202
 203 1
 204 1
 205 1
 206 1
 207 OUTPUT
 208
 209 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_string("str")' );
 210 <?php
 211   echo is_string('str'), "\n";
 212 ?>
 213 CODE
 214 1
 215 OUTPUT
 216
 217 TODO:
 218 {
 219     local $TODO = 'update compiler';
 220
 221 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'settype()' );
 222 <?php
 223   $var = 3.14;
 224   echo settype($var, 'int'), "\n";
 225   echo $var, "\n";
 226 ?>
 227 CODE
 228 1
 229 3
 230 OUTPUT
 231
 232 }
 233
 234 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'strval(TRUE)' );
 235 <?php
 236   echo strval(TRUE), "\n";
 237 ?>
 238 CODE
 239 1
 240 OUTPUT
 241
 242
 243 # Local Variables:
 244 #   mode: cperl
 245 #   cperl-indent-level: 4
 246 #   fill-column: 100
 247 # End:
 248 # vim: expandtab shiftwidth=4: