Front page | perl.cvs.parrot |
Postings from January 2009
[svn:parrot] r36026 - trunk/languages/pipp/t/php
From:
bernhard
Date:
January 26, 2009 05:03
Subject:
[svn:parrot] r36026 - trunk/languages/pipp/t/php
Message ID:
20090126130331.C823BCB9AE@x12.develooper.com
Author: bernhard
Date: Mon Jan 26 05:03:31 2009
New Revision: 36026
Modified:
trunk/languages/pipp/t/php/hello.t
Log:
[Pipp] simplify hello.1
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:03:31 2009
@@ -22,18 +22,18 @@
use Parrot::Test tests => 19;
+my $h = "Hello, World!\n";
+
language_output_is( 'Pipp', <<'CODE', 'Hello, World!', 'sea without newline' );
Hello, World!<?php
?>
CODE
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'sea with one newline' );
+language_output_is( 'Pipp', <<'CODE', $h, 'sea with one newline' );
Hello, World!
<?php
?>
CODE
-Hello, World!
-OUT
language_output_is( 'Pipp', <<'CODE', <<'OUT', 'sea with two newlines' );
Hello,
@@ -53,47 +53,39 @@
World!
OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'sea without following PHP code' );
+language_output_is( 'Pipp', <<'CODE', $h, 'sea without following PHP code' );
Hello,<?php
?> World!
<?php
?>
CODE
-Hello, World!
-OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'echo one double quoted string' );
+language_output_is( 'Pipp', <<'CODE', $h, 'echo one double quoted string' );
<?php
echo "Hello, World!\n";
?>
CODE
-Hello, World!
-OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'echo with single quoted string' );
+language_output_is( 'Pipp', <<'CODE', $h, 'echo with single quoted string' );
<?php
echo 'Hello, World!';
echo "\n";
?>
CODE
-Hello, World!
-OUT
language_output_is( 'Pipp', <<'CODE', 'Hello World', 'only alphanumic' );
<?php echo "Hello World"; ?>
CODE
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'two echo statements' );
+language_output_is( 'Pipp', <<'CODE', $h, 'two echo statements' );
<?php
echo "Hello, ";
echo "World!\n";
?>
CODE
-Hello, World!
-OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'two echo statements' );
+language_output_is( 'Pipp', <<'CODE', $h, 'two echo statements' );
<?php
echo "Hello, ";
?>Wo<?php
@@ -102,8 +94,6 @@
<?php
?>
CODE
-Hello, World!
-OUT
language_output_is( 'Pipp', <<'CODE', <<'OUT', 'hello with some HTML' );
<html>
@@ -132,75 +122,59 @@
OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'hello in a scalar' );
+language_output_is( 'Pipp', <<'CODE', $h, 'hello in a scalar' );
<?php
$h = "Hello, World!\n";
echo $h;
?>
CODE
-Hello, World!
-OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'hello in a hash' );
+language_output_is( 'Pipp', <<'CODE', $h, 'hello in a hash' );
<?php
$h["e"] = "Hello, World!\n";
echo $h["e"];
?>
CODE
-Hello, World!
-OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'no semicolon befor CODE_END' );
+language_output_is( 'Pipp', <<'CODE', $h, 'no semicolon befor CODE_END' );
<?php
echo 'Hello, ';
echo "World!\n"
?>
CODE
-Hello, World!
-OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'concatenation of two strings' );
+language_output_is( 'Pipp', <<'CODE', $h, 'concatenation of two strings' );
<?php
echo 'Hello, ' . "World!\n"
?>
CODE
-Hello, World!
-OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'script tags' );
+language_output_is( 'Pipp', <<'CODE', $h, 'script tags' );
<script language="php">
echo "Hello, World!\n";
</script>
CODE
-Hello, World!
-OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'script tags' );
+language_output_is( 'Pipp', <<'CODE', $h, 'script tags' );
<script language="php">
echo "Hello, World!\n";
</script>
CODE
-Hello, World!
-OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'echo with three args' );
+language_output_is( 'Pipp', <<'CODE', $h, 'echo with three args' );
<?php
echo 'Hello', ', World!', "\n";
?>
CODE
-Hello, World!
-OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'print with one arg' );
+language_output_is( 'Pipp', <<'CODE', $h, 'print with one arg' );
<?php
print "Hello, World!\n";
?>
CODE
-Hello, World!
-OUT
-
[svn:parrot] r36026 - trunk/languages/pipp/t/php
by bernhard