[svn:parrot] r18292 - trunk/t/configure

[jkeenan]

Author: jkeenan
Date: Fri Apr 20 15:59:43 2007
New Revision: 18292

Modified:
   trunk/t/configure/01-options.t

Log:
Simplify the BEGIN block used to identify $topdir.


Modified: trunk/t/configure/01-options.t
==============================================================================
--- trunk/t/configure/01-options.t      (original)
+++ trunk/t/configure/01-options.t      Fri Apr 20 15:59:43 2007
@@ -9,24 +9,16 @@
 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) . "/../..";
-    }
+    our $topdir = realpath($Bin) . "/../..";
     unshift @INC, qq{$topdir/lib};
 }
 use Test::More tests => 33;
 use Carp;
-use lib ("lib");
 use_ok(
     'Parrot::Configure::Options', qw|
         process_options
         get_valid_options
-        |
+    |
 );
 use_ok("Parrot::IO::Capture::Mini");