--- trunk/t/2_soap.t	2005/07/08 17:00:20	67
+++ trunk/t/2_soap.t	2005/08/01 08:59:36	68
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 36;
+use Test::More tests => 38;
 
 BEGIN {
 	use_ok('Nos');
@@ -12,6 +12,7 @@
 	use_ok('Cwd');
 };
 
+my $debug = 0;
 my $list_name = 'SOAP test';
 
 my $aliases = Cwd::abs_path($0);
@@ -20,7 +21,7 @@
 
 ok($aliases, "using aliases file $aliases");
 
-ok(my $nos = new Nos::SOAP(
+ok(new Nos::SOAP(
 	'dsn' => 'dbi:Pg:dbname=notices',
 	'aliases' => $aliases,
 ), "new");
@@ -49,6 +50,8 @@
 	->uri('http://localhost/Nos/SOAP/')
 	->proxy($daemon->url);
 
+$soap->on_debug(sub{print "# CLIENT ",@_}) if ($debug);
+
 # NewList
 
 ok(my $list_id = $soap->NewList({