[svn:parrot] r36022 - trunk/languages/pipp/t/php

Author: bernhard
Date: Mon Jan 26 05:02:38 2009
New Revision: 36022

Modified:
   trunk/languages/pipp/t/php/hello.t

Log:
[Pipp] Add TODO test for 'print'

Modified: trunk/languages/pipp/t/php/hello.t
==============================================================================
--- trunk/languages/pipp/t/php/hello.t	(original)
+++ trunk/languages/pipp/t/php/hello.t	Mon Jan 26 05:02:38 2009
@@ -1,4 +1,4 @@
-# Copyright (C) 2008, The Perl Foundation.
+# Copyright (C) 2008-2009, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -20,7 +20,7 @@
 use FindBin;
 use lib "$FindBin::Bin/../../../../lib", "$FindBin::Bin/../../lib";
 
-use Parrot::Test tests => 17;
+use Parrot::Test tests => 19;
 
 language_output_is( 'Pipp', <<'CODE', 'Hello, World!', 'sea without newline' );
 Hello, World!<?php
@@ -62,7 +62,7 @@
 Hello, World!
 OUT
 
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'hello' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'echo one double quoted string' );
 <?php
 echo "Hello, World!\n";
 ?>
@@ -187,3 +187,20 @@
 CODE
 Hello, World!
 OUT
+
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'echo with three args' );
+<?php
+echo 'Hello', ', World!', "\n";
+?>
+CODE
+Hello, World!
+OUT
+
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'print with one arg', todo => 'no print yet' );
+<?php
+print "Hello, World!\n";
+?>
+CODE
+Hello, World!
+OUT
+

• [svn:parrot] r36022 - trunk/languages/pipp/t/php by bernhard