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 => 2;
  29 use Parrot::Test;
  30
  31
  32 language_output_is( 'Pipp', <<'END_CODE', <<'END_OUT', 'var_dump() with string key' );
  33 <?php
  34 $foo['bar'] = 'asdf';
  35 echo $foo['bar'];
  36 echo "\n";
  37 var_dump( $foo );
  38 END_CODE
  39 asdf
  40 array(1) {
  41   ["bar"]=>
  42   string(4) "asdf"
  43 }
  44 END_OUT
  45
  46 language_output_is( 'Pipp', <<'END_CODE', <<'END_OUT', 'var_dump() with int key' );
  47 <?php
  48 $twice[1] = 2;
  49 echo $twice[1];
  50 echo "\n";
  51 var_dump( $twice );
  52 END_CODE
  53 2
  54 array(1) {
  55   [1]=>
  56   int(2)
  57 }
  58 END_OUT
  59
  60 # Local Variables:
  61 #   mode: cperl
  62 #   cperl-indent-level: 4
  63 #   fill-column: 100
  64 # End:
  65 # vim: expandtab shiftwidth=4: