--- trunk/t/2_soap.t	2005/07/08 11:46:35	66
+++ trunk/t/2_soap.t	2005/07/08 17:00:20	67
@@ -9,18 +9,24 @@
 	use_ok('Nos');
 	use_ok('SOAP::Transport::HTTP');
 	use_ok('SOAP::Lite');
+	use_ok('Cwd');
 };
 
 my $list_name = 'SOAP test';
 
+my $aliases = Cwd::abs_path($0);
+$aliases =~ s#/[^/]*$#/#;
+$aliases .= 'aliases';
+
+ok($aliases, "using aliases file $aliases");
+
 ok(my $nos = new Nos::SOAP(
 	'dsn' => 'dbi:Pg:dbname=notices',
-	'aliases' => './t/aliases',
+	'aliases' => $aliases,
 ), "new");
 
 ok(my $daemon = new SOAP::Transport::HTTP::Daemon(LocalAddr => 'localhost')->dispatch_to('Nos::SOAP'), "SOAP daemon");
 
-
 # start server
 
 my $pid;
@@ -46,9 +52,9 @@
 # NewList
 
 ok(my $list_id = $soap->NewList({
-	list => $list_name,
-	from => 'SOAP list',
-	email => 'soap-test@example.com',
+		list => $list_name,
+		from => 'SOAP list',
+		email => 'soap-test@example.com',
 })->result, "NewList named");
 
 ok(my $list_id2 = $soap->NewList(
@@ -183,3 +189,4 @@
 ok(! kill(0, $pid), "child dead");
 
 exit 1;
+