# Copyright (C) 2008, The Perl Foundation.
# $Id: /mirror/trunk/languages/pipp/t/php/references.t 33337 2008-11-28T10:18:50.649721Z bernhard  $

=head1 NAME

t/php/references.t - testing references

=head1 SYNOPSIS

    perl t/harness t/php/references.t

=head1 DESCRIPTION

Test references.

=cut

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../../../../lib", "$FindBin::Bin/../../lib";

use Parrot::Test tests => 1;

language_output_is( 'Pipp', <<'CODE', <<'OUT', 'references', todo => 'not implemented yet' );
<?php

$var = 1;
$ref1 =& $var;
$ref2 =& $var;
$ref3 = $ref2;
echo $var; echo $ref1; echo $ref2; echo $ref3; echo "\n";

$var++;
echo $var; echo $ref1; echo $ref2; echo $ref3; echo "\n";

$ref1++;
echo $var; echo $ref1; echo $ref2; echo $ref3; echo "\n";

$ref2++;
echo $var; echo $ref1; echo $ref2; echo $ref3; echo "\n";

$ref3++;
echo $var; echo $ref1; echo $ref2; echo $ref3; echo "\n";

?>
CODE
1111
2221
3331
4441
4442
OUT
