[svn:parrot] r18500 - trunk/t/postconfigure

[jkeenan]

Author: jkeenan
Date: Thu May 10 18:49:26 2007
New Revision: 18500

Modified:
   trunk/t/postconfigure/01-data_slurp.t

Log:
Simplify the 'use lib' statement.  Get rid of the FindBin stuff that gives
headaches to people whose top-level directory isn't named Parrot.


Modified: trunk/t/postconfigure/01-data_slurp.t
==============================================================================
--- trunk/t/postconfigure/01-data_slurp.t       (original)
+++ trunk/t/postconfigure/01-data_slurp.t       Thu May 10 18:49:26 2007
@@ -6,23 +6,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 => 30;
 use Carp;
-use Data::Dumper;
-$Data::Dumper::Indent=1;
+use lib qw( . lib ../lib ../../lib );
 use Parrot::BuildUtil;
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );