languages/pipp/t/php/references.t

   1 # $Id$
   2
   3 =head1 NAME
   4
   5 references.t - testing references
   6
   7 =head1 DESCRIPTION
   8
   9 Test references.
  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 => 1;
  23
  24 language_output_is( 'Pipp', <<'END_CODE', <<'END_OUT', 'references', todo => 'not implemented yet' );
  25 <?php
  26
  27 $var = 1;
  28 $ref1 =& $var;
  29 $ref2 =& $var;
  30 $ref3 = $ref2;
  31 echo $var; echo $ref1; echo $ref2; echo $ref3; echo "\n";
  32
  33 $var++;
  34 echo $var; echo $ref1; echo $ref2; echo $ref3; echo "\n";
  35
  36 $ref1++;
  37 echo $var; echo $ref1; echo $ref2; echo $ref3; echo "\n";
  38
  39 $ref2++;
  40 echo $var; echo $ref1; echo $ref2; echo $ref3; echo "\n";
  41
  42 $ref3++;
  43 echo $var; echo $ref1; echo $ref2; echo $ref3; echo "\n";
  44
  45 ?>
  46 END_CODE
  47 1111
  48 2221
  49 3331
  50 4441
  51 4442
  52 END_OUT