Permalink
Browse files

[lazy-k] give up on unified languages testing for lazy-k, run tests i…

…n hll dir

git-svn-id: http://svn.perl.org/parrot/trunk@35990 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent c82620f commit befa66496a6ab294153782f16b164a01f47a0a94 bernhard committed Jan 25, 2009
Showing with 14 additions and 16 deletions.
  1. +1 −1 config/makefiles/root.in
  2. +7 −9 t/calc.t
  3. +6 −6 t/cat.t
View
@@ -50,4 +50,4 @@ realclean: clean
# testing
test: build
- cd .. && $(PERL) t/harness --languages=lazy-k
+ $(PERL) t/harness
View
@@ -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 warnings;
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 @@ else {
$cmd = qq{echo '1+2*3' | $lazy_k $source_fn};
}
-# die Dumper( $cmd );
is( `$cmd`, "7\n", 'calc.lazy' );
View
12 t/cat.t
@@ -25,15 +25,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', '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;

0 comments on commit befa664

Please sign in to comment.