develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
bernhard
Date:
January 23, 2009 12:35
Subject:
[svn:parrot] r35919 - trunk/languages/pipp/t/php
Message ID:
20090123203509.7DFD6CB9AE@x12.develooper.com
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About