Author: bernhard
Date: Mon Jul 28 04:52:33 2008
New Revision: 29826
Modified:
trunk/languages/pipp/t/php/strings.t
Log:
[Pipp] Two more tests for double quoted string.
Skip the test that gets trapped in an infinite loop.
Modified: trunk/languages/pipp/t/php/strings.t
==============================================================================
--- trunk/languages/pipp/t/php/strings.t (original)
+++ trunk/languages/pipp/t/php/strings.t Mon Jul 28 04:52:33 2008
@@ -18,7 +18,7 @@
use lib "$FindBin::Bin/../../lib";
# core Perl modules
-use Test::More tests => 19;
+use Test::More tests => 21;
# Parrot modules
use Parrot::Test;
@@ -99,6 +99,20 @@
VAR1 VAR2
END_EXPECTED
+SKIP: {
+ skip 'runaway process', 1;
+
+ language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'dollar
followed by a space' );
+<?php
+
+echo ";$ ;", "\n";
+
+?>
+END_CODE
+;$ ;
+END_EXPECTED
+}
+
language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'curly string
interpolation, one var' );
<?php
$var1 = "VAR1";
@@ -222,6 +236,18 @@
backslash and twiddles: \{INTERPOLATED}
END_EXPECTED
+language_output_is( 'Pipp', <<'END_CODE', <<'END_EXPECTED', 'curly quotes in
double quoted string' );
+<?php
+
+echo ";{;", "\n";
+echo ";\{;", "\n";
+
+?>
+END_CODE
+;{;
+;\{;
+END_EXPECTED
+
language_output_is( 'Pipp', <<'END_CODE', <<"END_EXPECTED", 'vertical tab, new
in PHP 5.3' );
<?php
