languages/pipp/t/php/var.t

   1 #! perl
   2 # Copyright (C) 2008, The Perl Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/php/var.t - Standard Library var
   8
   9 =head1 SYNOPSIS
  10
  11     % perl -I../lib pipp/t/php/var.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests PHP Standard Library var
  16 (implemented in F<languages/pipp/src/common/php_var.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 => 4;
  29 use Parrot::Test;
  30
  31
  32 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'var_dump() with string key' );
  33 <?php
  34 $foo['bar'] = 'asdf';
  35 echo $foo['bar'];
  36 echo "\n";
  37 var_dump( $foo );
  38 CODE
  39 asdf
  40 array(1) {
  41   ["bar"]=>
  42   string(4) "asdf"
  43 }
  44 OUTPUT
  45
  46 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'var_dump() with int key' );
  47 <?php
  48 $twice[1] = 2;
  49 echo $twice[1];
  50 echo "\n";
  51 var_dump( $twice );
  52 CODE
  53 2
  54 array(1) {
  55   [1]=>
  56   int(2)
  57 }
  58 OUTPUT
  59
  60 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'increment' );
  61 <?php
  62 $a = 10;
  63 var_dump($a);
  64 var_dump(++$a);
  65 var_dump($a);
  66 var_dump($a++);
  67 var_dump($a);
  68 CODE
  69 int(10)
  70 int(11)
  71 int(11)
  72 int(11)
  73 int(12)
  74 OUTPUT
  75
  76 language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'decrement' );
  77 <?php
  78 $a = 10;
  79 var_dump($a);
  80 var_dump(--$a);
  81 var_dump($a);
  82 var_dump($a--);
  83 var_dump($a);
  84 CODE
  85 int(10)
  86 int(9)
  87 int(9)
  88 int(9)
  89 int(8)
  90 OUTPUT
  91
  92 # Local Variables:
  93 #   mode: cperl
  94 #   cperl-indent-level: 4
  95 #   fill-column: 100
  96 # End:
  97 # vim: expandtab shiftwidth=4: