Author: jkeenan
Date: Fri Apr 20 15:59:00 2007
New Revision: 18291
Modified:
trunk/t/configure/02-messages.t
trunk/t/configure/03-steplist.t
Log:
Eliminate the BEGIN block used to define $topdir in favor of a simple 'use
lib' list.
Modified: trunk/t/configure/02-messages.t
==============================================================================
--- trunk/t/configure/02-messages.t (original)
+++ trunk/t/configure/02-messages.t Fri Apr 20 15:59:00 2007
@@ -5,22 +5,9 @@
use strict;
use warnings;
-
-BEGIN {
- use FindBin qw($Bin);
- use Cwd qw(cwd realpath);
- realpath($Bin) =~ m{^(.*\/parrot)\/.*$};
- our $topdir = $1;
- if ( defined $topdir ) {
- print "\nOK: Parrot top directory located\n";
- }
- else {
- $topdir = realpath($Bin) . "/../..";
- }
- unshift @INC, qq{$topdir/lib};
-}
-use Test::More tests => 10;
use Carp;
+use Test::More tests => 10;
+use lib qw( . lib ../lib ../../lib );
use_ok(
'Parrot::Configure::Messages', qw|
print_introduction
Modified: trunk/t/configure/03-steplist.t
==============================================================================
--- trunk/t/configure/03-steplist.t (original)
+++ trunk/t/configure/03-steplist.t Fri Apr 20 15:59:00 2007
@@ -5,22 +5,9 @@
use strict;
use warnings;
-
-BEGIN {
- use FindBin qw($Bin);
- use Cwd qw(cwd realpath);
- realpath($Bin) =~ m{^(.*\/parrot)\/.*$};
- our $topdir = $1;
- if ( defined $topdir ) {
- print "\nOK: Parrot top directory located\n";
- }
- else {
- $topdir = realpath($Bin) . "/../..";
- }
- unshift @INC, qq{$topdir/lib};
-}
use Test::More tests => 4;
use Carp;
+use lib qw( . lib ../lib ../../lib );
use_ok('Parrot::Configure::Step::List', qw|
get_steps_list
| );
