Author: bernhard Date: Fri Nov 28 06:51:15 2008 New Revision: 33312 Removed: trunk/languages/pipp/t/php/variables.t Modified: trunk/MANIFEST trunk/languages/pipp/t/php/var.t
Log: [Pipp] Merge variables.t into var.t Modified: trunk/MANIFEST ============================================================================== --- trunk/MANIFEST (original) +++ trunk/MANIFEST Fri Nov 28 06:51:15 2008 @@ -1,7 +1,7 @@ # ex: set ro: # $Id$ # -# generated by tools/dev/mk_manifest_and_skip.pl Fri Nov 28 09:37:52 2008 UT +# generated by tools/dev/mk_manifest_and_skip.pl Fri Nov 28 14:44:53 2008 UT # # See tools/dev/install_files.pl for documentation on the # format of this file. @@ -2431,7 +2431,6 @@ languages/pipp/t/php/tags.t [pipp] languages/pipp/t/php/type.t [pipp] languages/pipp/t/php/var.t [pipp] -languages/pipp/t/php/variables.t [pipp] languages/pipp/t/pmc/array.t [pipp] languages/pipp/t/pmc/boolean.t [pipp] languages/pipp/t/pmc/null.t [pipp] Modified: trunk/languages/pipp/t/php/var.t ============================================================================== --- trunk/languages/pipp/t/php/var.t (original) +++ trunk/languages/pipp/t/php/var.t Fri Nov 28 06:51:15 2008 @@ -20,13 +20,118 @@ use strict; use warnings; - use FindBin; use lib "$FindBin::Bin/../../../../lib", "$FindBin::Bin/../../lib"; -use Test::More tests => 4; -use Parrot::Test; +use Parrot::Test tests => 10; + +=for perl6 + +my $hello = "Hallo\n"; +print $hello; +=cut + +language_output_is( 'Pipp', <<'CODE', <<'OUT', 'string assignment' ); +<?php +$hello = "Hallo\n"; +echo $hello; +?> +CODE +Hallo +OUT + +language_output_is( 'Pipp', <<'CODE', <<'OUT', 'integer assignment' ); +<?php +$hello = -1000; +echo $hello; +echo "\n"; +?> +CODE +-1000 +OUT + +language_output_is( 'Pipp', <<'CODE', <<'OUT', 'expression assignment' ); +<?php +$hello = -1000 + 2000; +echo $hello; +echo "\n"; +?> +CODE +1000 +OUT + +language_output_is( 'Pipp', <<'CODE', <<'OUT', 'expression assignment' ); +<?php +$h = -1000; +$e = 2000; +$l = $h + $e; +echo $l; +echo "\n"; +?> +CODE +1000 +OUT + +language_output_is( 'Pipp', <<'CODE', <<'OUT', 'expression assignment' ); +<?php +$h = 1; +$e1 = 2; +$e0f = 3; +$e12345 = 4; +$_e12345 = 5; +$_12345 = 6; +$_0 = 7; + +echo $h; echo "\n"; +echo $e1; echo "\n"; +echo $e0f; echo "\n"; +echo $e12345; echo "\n"; +echo $_e12345; echo "\n"; +echo $_12345; echo "\n"; +echo $_0; echo "\n"; + +?> +CODE +1 +2 +3 +4 +5 +6 +7 +OUT + +language_output_is( 'Pipp', <<'CODE', <<'OUT', 'case sensitivity' ); +<?php +$abc = 1; +$abC = 2; +$aBc = 3; +$aBC = 4; +$Abc = 5; +$AbC = 6; +$ABc = 7; +$ABC = 8; + +echo $abc; echo "\n"; +echo $abC; echo "\n"; +echo $aBc; echo "\n"; +echo $aBC; echo "\n"; +echo $Abc; echo "\n"; +echo $AbC; echo "\n"; +echo $ABc; echo "\n"; +echo $ABC; echo "\n"; +?> +CODE +1 +2 +3 +4 +5 +6 +7 +8 +OUT language_output_is( 'Pipp', <<'CODE', <<'OUT', 'var_dump() with string key', skip => 'excessive memory usage' ); <?php
