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

[svn:parrot] r34251 - trunk/languages/WMLScript/t/Parrot/Test

From:
fperrad
Date:
December 22, 2008 12:51
Subject:
[svn:parrot] r34251 - trunk/languages/WMLScript/t/Parrot/Test
Message ID:
20081222205113.1757DCBA12@x12.develooper.com
Author: fperrad
Date: Mon Dec 22 12:51:11 2008
New Revision: 34251

Modified:
   trunk/languages/WMLScript/t/Parrot/Test/WMLScript.pm

Log:
[WMLScript] Test
- now, work with absolute pathname

Modified: trunk/languages/WMLScript/t/Parrot/Test/WMLScript.pm
==============================================================================
--- trunk/languages/WMLScript/t/Parrot/Test/WMLScript.pm	(original)
+++ trunk/languages/WMLScript/t/Parrot/Test/WMLScript.pm	Mon Dec 22 12:51:11 2008
@@ -1,14 +1,8 @@
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 package Parrot::Test::WMLScript;
 
-use strict;
-use warnings;
-
-use Data::Dumper;
-use File::Basename;
-
 require Parrot::Test;
 
 =head1 NAME
@@ -27,6 +21,11 @@
 
 =cut
 
+use strict;
+use warnings;
+
+use File::Spec;
+
 sub new {
     return bless {};
 }
@@ -51,15 +50,15 @@
         my $params   = $options{params}   || q{};
 
         # flatten filenames (don't use directories)
-        my $lang_fn = Parrot::Test::per_test( '.wmls',  $count );
-        my $bin_fn  = Parrot::Test::per_test( '.wmlsc', $count );
-        my $out_fn  = Parrot::Test::per_test( '.out',   $count );
+        my $lang_fn = File::Spec->rel2abs( Parrot::Test::per_test( '.wmls',  $count ) );
+        my $bin_fn  = File::Spec->rel2abs( Parrot::Test::per_test( '.wmlsc', $count ) );
+        my $out_fn  = File::Spec->rel2abs( Parrot::Test::per_test( '.out',   $count ) );
 
         # This does not create byte code, but WMLScript code
         Parrot::Test::write_code_to_file( $code, $lang_fn );
 
         Parrot::Test::run_command(
-            "wmlsc $cflags languages/${lang_fn}",
+            "wmlsc $cflags ${lang_fn}",
             CD     => $self->{relpath},
             STDOUT => $out_fn,
             STDERR => $out_fn,
@@ -67,9 +66,9 @@
 
         my @test_prog = (
 
-            #            "wmlsc $cflags languages/${lang_fn}",
-            #            "$self->{parrot} languages/WMLScript/wmls2pir.pir languages/${bin_fn}",
-            "$self->{parrot} languages/WMLScript/wmlsi.pir languages/${bin_fn} $function $params",
+            #            "wmlsc $cflags ${lang_fn}",
+            #            "$self->{parrot} languages/WMLScript/wmls2pir.pir ${bin_fn}",
+            "$self->{parrot} languages/WMLScript/wmlsi.pir ${bin_fn} $function $params",
         );
 
         # STDERR is written into same output file



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