develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34195 - in trunk: . languages/pipp/src/common languages/pipp/t languages/pipp/t/embed

From:
bernhard
Date:
December 21, 2008 04:52
Subject:
[svn:parrot] r34195 - in trunk: . languages/pipp/src/common languages/pipp/t languages/pipp/t/embed
Message ID:
20081221125157.C8A14CBA12@x12.develooper.com
Author: bernhard
Date: Sun Dec 21 04:51:56 2008
New Revision: 34195

Added:
   trunk/languages/pipp/t/embed/
   trunk/languages/pipp/t/embed/eval_string.t
Modified:
   trunk/MANIFEST
   trunk/languages/pipp/src/common/pipp.pir
   trunk/languages/pipp/t/harness

Log:
Add dummy for 'eval_string'.


Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST	(original)
+++ trunk/MANIFEST	Sun Dec 21 04:51:56 2008
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Dec 21 11:44:48 2008 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sun Dec 21 12:24:07 2008 UT
 #
 # See tools/dev/install_files.pl for documentation on the
 # format of this file.
@@ -2365,6 +2365,7 @@
 languages/pipp/src/pmc/phpnull.pmc                          [pipp]
 languages/pipp/src/pmc/phpresource.pmc                      [pipp]
 languages/pipp/src/pmc/phpstring.pmc                        [pipp]
+languages/pipp/t/embed/eval_string.t                        [pipp]
 languages/pipp/t/harness                                    [pipp]
 languages/pipp/t/in_php/01_sea_only.t                       [pipp]
 languages/pipp/t/in_php/02_sanity.t                         [pipp]

Modified: trunk/languages/pipp/src/common/pipp.pir
==============================================================================
--- trunk/languages/pipp/src/common/pipp.pir	(original)
+++ trunk/languages/pipp/src/common/pipp.pir	Sun Dec 21 04:51:56 2008
@@ -12,8 +12,6 @@
 
    ./pipp t.php
 
-   ./pipp --run-nqp        t.nqp
-
 =head1 DESCRIPTION
 
 pipp.pbc is the driver for Pipp.
@@ -94,7 +92,15 @@
 
 .end
 
-.sub pipp :main
+# TODO: call 'pipp'
+.sub 'eval_string'
+
+   say '# eval_string() was called'
+   
+   .return (1)
+.end
+
+.sub 'pipp' :main
     .param pmc argv
 
     .local string prog, rest

Added: trunk/languages/pipp/t/embed/eval_string.t
==============================================================================
--- (empty file)
+++ trunk/languages/pipp/t/embed/eval_string.t	Sun Dec 21 04:51:56 2008
@@ -0,0 +1,46 @@
+# Copyright (C) 2008, The Perl Foundation.
+# $Id: null.t 34021 2008-12-17 13:41:30Z Whiteknight $
+
+=head1 NAME
+
+t/embed/eval_string.t - Testing the PhpNull PMC
+
+=head1 SYNOPSIS
+
+    % perl t/harness t/embed/eval_string.t
+
+=head1 DESCRIPTION
+
+Tests the sub 'eval_string' used for supporting embedding Pipp in other applications.
+
+=cut
+
+.sub '_load' :anon :init :load
+
+    load_bytecode 'pipp.pbc'
+
+.end
+
+.sub 'main' :main
+    .include "include/test_more.pir"
+    plan(1)
+
+    ok( 1, 'no tests implemented yet')
+    # TODO:
+    # find sub 'eval_string'
+    .local pmc eval_string_sub
+    .local int ret
+    eval_string_sub = get_hll_global [ 'Pipp' ], 'eval_string'
+    # call it with test output
+    eval_string_sub()
+
+    # define a function
+    # call it from here
+.end
+
+# Local Variables:
+#   mode: pir
+#   cperl-indent-level: 4
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Modified: trunk/languages/pipp/t/harness
==============================================================================
--- trunk/languages/pipp/t/harness	(original)
+++ trunk/languages/pipp/t/harness	Sun Dec 21 04:51:56 2008
@@ -60,7 +60,7 @@
     # Only the Makefile in 'parrot/languages' uses --files for unified testing
     my $dir = File::Spec->catfile( $hll, 't' );
     # unified testing can't handle test scripts written in PHP
-    my @files = grep { ! m/in_php/ && ! m/pmc/ } glob( File::Spec->catfile( $dir, '*/*.t' ) );
+    my @files = grep { ! m!in_php|pmc|embed! } glob( File::Spec->catfile( $dir, '*/*.t' ) );
     print join( "\n", @files );
     print "\n" if scalar(@files);
 }
@@ -99,6 +99,9 @@
         = sub {
               my ( $harness, $test_file ) = @_;
 
+              # the directory t/embed contains only PIR test files
+              return [ "$path_to_parrot/parrot$PConfig{exe}", $test_file ] if $test_file =~ m!t/embed/.*[.]t$!;
+
               # the directory t/pmc contains only PIR test files
               return [ "$path_to_parrot/parrot$PConfig{exe}", $test_file ] if $test_file =~ m!t/pmc/.*[.]t$!;
 



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