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

[svn:parrot] r35990 - in trunk/languages: lazy-k/config/makefiles lazy-k/t t

From:
bernhard
Date:
January 25, 2009 03:34
Subject:
[svn:parrot] r35990 - in trunk/languages: lazy-k/config/makefiles lazy-k/t t
Message ID:
20090125113356.1779ACB9AE@x12.develooper.com
Author: bernhard
Date: Sun Jan 25 03:33:54 2009
New Revision: 35990

Modified:
   trunk/languages/lazy-k/config/makefiles/root.in
   trunk/languages/lazy-k/t/calc.t
   trunk/languages/lazy-k/t/cat.t
   trunk/languages/t/harness

Log:
[lazy-k] give up on unified languages testing for lazy-k, run tests in hll dir


Modified: trunk/languages/lazy-k/config/makefiles/root.in
==============================================================================
--- trunk/languages/lazy-k/config/makefiles/root.in	(original)
+++ trunk/languages/lazy-k/config/makefiles/root.in	Sun Jan 25 03:33:54 2009
@@ -50,4 +50,4 @@
 
 # testing
 test: build
-	cd .. && $(PERL) t/harness --languages=lazy-k
+	$(PERL) t/harness

Modified: trunk/languages/lazy-k/t/calc.t
==============================================================================
--- trunk/languages/lazy-k/t/calc.t	(original)
+++ trunk/languages/lazy-k/t/calc.t	Sun Jan 25 03:33:54 2009
@@ -1,4 +1,4 @@
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2009, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -24,16 +24,15 @@
 use FindBin;
 use lib "$FindBin::Bin/../../../lib";
 
-use Data::Dumper;
-use Test::More tests => 1;
-use Parrot::Config;
-use File::Spec();
+use Test::More       tests => 1;
+use Parrot::Config   qw(%PConfig);
+use File::Spec       ();
 
 my $is_win32  = $^O eq 'MSWin32';
 
-my $parrot    = File::Spec->catfile( File::Spec->updir(), $PConfig{test_prog} );
-my $lazy_k    = $parrot . q{ } . File::Spec->catfile( 'lazy-k', 'lazy.pbc' );
-my $source_fn = File::Spec->catfile( 'lazy-k', 'calc.lazy' ); 
+my $parrot    = File::Spec->catfile( File::Spec->updir(), File::Spec->updir(), $PConfig{test_prog} );
+my $lazy_k    = "$parrot lazy.pbc";
+my $source_fn = 'calc.lazy'; 
 
 # XXX This does not look portable.
 my $cmd;
@@ -45,5 +44,4 @@
     $cmd = qq{echo '1+2*3' | $lazy_k $source_fn};
 }
 
-# die Dumper( $cmd );
 is( `$cmd`, "7\n", 'calc.lazy' );

Modified: trunk/languages/lazy-k/t/cat.t
==============================================================================
--- trunk/languages/lazy-k/t/cat.t	(original)
+++ trunk/languages/lazy-k/t/cat.t	Sun Jan 25 03:33:54 2009
@@ -25,15 +25,15 @@
 use lib "$FindBin::Bin/../../../lib";
 
 use Data::Dumper;
-use Test::More tests => 1;
-use Parrot::Config;
-use File::Spec();
+use Test::More       tests => 1;
+use Parrot::Config   qw(%PConfig);
+use File::Spec       ();
 
 my $is_win32  = $^O eq 'MSWin32';
 
-my $parrot    = File::Spec->catfile( File::Spec->updir(), $PConfig{test_prog} );
-my $lazy_k    = $parrot . q{ } . File::Spec->catfile( 'lazy-k', 'lazy.pbc' );
-my $source_fn = File::Spec->catfile( 'lazy-k', 'cat.lazy' ); 
+my $parrot    = File::Spec->catfile( File::Spec->updir(), File::Spec->updir(), $PConfig{test_prog} );
+my $lazy_k    = "$parrot lazy.pbc";
+my $source_fn = 'cat.lazy'; 
 
 # XXX This does not look portable.
 my $cmd;

Modified: trunk/languages/t/harness
==============================================================================
--- trunk/languages/t/harness	(original)
+++ trunk/languages/t/harness	Sun Jan 25 03:33:54 2009
@@ -69,6 +69,7 @@
 # BASIC                No t/harness, two implementations
 # ecmascript           No t/harness
 # forth                No t/harness
+# lazy-k               path dependencies in test scripts
 # perl6                test scripts are written in Perl 6, not Perl 5
 # pheme                test scripts are written in Scheme, not Perl 5
 # PIR                  many test failures
@@ -86,7 +87,7 @@
               cola
               dotnet
               jako
-              lazy-k lisp lua
+              lisp lua
               ook
               parrot_compiler pipp punie
               regex



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