develooper 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;



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