Author: bernhard
Date: Thu Nov 27 10:42:23 2008
New Revision: 33271
Modified:
trunk/languages/pipp/src/common/php_basic.pir
trunk/languages/pipp/t/php/info.t
Log:
[Pipp] add incomplete implementation of get_include_path()
Modified: trunk/languages/pipp/src/common/php_basic.pir
==============================================================================
--- trunk/languages/pipp/src/common/php_basic.pir (original)
+++ trunk/languages/pipp/src/common/php_basic.pir Thu Nov 27 10:42:23 2008
@@ -148,13 +148,14 @@
=item C<string get_include_path()>
Get the current include_path configuration option
+Currently only the current include path is returned.
-NOT IMPLEMENTED.
+STILL INCOMPLETE.
=cut
.sub 'get_include_path'
- not_implemented()
+ .tailcall constant('DEFAULT_INCLUDE_PATH')
.end
=item C<int get_magic_quotes_gpc(void)>
Modified: trunk/languages/pipp/t/php/info.t
==============================================================================
--- trunk/languages/pipp/t/php/info.t (original)
+++ trunk/languages/pipp/t/php/info.t Thu Nov 27 10:42:23 2008
@@ -20,12 +20,10 @@
use strict;
use warnings;
-
use FindBin;
use lib "$FindBin::Bin/../../../../lib", "$FindBin::Bin/../../lib";
-use Test::More tests => 8;
-use Parrot::Test;
+use Parrot::Test tests => 9;
language_output_is( 'Pipp', <<'CODE', <<'OUTPUT', 'php_egg_logo_guid()' );
@@ -92,6 +90,12 @@
PHPE9568F35-D428-11d2-A769-00AA001ACF42
OUTPUT
+language_output_is( 'Pipp', <<'CODE', '.', 'get_include_path()' );
+<?php
+ echo get_include_path();
+?>
+CODE
+
# Local Variables:
# mode: cperl
