Front page | perl.cvs.parrot |
Postings from December 2008
[svn:parrot] r34256 - in trunk/languages/lua/t: . pmc
From:
fperrad
Date:
December 22, 2008 13:14
Subject:
[svn:parrot] r34256 - in trunk/languages/lua/t: . pmc
Message ID:
20081222211351.51BCECBA12@x12.develooper.com
Author: fperrad
Date: Mon Dec 22 13:13:47 2008
New Revision: 34256
Modified:
trunk/languages/lua/t/alarm.t
trunk/languages/lua/t/assign.t
trunk/languages/lua/t/base64.t
trunk/languages/lua/t/basic.t
trunk/languages/lua/t/bc.t
trunk/languages/lua/t/bit.t
trunk/languages/lua/t/bitlib.t
trunk/languages/lua/t/boolean.t
trunk/languages/lua/t/closure.t
trunk/languages/lua/t/complex.t
trunk/languages/lua/t/constructor.t
trunk/languages/lua/t/coroutine.t
trunk/languages/lua/t/debug.t
trunk/languages/lua/t/examples.t
trunk/languages/lua/t/expr.t
trunk/languages/lua/t/forlist.t
trunk/languages/lua/t/fornum.t
trunk/languages/lua/t/function.t
trunk/languages/lua/t/functions.t
trunk/languages/lua/t/gl.t
trunk/languages/lua/t/harness
trunk/languages/lua/t/if.t
trunk/languages/lua/t/io.t
trunk/languages/lua/t/iterator.t
trunk/languages/lua/t/lexico.t
trunk/languages/lua/t/lfs.t
trunk/languages/lua/t/lpeg.t
trunk/languages/lua/t/luad.t
trunk/languages/lua/t/markdown.t
trunk/languages/lua/t/math.t
trunk/languages/lua/t/mathx.t
trunk/languages/lua/t/md5.t
trunk/languages/lua/t/metatable.t
trunk/languages/lua/t/nil.t
trunk/languages/lua/t/number.t
trunk/languages/lua/t/object.t
trunk/languages/lua/t/os.t
trunk/languages/lua/t/package.t
trunk/languages/lua/t/pmc/boolean.t
trunk/languages/lua/t/pmc/function.t
trunk/languages/lua/t/pmc/nil.t
trunk/languages/lua/t/pmc/number.t
trunk/languages/lua/t/pmc/string.t
trunk/languages/lua/t/pmc/table.t
trunk/languages/lua/t/pmc/thread.t
trunk/languages/lua/t/pmc/userdata.t
trunk/languages/lua/t/random.t
trunk/languages/lua/t/regex.t
trunk/languages/lua/t/repeat.t
trunk/languages/lua/t/scope.t
trunk/languages/lua/t/sha1.t
trunk/languages/lua/t/shootout.t
trunk/languages/lua/t/standalone.t
trunk/languages/lua/t/string.t
trunk/languages/lua/t/strings.t
trunk/languages/lua/t/struct.t
trunk/languages/lua/t/table.t
trunk/languages/lua/t/tables.t
trunk/languages/lua/t/test-from-lua.t
trunk/languages/lua/t/test_lex.t
trunk/languages/lua/t/threads.t
trunk/languages/lua/t/userdata.t
trunk/languages/lua/t/uuid.t
trunk/languages/lua/t/while.t
Log:
[Lua] Test
- now, work with a correct pragma 'use lib'
Modified: trunk/languages/lua/t/alarm.t
==============================================================================
--- trunk/languages/lua/t/alarm.t (original)
+++ trunk/languages/lua/t/alarm.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/alarm.t
+ % perl t/alarm.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Test::More;
Modified: trunk/languages/lua/t/assign.t
==============================================================================
--- trunk/languages/lua/t/assign.t (original)
+++ trunk/languages/lua/t/assign.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/assign.t
+ % perl t/assign.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 10;
use Test::More;
Modified: trunk/languages/lua/t/base64.t
==============================================================================
--- trunk/languages/lua/t/base64.t (original)
+++ trunk/languages/lua/t/base64.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/base64.t
+ % perl t/base64.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Test::More;
Modified: trunk/languages/lua/t/basic.t
==============================================================================
--- trunk/languages/lua/t/basic.t (original)
+++ trunk/languages/lua/t/basic.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/basic.t
+ % perl t/basic.t
=head1 DESCRIPTION
@@ -23,7 +23,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 54;
use Test::More;
Modified: trunk/languages/lua/t/bc.t
==============================================================================
--- trunk/languages/lua/t/bc.t (original)
+++ trunk/languages/lua/t/bc.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/bc.t
+ % perl t/bc.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Parrot::Config;
Modified: trunk/languages/lua/t/bit.t
==============================================================================
--- trunk/languages/lua/t/bit.t (original)
+++ trunk/languages/lua/t/bit.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/bit.t
+ % perl t/bit.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Test::More;
Modified: trunk/languages/lua/t/bitlib.t
==============================================================================
--- trunk/languages/lua/t/bitlib.t (original)
+++ trunk/languages/lua/t/bitlib.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/bitlib.t
+ % perl t/bitlib.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Test::More;
Modified: trunk/languages/lua/t/boolean.t
==============================================================================
--- trunk/languages/lua/t/boolean.t (original)
+++ trunk/languages/lua/t/boolean.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/boolean.t
+ % perl t/boolean.t
=head1 DESCRIPTION
@@ -17,7 +17,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 24;
use Test::More;
Modified: trunk/languages/lua/t/closure.t
==============================================================================
--- trunk/languages/lua/t/closure.t (original)
+++ trunk/languages/lua/t/closure.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/closure.t
+ % perl t/closure.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 4;
use Test::More;
Modified: trunk/languages/lua/t/complex.t
==============================================================================
--- trunk/languages/lua/t/complex.t (original)
+++ trunk/languages/lua/t/complex.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/complex.t
+ % perl t/complex.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 26;
use Parrot::Config;
Modified: trunk/languages/lua/t/constructor.t
==============================================================================
--- trunk/languages/lua/t/constructor.t (original)
+++ trunk/languages/lua/t/constructor.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/constructor.t
+ % perl t/constructor.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 6;
use Test::More;
Modified: trunk/languages/lua/t/coroutine.t
==============================================================================
--- trunk/languages/lua/t/coroutine.t (original)
+++ trunk/languages/lua/t/coroutine.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/coroutine.t
+ % perl t/coroutine.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 8;
use Test::More;
Modified: trunk/languages/lua/t/debug.t
==============================================================================
--- trunk/languages/lua/t/debug.t (original)
+++ trunk/languages/lua/t/debug.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/debug.t
+ % perl t/debug.t
=head1 DESCRIPTION
@@ -25,7 +25,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 10;
use Test::More;
Modified: trunk/languages/lua/t/examples.t
==============================================================================
--- trunk/languages/lua/t/examples.t (original)
+++ trunk/languages/lua/t/examples.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/examples.t
+ % perl t/examples.t
=head1 DESCRIPTION
@@ -19,7 +19,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 8;
use Test::More;
Modified: trunk/languages/lua/t/expr.t
==============================================================================
--- trunk/languages/lua/t/expr.t (original)
+++ trunk/languages/lua/t/expr.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/expr.t
+ % perl t/expr.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 13;
use Test::More;
Modified: trunk/languages/lua/t/forlist.t
==============================================================================
--- trunk/languages/lua/t/forlist.t (original)
+++ trunk/languages/lua/t/forlist.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/forlist.t
+ % perl t/forlist.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 6;
use Test::More;
Modified: trunk/languages/lua/t/fornum.t
==============================================================================
--- trunk/languages/lua/t/fornum.t (original)
+++ trunk/languages/lua/t/fornum.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/fornum.t
+ % perl t/fornum.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 14;
use Test::More;
Modified: trunk/languages/lua/t/function.t
==============================================================================
--- trunk/languages/lua/t/function.t (original)
+++ trunk/languages/lua/t/function.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/function.t
+ % perl t/function.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 16;
use Test::More;
Modified: trunk/languages/lua/t/functions.t
==============================================================================
--- trunk/languages/lua/t/functions.t (original)
+++ trunk/languages/lua/t/functions.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/functions.t
+ % perl t/functions.t
=head1 DESCRIPTION
@@ -17,7 +17,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 48;
use Test::More;
Modified: trunk/languages/lua/t/gl.t
==============================================================================
--- trunk/languages/lua/t/gl.t (original)
+++ trunk/languages/lua/t/gl.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/gl.t
+ % perl t/gl.t
=head1 DESCRIPTION
@@ -21,7 +21,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Test::More;
Modified: trunk/languages/lua/t/harness
==============================================================================
--- trunk/languages/lua/t/harness (original)
+++ trunk/languages/lua/t/harness Mon Dec 22 13:13:47 2008
@@ -38,26 +38,38 @@
use strict;
use warnings;
-use lib '..';
+use FindBin ();
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
-use Cwd();
-use Data::Dumper;
-use File::Spec;
+use Cwd ();
+use File::Spec ();
+use TAP::Harness 3.12; # support closures for the 'exec' option
+use TAP::Harness::Archive 0.12;
+use Parrot::Config qw( %PConfig );
use Getopt::Long;
-use Test::Harness();
+use Parrot::Harness::Smoke;
+use Parrot::Test;
my $language = 'lua';
-my $opt_files;
-my ($use_orig_lua, $use_luac_pl, $use_lua_pbc);
+my ( $files_flag, $master_flag, $send_to_smolder_flag, $archive_flag, $verbose_flag );
+my ( $use_orig_lua, $use_luac_pl, $use_lua_pbc );
GetOptions(
- 'files' => \$opt_files,
+ 'files' => \$files_flag,
+ 'master' => \$master_flag, # unused, but passed by languages/t/harness
+ 'send-to-smolder' => \$send_to_smolder_flag,
+ 'archive' => \$archive_flag,
+ 'verbose' => \$verbose_flag,
+ # Lua specific part
'use-lua' => \$use_orig_lua,
'use-luac-pl' => \$use_luac_pl,
'use-lua-pbc' => \$use_lua_pbc,
);
-if ( $opt_files ) {
+my $verbosity = $verbose_flag ? 1 : $ENV{HARNESS_VERBOSE};
+$verbosity ||= 0;
+
+if ( $files_flag ) {
# Only the Makefile in 'parrot/languages' uses --files
my $dir = File::Spec->catfile( $language, 't' );
@@ -104,7 +116,43 @@
$ENV{PARROT_LUA_TEST_PROG} = 'lua.pbc';
}
- Test::Harness::runtests(@files) if scalar(@files);
+ my $exec_sub
+ = sub {
+ my ( $harness, $test_file ) = @_;
+
+ # all other directories contain test scripts written in Perl
+ return [ $PConfig{perl}, $test_file ];
+ };
+
+ if ( $archive_flag ) {
+ my %env_data = Parrot::Harness::Smoke::collect_test_environment_data();
+
+ my $report_file = ['lua_test_run.tar.gz'];
+ my $harness = TAP::Harness::Archive->new(
+ {
+ exec => $exec_sub,
+ verbosity => $verbosity,
+ archive => $report_file->[0],
+ merge => 1,
+ extra_properties => \%env_data,
+ }
+ );
+ $harness->runtests(@files);
+
+ if ( $send_to_smolder_flag ) {
+ $env_data{report_file} = $report_file;
+ $env_data{project_id} = 10;
+ Parrot::Harness::Smoke::send_archive_to_smolder(%env_data);
+ }
+ } else {
+ my $harness = TAP::Harness->new(
+ {
+ exec => $exec_sub,
+ verbosity => $verbosity,
+ }
+ );
+ $harness->runtests(@files);
+ }
}
=head1 HISTORY
Modified: trunk/languages/lua/t/if.t
==============================================================================
--- trunk/languages/lua/t/if.t (original)
+++ trunk/languages/lua/t/if.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/if.t
+ % perl t/if.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 5;
use Test::More;
Modified: trunk/languages/lua/t/io.t
==============================================================================
--- trunk/languages/lua/t/io.t (original)
+++ trunk/languages/lua/t/io.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/io.t
+ % perl t/io.t
=head1 DESCRIPTION
@@ -25,7 +25,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 41;
use Test::More;
Modified: trunk/languages/lua/t/iterator.t
==============================================================================
--- trunk/languages/lua/t/iterator.t (original)
+++ trunk/languages/lua/t/iterator.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/iterator.t
+ % perl t/iterator.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 8;
use Test::More;
Modified: trunk/languages/lua/t/lexico.t
==============================================================================
--- trunk/languages/lua/t/lexico.t (original)
+++ trunk/languages/lua/t/lexico.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/lexico.t
+ % perl t/lexico.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 3;
use Test::More;
Modified: trunk/languages/lua/t/lfs.t
==============================================================================
--- trunk/languages/lua/t/lfs.t (original)
+++ trunk/languages/lua/t/lfs.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/lfs.t
+ % perl t/lfs.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 18;
use Test::More;
Modified: trunk/languages/lua/t/lpeg.t
==============================================================================
--- trunk/languages/lua/t/lpeg.t (original)
+++ trunk/languages/lua/t/lpeg.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/lpeg.t
+ % perl t/lpeg.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 14;
use Test::More;
Modified: trunk/languages/lua/t/luad.t
==============================================================================
--- trunk/languages/lua/t/luad.t (original)
+++ trunk/languages/lua/t/luad.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/luad.t
+ % perl t/luad.t
=head1 DESCRIPTION
@@ -23,7 +23,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Test::More;
@@ -77,7 +77,7 @@
OUT
language_output_is( 'Luad', <<'CODE', <<'OUT', 'loading constants' );
-local a,b,d,e
+local a,b,d,e
local c=0
CODE
; source chunk: luad_3.luac
@@ -180,7 +180,7 @@
language_output_is( 'Luad', <<'CODE', <<'OUT', 'upvalues and globals' );
local a;
function b()
- a = 1
+ a = 1
return a
end
CODE
@@ -599,7 +599,7 @@
OUT
language_output_is( 'Luad', <<'CODE', <<'OUT', 'jumps and calls' );
-local a = function(...)
+local a = function(...)
local a,b,c = ...
end
CODE
Modified: trunk/languages/lua/t/markdown.t
==============================================================================
--- trunk/languages/lua/t/markdown.t (original)
+++ trunk/languages/lua/t/markdown.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/markdown.t
+ % perl t/markdown.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Test::More;
Modified: trunk/languages/lua/t/math.t
==============================================================================
--- trunk/languages/lua/t/math.t (original)
+++ trunk/languages/lua/t/math.t Mon Dec 22 13:13:47 2008
@@ -9,7 +9,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/math.t
+ % perl t/math.t
=head1 DESCRIPTION
@@ -26,7 +26,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 32;
use Test::More;
Modified: trunk/languages/lua/t/mathx.t
==============================================================================
--- trunk/languages/lua/t/mathx.t (original)
+++ trunk/languages/lua/t/mathx.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/mathx.t
+ % perl t/mathx.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 37;
use Parrot::Config;
Modified: trunk/languages/lua/t/md5.t
==============================================================================
--- trunk/languages/lua/t/md5.t (original)
+++ trunk/languages/lua/t/md5.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/md5.t
+ % perl t/md5.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Parrot::Config;
Modified: trunk/languages/lua/t/metatable.t
==============================================================================
--- trunk/languages/lua/t/metatable.t (original)
+++ trunk/languages/lua/t/metatable.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/metatable.t
+ % perl t/metatable.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 29;
use Test::More;
Modified: trunk/languages/lua/t/nil.t
==============================================================================
--- trunk/languages/lua/t/nil.t (original)
+++ trunk/languages/lua/t/nil.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/nil.t
+ % perl t/nil.t
=head1 DESCRIPTION
@@ -17,7 +17,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 24;
use Test::More;
Modified: trunk/languages/lua/t/number.t
==============================================================================
--- trunk/languages/lua/t/number.t (original)
+++ trunk/languages/lua/t/number.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/number.t
+ % perl t/number.t
=head1 DESCRIPTION
@@ -17,7 +17,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 53;
use Test::More;
Modified: trunk/languages/lua/t/object.t
==============================================================================
--- trunk/languages/lua/t/object.t (original)
+++ trunk/languages/lua/t/object.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/object.t
+ % perl t/object.t
=head1 DESCRIPTION
@@ -19,7 +19,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 9;
use Test::More;
Modified: trunk/languages/lua/t/os.t
==============================================================================
--- trunk/languages/lua/t/os.t (original)
+++ trunk/languages/lua/t/os.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/os.t
+ % perl t/os.t
=head1 DESCRIPTION
@@ -25,7 +25,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 26;
use Test::More;
Modified: trunk/languages/lua/t/package.t
==============================================================================
--- trunk/languages/lua/t/package.t (original)
+++ trunk/languages/lua/t/package.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/package.t
+ % perl t/package.t
=head1 DESCRIPTION
@@ -23,7 +23,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 16;
use Test::More;
Modified: trunk/languages/lua/t/pmc/boolean.t
==============================================================================
--- trunk/languages/lua/t/pmc/boolean.t (original)
+++ trunk/languages/lua/t/pmc/boolean.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../../lib t/pmc/boolean.t
+ % perl t/pmc/boolean.t
=head1 DESCRIPTION
@@ -19,6 +19,8 @@
use strict;
use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
use Parrot::Test tests => 8;
use Test::More;
Modified: trunk/languages/lua/t/pmc/function.t
==============================================================================
--- trunk/languages/lua/t/pmc/function.t (original)
+++ trunk/languages/lua/t/pmc/function.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib lua/t/pmc/function.t
+ % perl t/pmc/function.t
=head1 DESCRIPTION
@@ -19,6 +19,8 @@
use strict;
use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
use Parrot::Test tests => 20;
use Test::More;
Modified: trunk/languages/lua/t/pmc/nil.t
==============================================================================
--- trunk/languages/lua/t/pmc/nil.t (original)
+++ trunk/languages/lua/t/pmc/nil.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../../lib t/pmc/nil.t
+ % perl t/pmc/nil.t
=head1 DESCRIPTION
@@ -19,6 +19,8 @@
use strict;
use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
use Parrot::Test tests => 10;
use Test::More;
Modified: trunk/languages/lua/t/pmc/number.t
==============================================================================
--- trunk/languages/lua/t/pmc/number.t (original)
+++ trunk/languages/lua/t/pmc/number.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../../lib t/pmc/number.t
+ % perl t/pmc/number.t
=head1 DESCRIPTION
@@ -19,6 +19,8 @@
use strict;
use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
use Parrot::Test tests => 13;
use Test::More;
Modified: trunk/languages/lua/t/pmc/string.t
==============================================================================
--- trunk/languages/lua/t/pmc/string.t (original)
+++ trunk/languages/lua/t/pmc/string.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../../lib t/pmc/string.t
+ % perl t/pmc/string.t
=head1 DESCRIPTION
@@ -19,6 +19,8 @@
use strict;
use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
use Parrot::Test tests => 15;
use Test::More;
Modified: trunk/languages/lua/t/pmc/table.t
==============================================================================
--- trunk/languages/lua/t/pmc/table.t (original)
+++ trunk/languages/lua/t/pmc/table.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../../lib t/pmc/table.t
+ % perl t/pmc/table.t
=head1 DESCRIPTION
@@ -19,6 +19,8 @@
use strict;
use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
use Parrot::Test tests => 14;
use Test::More;
Modified: trunk/languages/lua/t/pmc/thread.t
==============================================================================
--- trunk/languages/lua/t/pmc/thread.t (original)
+++ trunk/languages/lua/t/pmc/thread.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../../lib t/pmc/thread.t
+ % perl t/pmc/thread.t
=head1 DESCRIPTION
@@ -19,6 +19,8 @@
use strict;
use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
use Parrot::Test tests => 9;
use Test::More;
Modified: trunk/languages/lua/t/pmc/userdata.t
==============================================================================
--- trunk/languages/lua/t/pmc/userdata.t (original)
+++ trunk/languages/lua/t/pmc/userdata.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../../lib t/pmc/userdata.t
+ % perl t/pmc/userdata.t
=head1 DESCRIPTION
@@ -19,6 +19,8 @@
use strict;
use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
use Parrot::Test tests => 9;
use Test::More;
Modified: trunk/languages/lua/t/random.t
==============================================================================
--- trunk/languages/lua/t/random.t (original)
+++ trunk/languages/lua/t/random.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/random.t
+ % perl t/random.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Test::More;
Modified: trunk/languages/lua/t/regex.t
==============================================================================
--- trunk/languages/lua/t/regex.t (original)
+++ trunk/languages/lua/t/regex.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/regex.t
+ % perl t/regex.t
=head1 DESCRIPTION
@@ -45,7 +45,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 150;
use Test::More;
Modified: trunk/languages/lua/t/repeat.t
==============================================================================
--- trunk/languages/lua/t/repeat.t (original)
+++ trunk/languages/lua/t/repeat.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/repeat.t
+ % perl t/repeat.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 2;
use Test::More;
Modified: trunk/languages/lua/t/scope.t
==============================================================================
--- trunk/languages/lua/t/scope.t (original)
+++ trunk/languages/lua/t/scope.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/scope.t
+ % perl t/scope.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 3;
use Test::More;
Modified: trunk/languages/lua/t/sha1.t
==============================================================================
--- trunk/languages/lua/t/sha1.t (original)
+++ trunk/languages/lua/t/sha1.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/sha1.t
+ % perl t/sha1.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Parrot::Config;
Modified: trunk/languages/lua/t/shootout.t
==============================================================================
--- trunk/languages/lua/t/shootout.t (original)
+++ trunk/languages/lua/t/shootout.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/shootout.t
+ % perl t/shootout.t
=head1 DESCRIPTION
@@ -19,7 +19,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 19;
use Test::More;
Modified: trunk/languages/lua/t/standalone.t
==============================================================================
--- trunk/languages/lua/t/standalone.t (original)
+++ trunk/languages/lua/t/standalone.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2007, The Perl Foundation.
+# Copyright (C) 2007-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/standalone.t
+ % perl t/standalone.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 22;
use Test::More;
Modified: trunk/languages/lua/t/string.t
==============================================================================
--- trunk/languages/lua/t/string.t (original)
+++ trunk/languages/lua/t/string.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/string.t
+ % perl t/string.t
=head1 DESCRIPTION
@@ -25,7 +25,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 34;
use Test::More;
Modified: trunk/languages/lua/t/strings.t
==============================================================================
--- trunk/languages/lua/t/strings.t (original)
+++ trunk/languages/lua/t/strings.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/strings.t
+ % perl t/strings.t
=head1 DESCRIPTION
@@ -17,7 +17,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 51;
use Test::More;
Modified: trunk/languages/lua/t/struct.t
==============================================================================
--- trunk/languages/lua/t/struct.t (original)
+++ trunk/languages/lua/t/struct.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/struct.t
+ % perl t/struct.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 3;
use Test::More;
Modified: trunk/languages/lua/t/table.t
==============================================================================
--- trunk/languages/lua/t/table.t (original)
+++ trunk/languages/lua/t/table.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/table.t
+ % perl t/table.t
=head1 DESCRIPTION
@@ -25,7 +25,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 18;
use Test::More;
Modified: trunk/languages/lua/t/tables.t
==============================================================================
--- trunk/languages/lua/t/tables.t (original)
+++ trunk/languages/lua/t/tables.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/tables.t
+ % perl t/tables.t
=head1 DESCRIPTION
@@ -19,7 +19,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 9;
use Test::More;
Modified: trunk/languages/lua/t/test-from-lua.t
==============================================================================
--- trunk/languages/lua/t/test-from-lua.t (original)
+++ trunk/languages/lua/t/test-from-lua.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2007, The Perl Foundation.
+# Copyright (C) 2007-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/test-from-lua.t
+ % perl t/test-from-lua.t
=head1 DESCRIPTION
@@ -43,7 +43,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 12;
use Test::More;
@@ -88,7 +88,7 @@
$code = Parrot::Test::slurp_file(File::Spec->catfile( @dir, 'echo.lua' ));
language_output_like( 'lua', $code, << 'OUTPUT', 'echo', params => 'arg1 arg2' );
/^
-0\tlanguages.lua.t.test-from-lua_3\.(lua|pir|luac\.pir)\n
+0\t.*languages.lua.t.test-from-lua_3\.(lua|pir|luac\.pir)\n
1\targ1\n
2\targ2\n
/x
Modified: trunk/languages/lua/t/test_lex.t
==============================================================================
--- trunk/languages/lua/t/test_lex.t (original)
+++ trunk/languages/lua/t/test_lex.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2007, The Perl Foundation.
+# Copyright (C) 2007-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/test_lex.t
+ % perl t/test_lex.t
=head1 DESCRIPTION
@@ -23,7 +23,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Test::More;
Modified: trunk/languages/lua/t/threads.t
==============================================================================
--- trunk/languages/lua/t/threads.t (original)
+++ trunk/languages/lua/t/threads.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/threads.t
+ % perl t/threads.t
=head1 DESCRIPTION
@@ -17,7 +17,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 24;
use Test::More;
Modified: trunk/languages/lua/t/userdata.t
==============================================================================
--- trunk/languages/lua/t/userdata.t (original)
+++ trunk/languages/lua/t/userdata.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/userdata.t
+ % perl t/userdata.t
=head1 DESCRIPTION
@@ -17,7 +17,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 24;
use Test::More;
Modified: trunk/languages/lua/t/uuid.t
==============================================================================
--- trunk/languages/lua/t/uuid.t (original)
+++ trunk/languages/lua/t/uuid.t Mon Dec 22 13:13:47 2008
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/uuid.t
+ % perl t/uuid.t
=head1 DESCRIPTION
@@ -20,7 +20,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test;
use Test::More;
Modified: trunk/languages/lua/t/while.t
==============================================================================
--- trunk/languages/lua/t/while.t (original)
+++ trunk/languages/lua/t/while.t Mon Dec 22 13:13:47 2008
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
# $Id$
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
- % perl -I../lib -Ilua/t lua/t/while.t
+ % perl t/while.t
=head1 DESCRIPTION
@@ -22,7 +22,7 @@
use strict;
use warnings;
use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
use Parrot::Test tests => 4;
use Test::More;
-
[svn:parrot] r34256 - in trunk/languages/lua/t: . pmc
by fperrad