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