4 files changed, 11 insertions, 12 deletions
diff --git a/tests/server/admin-t.in b/tests/server/admin-t.in
index 11d2883..570dc52 100644
--- a/tests/server/admin-t.in
+++ b/tests/server/admin-t.in
@@ -3,7 +3,7 @@
 # Tests for the wallet-admin dispatch code.
 #
 # Written by Russ Allbery <rra@stanford.edu>
-# Copyright 2008, 2009 Board of Trustees, Leland Stanford Jr. University
+# Copyright 2008, 2009, 2010 Board of Trustees, Leland Stanford Jr. University
 #
 # See LICENSE for licensing terms.
 
@@ -82,7 +82,7 @@ sub report_owners {
 # Wallet::Admin package has already been loaded.
 package main;
 $INC{'Wallet/Admin.pm'} = 'FAKE';
-eval { do '@abs_top_srcdir@/server/wallet-admin' };
+eval { do "$ENV{SOURCE}/../server/wallet-admin" };
 
 # Run the wallet admin client.  This fun hack takes advantage of the fact that
 # the wallet admin client is written in Perl so that we can substitute our own
diff --git a/tests/server/backend-t.in b/tests/server/backend-t.in
index 0c6ac60..2fc6a53 100644
--- a/tests/server/backend-t.in
+++ b/tests/server/backend-t.in
@@ -3,7 +3,7 @@
 # Tests for the wallet-backend dispatch code.
 #
 # Written by Russ Allbery <rra@stanford.edu>
-# Copyright 2006, 2007, 2008, 2009
+# Copyright 2006, 2007, 2008, 2009, 2010
 #     Board of Trustees, Leland Stanford Jr. University
 #
 # See LICENSE for licensing terms.
@@ -163,7 +163,7 @@ package main;
 $INC{'Wallet/Server.pm'} = 'FAKE';
 my $OUTPUT;
 our $SYSLOG = \$OUTPUT;
-eval { do '@abs_top_srcdir@/server/wallet-backend' };
+eval { do "$ENV{SOURCE}/../server/wallet-backend" };
 
 # Run the wallet backend.  This fun hack takes advantage of the fact that the
 # wallet backend is written in Perl so that we can substitute our own
diff --git a/tests/server/keytab-t.in b/tests/server/keytab-t.in
index f74267d..2a0ceed 100644
--- a/tests/server/keytab-t.in
+++ b/tests/server/keytab-t.in
@@ -1,10 +1,9 @@
 #!/usr/bin/perl -w
-# $Id: backend-t.in 3547 2007-09-14 23:18:48Z rra $
 #
 # Tests for the keytab-backend dispatch code.
 #
 # Written by Russ Allbery <rra@stanford.edu>
-# Copyright 2006, 2007 Board of Trustees, Leland Stanford Jr. University
+# Copyright 2006, 2007, 2010 Board of Trustees, Leland Stanford Jr. University
 #
 # See LICENSE for licensing terms.
 
@@ -16,9 +15,9 @@ use Test::More tests => 63;
 # Load the keytab-backend code and override various settings.
 my $OUTPUT;
 $SYSLOG = \$OUTPUT;
-eval { do '@abs_top_srcdir@/server/keytab-backend' };
-$CONFIG = '@abs_top_srcdir@/tests/data/allow-extract';
-$KADMIN = '@abs_top_srcdir@/tests/data/fake-kadmin';
+eval { do "$ENV{SOURCE}/../server/keytab-backend" };
+$CONFIG = "$ENV{SOURCE}/data/allow-extract";
+$KADMIN = "$ENV{SOURCE}/data/fake-kadmin";
 $TMP = '.';
 
 # Run the keytab backend.
diff --git a/tests/server/pod-t.in b/tests/server/pod-t.in
index 4575ecb..52d81eb 100644
--- a/tests/server/pod-t.in
+++ b/tests/server/pod-t.in
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
 #
-# tests/server/pod-t -- Test POD formatting for client documentation.
+# Test POD formatting for client documentation.
 #
 # Written by Russ Allbery <rra@stanford.edu>
-# Copyright 2008 Board of Trustees, Leland Stanford Jr. University
+# Copyright 2008, 2010 Board of Trustees, Leland Stanford Jr. University
 #
 # See LICENSE for licensing terms.
 
@@ -17,6 +17,6 @@ eval 'use Test::Pod 1.00';
 SKIP: {
     skip 'Test::Pod 1.00 required for testing POD', $total if $@;
     for my $file (@files) {
-        pod_file_ok ("@abs_top_srcdir@/server/$file", "server/$file");
+        pod_file_ok ("$ENV{SOURCE}/../server/$file", "server/$file");
     }
 }