Author: bernhard
Date: Fri Nov 28 01:57:14 2008
New Revision: 33304
Modified:
trunk/languages/pipp/t/php/base64.t
trunk/languages/pipp/t/php/basic.t
trunk/languages/pipp/t/php/builtin.t
trunk/languages/pipp/t/php/control_flow.t
trunk/languages/pipp/t/php/ctype.t
trunk/languages/pipp/t/php/file.t
trunk/languages/pipp/t/php/filestat.t
trunk/languages/pipp/t/php/gmp.t
trunk/languages/pipp/t/php/info.t
trunk/languages/pipp/t/php/math.t
trunk/languages/pipp/t/php/md5.t
trunk/languages/pipp/t/php/pcre.t
trunk/languages/pipp/t/php/rand.t
trunk/languages/pipp/t/php/sha1.t
trunk/languages/pipp/t/php/string.t
trunk/languages/pipp/t/php/tags.t
trunk/languages/pipp/t/php/type.t
trunk/languages/pipp/t/php/var.t
Log:
[Pipp] Normalize heredoc delimiters. s/OUTPUT/OUT/
Modified: trunk/languages/pipp/t/php/base64.t
==============================================================================
--- trunk/languages/pipp/t/php/base64.t (original)
+++ trunk/languages/pipp/t/php/base64.t Fri Nov 28 01:57:14 2008
@@ -28,70 +28,70 @@
use Parrot::Test;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'base64_encode(str)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'base64_encode(str)' );
<?php
echo base64_encode('Plum Headed Parakeet'), "\n";
?>
CODE
UGx1bSBIZWFkZWQgUGFyYWtlZXQ=
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'base64_encode(no arg)' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'base64_encode(no arg)' );
<?php
echo base64_encode(), "\n";
?>
CODE
/base64_encode\(\) expects exactly 1 parameter, 0 given/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'base64_encode(3.14)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'base64_encode(3.14)' );
<?php
echo base64_encode(3.14), "\n";
?>
CODE
My4xNA==
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'base64_encode(TRUE)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'base64_encode(TRUE)' );
<?php
echo base64_encode(TRUE), "\n";
?>
CODE
MQ==
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'base64_encode(NULL)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'base64_encode(NULL)' );
<?php
echo base64_encode(NULL), "\n";
?>
CODE
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'base64_encode(array)' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'base64_encode(array)' );
<?php
$hello['world'] = 'hi';
echo base64_encode($hello), "\n";
?>
CODE
/base64_encode\(\) expects parameter 1 to be string, array given/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'base64_decode(str)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'base64_decode(str)' );
<?php
echo base64_decode('UGx1bSBIZWFkZWQgUGFyYWtlZXQ='), "\n";
?>
CODE
Plum Headed Parakeet
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'base64_decode(no arg)' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'base64_decode(no arg)' );
<?php
echo base64_decode(), "\n";
?>
CODE
/base64_decode\(\) expects at least 1 parameter, 0 given/
-OUTPUT
+OUT
# Local Variables:
# mode: cperl
Modified: trunk/languages/pipp/t/php/basic.t
==============================================================================
--- trunk/languages/pipp/t/php/basic.t (original)
+++ trunk/languages/pipp/t/php/basic.t Fri Nov 28 01:57:14 2008
@@ -25,7 +25,7 @@
use Parrot::Test tests => 5;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'whitespace after echo' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'whitespace after echo' );
<?php
echo 'one space', "\n";
echo 'two spaces', "\n";
@@ -35,9 +35,9 @@
one space
two spaces
three spaces
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'constants' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'constants' );
<?php
echo SEEK_SET, "\n";
echo SEEK_CUR, "\n";
@@ -47,32 +47,32 @@
0
1
2
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'getenv()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'getenv()' );
<?php
echo getenv('PARROT_TMP'), "\n";
?>
CODE
-OUTPUT
+OUT
$ENV{PARROT_TMP} = 'GETENV_PARROT';
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'getenv()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'getenv()' );
<?php
echo getenv('PARROT_TMP'), "\n";
?>
CODE
GETENV_PARROT
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'sleep()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'sleep()' );
<?php
sleep(1);
?>
CODE
-OUTPUT
+OUT
# Local Variables:
Modified: trunk/languages/pipp/t/php/builtin.t
==============================================================================
--- trunk/languages/pipp/t/php/builtin.t (original)
+++ trunk/languages/pipp/t/php/builtin.t Fri Nov 28 01:57:14 2008
@@ -28,26 +28,26 @@
use Parrot::Test;
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'get_resource_type()' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'get_resource_type()' );
<?php
$fp = fopen('file.txt', 'w');
echo get_resource_type($fp);
?>
CODE
/^(stream|ParrotIO)$/
-OUTPUT
+OUT
unlink 'pipp/file.txt' if (-f 'pipp/file.txt');
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'get_resource_type() bad
arg' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'get_resource_type() bad arg'
);
<?php
echo get_resource_type('bad');
?>
CODE
/Supplied argument is not a valid resource handle/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'strcmp()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'strcmp()' );
<?php
echo strcmp('ABC', 'ABC'), "\n";
echo strcmp('ABC', 'BCD'), "\n";
@@ -57,55 +57,55 @@
0
-1
1
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'strlen()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'strlen()' );
<?php
echo strlen('str'), "\n";
?>
CODE
3
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'strlen() empty string' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'strlen() empty string' );
<?php
echo strlen(''), "\n";
?>
CODE
0
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'strlen() no arg' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'strlen() no arg' );
<?php
echo strlen(), "\n";
?>
CODE
/Wrong parameter count for strlen\(\)/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'strlen() too many arg' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'strlen() too many arg' );
<?php
echo strlen('str', 42), "\n";
?>
CODE
/Wrong parameter count for strlen\(\)/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'extension_loaded() returns
FALSE, echo' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'extension_loaded() returns
FALSE, echo' );
<?php
echo extension_loaded("asdf");
?>
CODE
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'extension_loaded() returns
FALSE, var_dump' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'extension_loaded() returns
FALSE, var_dump' );
<?php
var_dump( extension_loaded("asdf") );
?>
CODE
bool(false)
-OUTPUT
+OUT
# Local Variables:
Modified: trunk/languages/pipp/t/php/control_flow.t
==============================================================================
--- trunk/languages/pipp/t/php/control_flow.t (original)
+++ trunk/languages/pipp/t/php/control_flow.t Fri Nov 28 01:57:14 2008
@@ -22,7 +22,7 @@
use Parrot::Test;
use Test::More tests => 15;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'if, one statement in block'
);
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'if, one statement in block' );
<?php
if (1)
{
@@ -31,9 +31,9 @@
?>
CODE
Hi
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'if, no statements in block'
);
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'if, no statements in block' );
<?php
if (1)
{
@@ -42,9 +42,9 @@
?>
CODE
Hi
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'if, two statements in
block' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'if, two statements in block' );
<?php
if (1)
{
@@ -54,9 +54,9 @@
?>
CODE
Hi
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'if/else taking if-branch' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'if/else taking if-branch' );
<?php
if (1)
{
@@ -69,9 +69,9 @@
?>
CODE
if block
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'i/else taking else-branchf'
);
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'i/else taking else-branchf' );
<?php
if (0)
{
@@ -84,9 +84,9 @@
?>
CODE
else block
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT' . q{ }, 'positive int' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT' . q{ }, 'positive int' );
<?php
if (1) {
?>
@@ -96,9 +96,9 @@
?>
CODE
Condition is true.
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'zero' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'zero' );
<?php
if (0) {
?>
@@ -109,9 +109,9 @@
Condition is false.
CODE
Condition is false.
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'string' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'string' );
<?php
if ( 'false' ) {
?>
@@ -121,9 +121,9 @@
?>
CODE
The string 'false' is true.
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'string' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'string' );
<?php
if ( 'vrai' ) {
?>
@@ -139,10 +139,10 @@
?>
CODE
The string 'vrai' is true.
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'string' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'string' );
<?php
if ( 0 ) {
?>
@@ -158,9 +158,9 @@
?>
CODE
The integer 0 is false.
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'while loop' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'while loop' );
<?php
$count = 0;
@@ -176,9 +176,9 @@
round 8
round 9
round 10
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'while with negated
expression' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'while with negated expression'
);
<?php
$count = 0;
@@ -194,9 +194,9 @@
round 8
round 9
round 10
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'classic for-loop' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'classic for-loop' );
<?php
$count = 0;
@@ -212,9 +212,9 @@
round 7
round 8
round 9
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'for-loop with HTML-block' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'for-loop with HTML-block' );
<?php
$count = 0;
@@ -233,9 +233,9 @@
round 7
round 8
round 9
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'another for-loop' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'another for-loop' );
<?php for ( $count = 0; $count < 10; $count++ ) { ?>round <?php echo $count ?>
<?php } ?>
@@ -250,4 +250,4 @@
round 7
round 8
round 9
-OUTPUT
+OUT
Modified: trunk/languages/pipp/t/php/ctype.t
==============================================================================
--- trunk/languages/pipp/t/php/ctype.t (original)
+++ trunk/languages/pipp/t/php/ctype.t Fri Nov 28 01:57:14 2008
@@ -28,31 +28,31 @@
use Parrot::Test;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'ctype_alnum() ok' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'ctype_alnum() ok' );
<?php
echo ctype_alnum('12abc'), "\n";
?>
CODE
1
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'ctype_alnum() ko' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'ctype_alnum() ko' );
<?php
echo ctype_alnum('12-abc'), "\n";
?>
CODE
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'ctype_alnum() empty' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'ctype_alnum() empty' );
<?php
echo ctype_alnum(''), "\n";
?>
CODE
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'ctype_alnum() int' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'ctype_alnum() int' );
<?php
echo ctype_alnum(65), "\n";
echo ctype_alnum(32), "\n";
@@ -62,7 +62,7 @@
1
1
-OUTPUT
+OUT
# Local Variables:
Modified: trunk/languages/pipp/t/php/file.t
==============================================================================
--- trunk/languages/pipp/t/php/file.t (original)
+++ trunk/languages/pipp/t/php/file.t Fri Nov 28 01:57:14 2008
@@ -36,7 +36,7 @@
print {$X} "line 3\n";
close $X;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'basename' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'basename' );
<?php
echo basename('def.html'), "\n";
echo basename('abc/def.html'), "\n";
@@ -48,9 +48,9 @@
def.html
def
def.html
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'file_get_contents(file)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'file_get_contents(file)' );
<?php
echo file_get_contents('file.txt'), "\n";
?>
@@ -59,26 +59,26 @@
line 2
line 3
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'file_get_contents(nofile)'
);
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'file_get_contents(nofile)' );
<?php
echo file_get_contents('nofile.txt'), "\n";
?>
CODE
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'fopen(file)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'fopen(file)' );
<?php
$fp = fopen('file.txt', 'r');
echo gettype($fp), "\n";
?>
CODE
resource
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'fopen(nofile)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'fopen(nofile)' );
<?php
$fp = fopen('nofile.txt', 'r');
echo gettype($fp), "\n";
@@ -87,26 +87,26 @@
CODE
boolean
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'fopen(file) & fclose' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'fopen(file) & fclose' );
<?php
$fp = fopen('file.txt', 'r');
echo fclose($fp), "\n";
?>
CODE
1
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'fclose() bad arg' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'fclose() bad arg' );
<?php
fclose('bad');
?>
CODE
/fclose\(\): supplied argument is not a valid (stream|ParrotIO) resource/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'fpassthru()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'fpassthru()' );
<?php
$fp = fopen('file.txt', 'r');
fpassthru($fp);
@@ -116,9 +116,9 @@
line 1
line 2
line 3
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'readfile(file)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'readfile(file)' );
<?php
echo readfile('file.txt'), "\n";
?>
@@ -127,15 +127,15 @@
line 2
line 3
21
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'readfile(nofile)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'readfile(nofile)' );
<?php
echo readfile('nofile.txt'), "\n";
?>
CODE
-OUTPUT
+OUT
unlink 'file.txt' if -f 'file.txt';
Modified: trunk/languages/pipp/t/php/filestat.t
==============================================================================
--- trunk/languages/pipp/t/php/filestat.t (original)
+++ trunk/languages/pipp/t/php/filestat.t Fri Nov 28 01:57:14 2008
@@ -30,13 +30,13 @@
unlink 'file.txt' if (-f 'file.txt');
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'file_exists()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'file_exists()' );
<?php
echo file_exists('file.txt'), "\n";
?>
CODE
-OUTPUT
+OUT
open my $X, '>', 'file.txt';
binmode $X, ':raw';
@@ -45,21 +45,21 @@
print {$X} "line 3\n";
close $X;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'file_exists()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'file_exists()' );
<?php
echo file_exists('file.txt'), "\n";
?>
CODE
1
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'filesize()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'filesize()' );
<?php
echo filesize('file.txt'), "\n";
?>
CODE
21
-OUTPUT
+OUT
unlink 'file.txt' if (-f 'file.txt');
Modified: trunk/languages/pipp/t/php/gmp.t
==============================================================================
--- trunk/languages/pipp/t/php/gmp.t (original)
+++ trunk/languages/pipp/t/php/gmp.t Fri Nov 28 01:57:14 2008
@@ -29,7 +29,7 @@
plan tests => 24;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'constants' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'constants' );
<?php
echo GMP_ROUND_ZERO, "\n";
echo GMP_ROUND_PLUSINF, "\n";
@@ -39,9 +39,9 @@
0
1
2
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_abs()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_abs()' );
<?php
$a = gmp_init(-2);
$r = gmp_abs($a);
@@ -49,9 +49,9 @@
?>
CODE
2
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_add()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_add()' );
<?php
$a = gmp_init(3);
$b = gmp_init(4);
@@ -60,9 +60,9 @@
?>
CODE
7
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_add()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_add()' );
<?php
$a = gmp_init(3);
$r = gmp_add($a, 4);
@@ -70,9 +70,9 @@
?>
CODE
7
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_and()', todo => "BigInt
improvement needed" );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_and()', todo => "BigInt
improvement needed" );
<?php
$a = gmp_init(5);
$b = gmp_init(6);
@@ -81,9 +81,9 @@
?>
CODE
4
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_and()', todo => "BigInt
improvement needed" );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_and()', todo => "BigInt
improvement needed" );
<?php
$a = gmp_init(5);
$r = gmp_and($a, 6);
@@ -91,9 +91,9 @@
?>
CODE
4
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_cmp()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_cmp()' );
<?php
$a = gmp_init(3);
$b = gmp_init(4);
@@ -108,9 +108,9 @@
-1
1
0
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_cmp()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_cmp()' );
<?php
$a = gmp_init(3);
$b = gmp_init(4);
@@ -125,27 +125,27 @@
-1
1
0
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_init()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_init()' );
<?php
$a = gmp_init(2);
echo gettype($a), "\n";
?>
CODE
resource
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_intval()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_intval()' );
<?php
$a = gmp_init(2);
echo gmp_intval($a), "\n";
?>
CODE
2
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_intval() bad
resource' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'gmp_intval() bad resource' );
<?php
$fp = fopen('file.txt', 'w');
echo $fp, "\n";
@@ -153,27 +153,27 @@
?>
CODE
/gmp_intval\(\): supplied resource is not a valid (GMP integer|BigInt)
resource/
-OUTPUT
+OUT
unlink 'pipp/file.txt' if (-f '../file.txt');
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_intval(2)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_intval(2)' );
<?php
echo gmp_intval(2), "\n";
?>
CODE
2
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_intval(" 2 ")' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_intval(" 2 ")' );
<?php
echo gmp_intval(' 2 '), "\n";
?>
CODE
2
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_mod()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_mod()' );
<?php
$a = gmp_init(8);
$b = gmp_init(3);
@@ -182,9 +182,9 @@
?>
CODE
2
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_mod()', todo => "BigInt
improvement needed" );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_mod()', todo => "BigInt
improvement needed" );
<?php
$a = gmp_init(8);
$r = gmp_mod($a, 3);
@@ -192,9 +192,9 @@
?>
CODE
2
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_mod() by zero' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'gmp_mod() by zero' );
<?php
$a = gmp_init(7);
$b = gmp_init(0);
@@ -203,9 +203,9 @@
?>
CODE
/Zero operand not allowed/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_mod() by zero' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'gmp_mod() by zero' );
<?php
$a = gmp_init(7);
$r = gmp_mod($a, 0);
@@ -213,9 +213,9 @@
?>
CODE
/Zero operand not allowed/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_mul()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_mul()' );
<?php
$a = gmp_init(3);
$b = gmp_init(4);
@@ -224,9 +224,9 @@
?>
CODE
12
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_mul()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_mul()' );
<?php
$a = gmp_init(3);
$r = gmp_mul($a, 4);
@@ -234,9 +234,9 @@
?>
CODE
12
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_neg()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_neg()' );
<?php
$a = gmp_init(2);
$r = gmp_neg($a);
@@ -244,9 +244,9 @@
?>
CODE
-2
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_or()', todo => "BigInt
improvement needed" );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_or()', todo => "BigInt
improvement needed" );
<?php
$a = gmp_init(5);
$b = gmp_init(6);
@@ -255,9 +255,9 @@
?>
CODE
7
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_or()', todo => "BigInt
improvement needed" );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_or()', todo => "BigInt
improvement needed" );
<?php
$a = gmp_init(5);
$r = gmp_or($a, 6);
@@ -265,9 +265,9 @@
?>
CODE
7
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_sub()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_sub()' );
<?php
$a = gmp_init(3);
$b = gmp_init(4);
@@ -276,9 +276,9 @@
?>
CODE
-1
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gmp_sub()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gmp_sub()' );
<?php
$a = gmp_init(3);
$r = gmp_sub($a, 4);
@@ -286,7 +286,7 @@
?>
CODE
-1
-OUTPUT
+OUT
# Local Variables:
# mode: cperl
Modified: trunk/languages/pipp/t/php/info.t
==============================================================================
--- trunk/languages/pipp/t/php/info.t (original)
+++ trunk/languages/pipp/t/php/info.t Fri Nov 28 01:57:14 2008
@@ -26,69 +26,69 @@
use Parrot::Test tests => 9;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'php_egg_logo_guid()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'php_egg_logo_guid()' );
<?php
echo php_egg_logo_guid(), "\n";
?>
CODE
PHPE9568F36-D428-11d2-A769-00AA001ACF42
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'php_logo_guid()' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'php_logo_guid()' );
<?php
echo php_logo_guid(), "\n";
?>
CODE
/PHPE9568F3[46]-D428-11d2-A769-00AA001ACF42/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'php_real_logo_guid()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'php_real_logo_guid()' );
<?php
echo php_real_logo_guid(), "\n";
?>
CODE
PHPE9568F34-D428-11d2-A769-00AA001ACF42
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'php_uname()' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'php_uname()' );
<?php
echo php_uname(), "\n";
?>
CODE
/.+/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'php_uname("a")' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'php_uname("a")' );
<?php
echo php_uname('a'), "\n";
?>
CODE
/.+/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'phpversion()' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'phpversion()' );
<?php
echo phpversion(), "\n";
?>
CODE
/^5\.3/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'phpversion("ctype")' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'phpversion("ctype")' );
<?php
echo phpversion('ctype'), "\n";
?>
CODE
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'zend_logo_guid()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'zend_logo_guid()' );
<?php
echo zend_logo_guid(), "\n";
?>
CODE
PHPE9568F35-D428-11d2-A769-00AA001ACF42
-OUTPUT
+OUT
language_output_is( 'Pipp', <<'CODE', '.', 'get_include_path()' );
<?php
Modified: trunk/languages/pipp/t/php/math.t
==============================================================================
--- trunk/languages/pipp/t/php/math.t (original)
+++ trunk/languages/pipp/t/php/math.t Fri Nov 28 01:57:14 2008
@@ -28,7 +28,7 @@
use Parrot::Test;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'abs' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'abs' );
<?php
echo abs(-3), "\n";
echo abs(-3.14), "\n";
@@ -67,225 +67,225 @@
0
0
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'acos' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'acos' );
<?php
echo acos(0.5), "\n";
?>
CODE
/^1\.047/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'acosh' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'acosh' );
<?php
echo acosh(1.5), "\n";
?>
CODE
/^0\.962/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'asin' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'asin' );
<?php
echo asin(0.5), "\n";
?>
CODE
/^0\.523/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'asinh' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'asinh' );
<?php
echo asinh(0.5), "\n";
?>
CODE
/^0\.481/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'atan' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'atan' );
<?php
echo atan(0.5), "\n";
?>
CODE
/^0\.463/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'atanh' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'atanh' );
<?php
echo atanh(0.5), "\n";
?>
CODE
/^0\.549/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'atan2' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'atan2' );
<?php
echo atan2(1, 2), "\n";
?>
CODE
/^0\.463/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'base_convert' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'base_convert' );
<?php
echo base_convert(126, 10, 16), "\n";
?>
CODE
7e
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'bindec' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'bindec' );
<?php
echo bindec('0101'), "\n";
?>
CODE
5
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'ceil' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'ceil' );
<?php
echo ceil(3.14), "\n";
?>
CODE
4
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'cos' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'cos' );
<?php
echo cos(0.5), "\n";
?>
CODE
/^0\.877/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'cosh' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'cosh' );
<?php
echo cosh(0.5), "\n";
?>
CODE
/^1\.127/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'decbin' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'decbin' );
<?php
echo decbin(126), "\n";
?>
CODE
1111110
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'dechex' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'dechex' );
<?php
echo dechex(126), "\n";
?>
CODE
7e
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'decoct' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'decoct' );
<?php
echo decoct(126), "\n";
?>
CODE
176
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'deg2rad' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'deg2rad' );
<?php
echo deg2rad(90), "\n";
?>
CODE
/^1\.570/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'exp' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'exp' );
<?php
echo exp(0.5), "\n";
?>
CODE
/^1\.648/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'floor' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'floor' );
<?php
echo floor(3.14), "\n";
?>
CODE
3
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'fmod' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'fmod' );
<?php
echo fmod(3.14, 2.5), "\n";
?>
CODE
0.64
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'hexdec' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'hexdec' );
<?php
echo hexdec('7E'), "\n";
?>
CODE
126
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'hypot' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'hypot' );
<?php
echo hypot(1, 2), "\n";
?>
CODE
/^2\.236/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_finite' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'is_finite' );
<?php
echo is_finite(3.14), "\n";
?>
CODE
1
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_infinite' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'is_infinite' );
<?php
echo is_infinite(3.14), "\n";
?>
CODE
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_nan' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'is_nan' );
<?php
echo is_nan(3.14), "\n";
?>
CODE
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'log' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'log' );
<?php
echo log(10), "\n";
?>
CODE
/^2\.302/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'log' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'log' );
<?php
echo log(10, 2), "\n";
?>
CODE
/^3\.321/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'log10' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'log10' );
<?php
echo log10(100), "\n";
?>
CODE
2
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'number_format' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'number_format' );
<?php
echo number_format(42), "\n";
echo number_format(-4096), "\n";
@@ -297,25 +297,25 @@
-4,096
123,456,789
3.14
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'octdec' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'octdec' );
<?php
echo octdec('0777'), "\n";
?>
CODE
511
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'pi' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'pi' );
<?php
echo pi(), "\n";
?>
CODE
/^3\.14/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'pow' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'pow' );
<?php
echo pow(2, 3), "\n";
echo pow(1.5, 2), "\n";
@@ -323,17 +323,17 @@
CODE
8
2.25
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'rad2deg' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'rad2deg' );
<?php
echo rad2deg(0.5), "\n";
?>
CODE
/^28\.6/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'round' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'round' );
<?php
echo round(3.14159), "\n";
echo round(3.14159, 2), "\n";
@@ -343,47 +343,47 @@
3
3.14
3.1416
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'sin' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'sin' );
<?php
echo sin(0.5), "\n";
?>
CODE
/^0\.479/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'sinh' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'sinh' );
<?php
echo sinh(0.5), "\n";
?>
CODE
/^0\.521/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'sqrt' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'sqrt' );
<?php
echo sqrt(0.5), "\n";
?>
CODE
/^0\.707/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'tan' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'tan' );
<?php
echo tan(0.5), "\n";
?>
CODE
/^0\.546/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'tanh' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'tanh' );
<?php
echo tanh(0.5), "\n";
?>
CODE
/^0\.462/
-OUTPUT
+OUT
# Local Variables:
# mode: cperl
Modified: trunk/languages/pipp/t/php/md5.t
==============================================================================
--- trunk/languages/pipp/t/php/md5.t (original)
+++ trunk/languages/pipp/t/php/md5.t Fri Nov 28 01:57:14 2008
@@ -28,23 +28,23 @@
use Parrot::Test;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'md5(msg)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5(msg)' );
<?php
echo md5('message digest'), "\n";
?>
CODE
f96b697d7cb7938d525a2f31aaf161d0
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'md5(msg, FALSE)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5(msg, FALSE)' );
<?php
echo md5('message digest', FALSE), "\n";
?>
CODE
f96b697d7cb7938d525a2f31aaf161d0
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'md5(msg, TRUE)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5(msg, TRUE)' );
<?php
$md = md5('message digest', TRUE);
echo gettype($md), "\n";
@@ -53,30 +53,30 @@
CODE
string
16
-OUTPUT
+OUT
unlink 'file.txt' if -f 'file.txt';
open my $X, '>', 'file.txt';
print {$X} 'message digest';
close $X;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'md5_file(file)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5_file(file)' );
<?php
echo md5_file('file.txt'), "\n";
?>
CODE
f96b697d7cb7938d525a2f31aaf161d0
-OUTPUT
+OUT
unlink 'file.txt' if -f 'file.txt';
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'md5_file(nofile)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'md5_file(nofile)' );
<?php
echo md5_file('nofile.txt'), "\n";
?>
CODE
-OUTPUT
+OUT
# Local Variables:
# mode: cperl
Modified: trunk/languages/pipp/t/php/pcre.t
==============================================================================
--- trunk/languages/pipp/t/php/pcre.t (original)
+++ trunk/languages/pipp/t/php/pcre.t Fri Nov 28 01:57:14 2008
@@ -36,7 +36,7 @@
}
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'constants' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'constants' );
<?php
echo PREG_NO_ERROR, "\n";
echo PREG_INTERNAL_ERROR, "\n";
@@ -50,17 +50,17 @@
2
3
4
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'version' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'version' );
<?php
echo PCRE_VERSION;
?>
CODE
/^\d\.\d/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_match()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'preg_match()' );
<?php
echo preg_match('/b/', 'abc'), "\n";
echo preg_match('/b/', 'aaa'), "\n";
@@ -72,47 +72,47 @@
0
1
1
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_match() empty regex'
);
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'preg_match() empty regex' );
<?php
echo preg_match(' ', 'abc'), "\n";
?>
CODE
/Empty regular expression/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_match() bad delim' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'preg_match() bad delim' );
<?php
echo preg_match(' 7b7', 'abc'), "\n";
?>
CODE
/Delimiter must not be alphanumeric or backslash/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_match() no end' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'preg_match() no end' );
<?php
echo preg_match(' |b', 'abc'), "\n";
?>
CODE
/ No ending delimiter '|' found/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_match() unknown
modif' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'preg_match() unknown modif'
);
<?php
echo preg_match(' /b/ia', 'abc'), "\n";
?>
CODE
/Unknown modifier 'a'/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'preg_quote()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'preg_quote()' );
<?php
echo preg_quote('{}[]()'), "\n";
?>
CODE
\{\}\[\]\(\)
-OUTPUT
+OUT
# Local Variables:
# mode: cperl
Modified: trunk/languages/pipp/t/php/rand.t
==============================================================================
--- trunk/languages/pipp/t/php/rand.t (original)
+++ trunk/languages/pipp/t/php/rand.t Fri Nov 28 01:57:14 2008
@@ -28,156 +28,156 @@
use Parrot::Test;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'getrandmax()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'getrandmax()' );
<?php
echo getrandmax(), "\n";
?>
CODE
2147483647
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'getrandmax(wrong param)'
);
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'getrandmax(wrong param)' );
<?php
echo getrandmax(42);
?>
CODE
/Wrong parameter count for getrandmax\(\)/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'mt_getrandmax()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'mt_getrandmax()' );
<?php
echo mt_getrandmax(), "\n";
?>
CODE
2147483647
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'mt_rand()' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'mt_rand()' );
<?php
echo mt_rand();
?>
CODE
/\d+/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'mt_rand(min, max)' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'mt_rand(min, max)' );
<?php
echo mt_rand(1, 10);
?>
CODE
/\d/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'mt_srand()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'mt_srand()' );
<?php
mt_srand();
?>
CODE
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'mt_srand(seed)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'mt_srand(seed)' );
<?php
mt_srand(42);
?>
CODE
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'rand()' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'rand()' );
<?php
echo rand();
?>
CODE
/\d+/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'rand(min, max)' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'rand(min, max)' );
<?php
echo rand(1, 10);
?>
CODE
/\d/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'rand(too few arg)' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'rand(too few arg)' );
<?php
echo rand(1);
?>
CODE
/rand\(\) expects exactly 2 parameters, 1 given/
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'rand(too many arg)' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'rand(too many arg)' );
<?php
echo rand(1, 10, 100);
?>
CODE
/rand\(\) expects exactly 2 parameters, 3 given/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'srand()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'srand()' );
<?php
srand();
?>
CODE
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'srand(seed)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'srand(seed)' );
<?php
srand(42);
?>
CODE
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'srand(too many arg)' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'srand(too many arg)' );
<?php
echo srand(42, 12);
?>
CODE
/srand\(\) expects at most 1 parameter, 2 given/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'srand("42")' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'srand("42")' );
<?php
srand('42');
?>
CODE
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'srand(" 42")' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'srand(" 42")' );
<?php
srand(' 42');
?>
CODE
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'srand(" 42 ")' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'srand(" 42 ")' );
<?php
srand(' 42 ');
?>
CODE
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'srand(" str ")' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'srand(" str ")' );
<?php
srand('str');
?>
CODE
/srand\(\) expects parameter 1 to be long, string given/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'srand(TRUE)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'srand(TRUE)' );
<?php
srand(TRUE);
?>
CODE
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'srand(NULL)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'srand(NULL)' );
<?php
srand(NULL);
?>
CODE
-OUTPUT
+OUT
# Local Variables:
# mode: cperl
Modified: trunk/languages/pipp/t/php/sha1.t
==============================================================================
--- trunk/languages/pipp/t/php/sha1.t (original)
+++ trunk/languages/pipp/t/php/sha1.t Fri Nov 28 01:57:14 2008
@@ -28,23 +28,23 @@
use Parrot::Test;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'sha1(msg)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'sha1(msg)' );
<?php
echo sha1('message digest'), "\n";
?>
CODE
c12252ceda8be8994d5fa0290a47231c1d16aae3
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'sha1(msg, FALSE)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'sha1(msg, FALSE)' );
<?php
echo sha1('message digest', FALSE), "\n";
?>
CODE
c12252ceda8be8994d5fa0290a47231c1d16aae3
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'sha1(msg, TRUE)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'sha1(msg, TRUE)' );
<?php
$md = sha1('message digest', TRUE);
echo gettype($md), "\n";
@@ -53,30 +53,30 @@
CODE
string
20
-OUTPUT
+OUT
unlink 'file.txt' if -f 'file.txt';
open my $X, '>', 'file.txt';
print {$X} 'message digest';
close $X;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'sha1_file(file)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'sha1_file(file)' );
<?php
echo sha1_file('file.txt'), "\n";
?>
CODE
c12252ceda8be8994d5fa0290a47231c1d16aae3
-OUTPUT
+OUT
unlink 'file.txt' if -f 'file.txt';
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'sha1_file(nofile)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'sha1_file(nofile)' );
<?php
echo sha1_file('nofile.txt'), "\n";
?>
CODE
-OUTPUT
+OUT
# Local Variables:
# mode: cperl
Modified: trunk/languages/pipp/t/php/string.t
==============================================================================
--- trunk/languages/pipp/t/php/string.t (original)
+++ trunk/languages/pipp/t/php/string.t Fri Nov 28 01:57:14 2008
@@ -28,31 +28,31 @@
use Parrot::Test;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'bin2hex' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'bin2hex' );
<?php
echo bin2hex('Ab3'), "\n";
?>
CODE
416233
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'chr' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'chr' );
<?php
echo chr(65), "\n";
?>
CODE
A
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'ltrim' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'ltrim' );
<?php
echo ltrim(' abc'), "\n";
?>
CODE
abc
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'ord' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'ord' );
<?php
echo ord('A'), "\n";
echo ord(''), "\n";
@@ -60,17 +60,17 @@
CODE
65
0
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'rtrim' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'rtrim' );
<?php
echo rtrim(' abc '), "\n";
?>
CODE
abc
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'str_repeat' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'str_repeat' );
<?php
echo str_repeat('Ab', 3), "\n";
echo str_repeat('Ab', 0), "\n";
@@ -82,9 +82,9 @@
Ab
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'strchr' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'strchr' );
<?php
echo strchr('abcdef', 'cd'), "\n";
echo strchr('abcdef', 'g'), "\n";
@@ -92,9 +92,9 @@
CODE
cdef
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'strpos' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'strpos' );
<?php
echo strpos('abcdef', 'cd'), "\n";
echo strpos('abcdef', 'g'), "\n";
@@ -104,9 +104,9 @@
2
4
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'strstr' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'strstr' );
<?php
echo strstr('abcdef', 'cd'), "\n";
echo strstr('abcdef', 'g'), "\n";
@@ -114,25 +114,25 @@
CODE
cdef
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'strtolower' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'strtolower' );
<?php
echo strtolower('aBc'), "\n";
?>
CODE
abc
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'strtoupper' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'strtoupper' );
<?php
echo strtoupper('aBc'), "\n";
?>
CODE
ABC
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'substr' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'substr' );
<?php
echo substr('abcdef', 2), "\n";
echo substr('abcdef', 2, 2), "\n";
@@ -144,9 +144,9 @@
cd
ef
e
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'trim' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'trim' );
<?php
echo trim(' abc '), "\n";
echo trim(' '), "\n";
@@ -158,15 +158,15 @@
bc
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'ucfirst' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'ucfirst' );
<?php
echo ucfirst('abc'), "\n";
?>
CODE
Abc
-OUTPUT
+OUT
# Local Variables:
# mode: cperl
Modified: trunk/languages/pipp/t/php/tags.t
==============================================================================
--- trunk/languages/pipp/t/php/tags.t (original)
+++ trunk/languages/pipp/t/php/tags.t Fri Nov 28 01:57:14 2008
@@ -27,49 +27,49 @@
use Parrot::Test;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'short tags w/ close' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'short tags w/ close' );
<?echo "hello world\n";?>
CODE
hello world
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'short tags w/o close' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'short tags w/o close' );
<?echo "hello world\n";
CODE
hello world
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'short php tags w/ close' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'short php tags w/ close' );
<?php echo "hello world\n";
CODE
hello world
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'short echoing tags' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'short echoing tags' );
<?= "hello world\n";
CODE
hello world
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'clean script tags, single
quotes' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'clean script tags, single
quotes' );
<script language='php'> echo "hello world\n"; </script>
CODE
hello world
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'clean script tags, double
quotes' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'clean script tags, double
quotes' );
<script language="php"> echo "hello world\n"; </script>
CODE
hello world
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'broken script tag' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'broken script tag' );
<scriptlanguage="php"> echo "hello world\n"; </script>
CODE
<scriptlanguage="php"> echo "hello world\n"; </script>
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'messy script tags' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'messy script tags' );
<script
language =
'php'
@@ -78,7 +78,7 @@
</script >
CODE
hello world
-OUTPUT
+OUT
# Local Variables:
# mode: cperl
Modified: trunk/languages/pipp/t/php/type.t
==============================================================================
--- trunk/languages/pipp/t/php/type.t (original)
+++ trunk/languages/pipp/t/php/type.t Fri Nov 28 01:57:14 2008
@@ -27,7 +27,7 @@
use Test::More tests => 18;
use Parrot::Test;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'floatval()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'floatval()' );
<?php
echo floatval(TRUE), "\n";
echo floatval(NULL), "\n";
@@ -45,59 +45,59 @@
3.14
3.14
0
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype(TRUE)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gettype(TRUE)' );
<?php
echo gettype(TRUE), "\n";
?>
CODE
boolean
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype(NULL)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gettype(NULL)' );
<?php
echo gettype(NULL), "\n";
?>
CODE
NULL
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype(42)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gettype(42)' );
<?php
echo gettype(42), "\n";
?>
CODE
integer
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype(3.14)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gettype(3.14)' );
<?php
echo gettype(3.14), "\n";
?>
CODE
double
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype("str")' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gettype("str")' );
<?php
echo gettype('str'), "\n";
?>
CODE
string
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'gettype($array)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'gettype($array)' );
<?php
$hello['world'] = 'hi';
echo gettype($hello), "\n";
?>
CODE
array
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'intval()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'intval()' );
<?php
echo intval(TRUE), "\n";
echo intval(NULL), "\n";
@@ -121,49 +121,49 @@
3
3
0
-OUTPUT
+OUT
-language_output_like( 'Pipp', <<'CODE', <<'OUTPUT', 'is_bool() no args' );
+language_output_like( 'Pipp', <<'CODE', <<'OUT', 'is_bool() no args' );
<?php
echo is_bool(), "\n";
?>
CODE
/Only one argument expected/
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_bool(TRUE)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'is_bool(TRUE)' );
<?php
echo is_bool(TRUE), "\n";
?>
CODE
1
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_float(3.14)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'is_float(3.14)' );
<?php
echo is_float(3.14), "\n";
?>
CODE
1
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_long(42)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'is_long(42)' );
<?php
echo is_long(42), "\n";
?>
CODE
1
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_null(NULL)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'is_null(NULL)' );
<?php
echo is_null(NULL), "\n";
?>
CODE
1
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_numeric()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'is_numeric()' );
<?php
echo is_numeric(3), "\n";
echo is_numeric(3.14), "\n";
@@ -187,9 +187,9 @@
1
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_scalar()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'is_scalar()' );
<?php
echo is_scalar(NULL), "\n";
echo is_scalar(TRUE), "\n";
@@ -203,21 +203,21 @@
1
1
1
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'is_string("str")' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'is_string("str")' );
<?php
echo is_string('str'), "\n";
?>
CODE
1
-OUTPUT
+OUT
TODO:
{
local $TODO = 'update compiler';
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'settype()' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'settype()' );
<?php
$var = 3.14;
echo settype($var, 'int'), "\n";
@@ -226,17 +226,17 @@
CODE
1
3
-OUTPUT
+OUT
}
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'strval(TRUE)' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'strval(TRUE)' );
<?php
echo strval(TRUE), "\n";
?>
CODE
1
-OUTPUT
+OUT
# Local Variables:
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 01:57:14 2008
@@ -28,7 +28,7 @@
use Parrot::Test;
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'var_dump() with string
key', skip => 'excessive memory usage' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'var_dump() with string key',
skip => 'excessive memory usage' );
<?php
$foo['bar'] = 'asdf';
echo $foo['bar'];
@@ -40,9 +40,9 @@
["bar"]=>
string(4) "asdf"
}
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'var_dump() with int key',
skip => 'excessive memory usage' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'var_dump() with int key', skip
=> 'excessive memory usage' );
<?php
$twice[1] = 2;
echo $twice[1];
@@ -54,9 +54,9 @@
[1]=>
int(2)
}
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'increment' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'increment' );
<?php
$a = 10;
var_dump($a);
@@ -70,9 +70,9 @@
int(11)
int(11)
int(12)
-OUTPUT
+OUT
-language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'decrement' );
+language_output_is( 'Pipp', <<'CODE', <<'OUT', 'decrement' );
<?php
$a = 10;
var_dump($a);
@@ -86,7 +86,7 @@
int(9)
int(9)
int(8)
-OUTPUT
+OUT
# Local Variables:
# mode: cperl
