Author: bernhard
Date: Wed Nov 26 13:27:51 2008
New Revision: 33242
Modified:
trunk/languages/pipp/src/pct/grammar.pg
trunk/languages/pipp/t/php/basic.t
Log:
[Pipp] remove an unnecessary '+', add a test case
Modified: trunk/languages/pipp/src/pct/grammar.pg
==============================================================================
--- trunk/languages/pipp/src/pct/grammar.pg (original)
+++ trunk/languages/pipp/src/pct/grammar.pg Wed Nov 26 13:27:51 2008
@@ -145,7 +145,7 @@
}
token require_once_statement {
- 'require_once' <.ws_char>+ <quote> <ws> <.statement_delimiter>
+ 'require_once' <.ws_char> <quote> <ws> <.statement_delimiter>
{*}
}
Modified: trunk/languages/pipp/t/php/basic.t
==============================================================================
--- trunk/languages/pipp/t/php/basic.t (original)
+++ trunk/languages/pipp/t/php/basic.t Wed Nov 26 13:27:51 2008
@@ -20,12 +20,22 @@
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 => 5;
+
+language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'whitespace after echo' );
+<?php
+ echo 'one space', "\n";
+ echo 'two spaces', "\n";
+ echo 'three spaces', "\n";
+?>
+CODE
+one space
+two spaces
+three spaces
+OUTPUT
language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'constants' );
<?php
