Author: bernhard
Date: Fri Jan 23 12:35:08 2009
New Revision: 35919
Added:
trunk/languages/pipp/t/php/dir.t (contents, props changed)
- copied, changed from r35918, /trunk/languages/pipp/t/php/info.t
Log:
[Pipp] Add t/php/dir.t with a single TODO test
Copied: trunk/languages/pipp/t/php/dir.t (from r35918,
/trunk/languages/pipp/t/php/info.t)
==============================================================================
--- /trunk/languages/pipp/t/php/info.t (original)
+++ trunk/languages/pipp/t/php/dir.t Fri Jan 23 12:35:08 2009
@@ -1,20 +1,20 @@
-# Copyright (C) 2008, The Perl Foundation.
+# Copyright (C) 2009, The Perl Foundation.
# $Id$
=head1 NAME
-t/php/info.t - Standard Library info
+t/php/dir.t - Standard Library dir
=head1 SYNOPSIS
- perl t/harness t/php/info.t
+ perl t/harness t/php/dir.t
=head1 DESCRIPTION
-Tests PHP Standard Library info
-(implemented in F<languages/pipp/src/common/php_info.pir>).
+Tests PHP Standard Library dir
+(implemented in F<languages/pipp/src/common/php_dir.pir>).
-See L<http://www.php.net/manual/en/ref.?.php>.
+See L<http://docs.php.net/manual/en/book.dir.php>.
=cut
@@ -23,79 +23,15 @@
use FindBin;
use lib "$FindBin::Bin/../../../../lib", "$FindBin::Bin/../../lib";
-use Parrot::Test tests => 9;
+use Parrot::Test tests => 1;
+use Parrot::Config qw( %PConfig );
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'php_egg_logo_guid()' );
+language_output_is( 'Pipp', <<'CODE', $PConfig{slash},
'dirname("/not_there")', todo => 'not yet' );
<?php
- echo php_egg_logo_guid(), "\n";
+ echo dirname("/not_there");
?>
CODE
-PHPE9568F36-D428-11d2-A769-00AA001ACF42
-OUT
-
-language_output_like( 'Pipp', <<'CODE', <<'OUT', 'php_logo_guid()' );
-<?php
- echo php_logo_guid(), "\n";
-?>
-CODE
-/PHPE9568F3[46]-D428-11d2-A769-00AA001ACF42/
-OUT
-
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'php_real_logo_guid()' );
-<?php
- echo php_real_logo_guid(), "\n";
-?>
-CODE
-PHPE9568F34-D428-11d2-A769-00AA001ACF42
-OUT
-
-language_output_like( 'Pipp', <<'CODE', <<'OUT', 'php_uname()' );
-<?php
- echo php_uname(), "\n";
-?>
-CODE
-/.+/
-OUT
-
-language_output_like( 'Pipp', <<'CODE', <<'OUT', 'php_uname("a")' );
-<?php
- echo php_uname('a'), "\n";
-?>
-CODE
-/.+/
-OUT
-
-language_output_like( 'Pipp', <<'CODE', <<'OUT', 'phpversion()' );
-<?php
- echo phpversion(), "\n";
-?>
-CODE
-/^5\.3/
-OUT
-
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'phpversion("ctype")' );
-<?php
- echo phpversion('ctype'), "\n";
-?>
-CODE
-
-OUT
-
-language_output_is( 'Pipp', <<'CODE', <<'OUT', 'zend_logo_guid()' );
-<?php
- echo zend_logo_guid(), "\n";
-?>
-CODE
-PHPE9568F35-D428-11d2-A769-00AA001ACF42
-OUT
-
-language_output_is( 'Pipp', <<'CODE', '.', 'get_include_path()' );
-<?php
- echo get_include_path();
-?>
-CODE
-
# Local Variables:
# mode: cperl
