===================================================================
RCS file: /cvs/HOPE/Net-OpenAMD/t/local_server.t,v
retrieving revision 1.5
retrieving revision 1.14
diff -u -r1.5 -r1.14
--- HOPE/Net-OpenAMD/t/local_server.t	2010/06/27 01:52:33	1.5
+++ HOPE/Net-OpenAMD/t/local_server.t	2010/07/17 13:12:32	1.14
@@ -1,6 +1,6 @@
 #!perl
-# $AFresh1: local_server.t,v 1.4 2010/06/26 16:33:33 andrew Exp $
-use Test::More;    # tests => 75;
+# $AFresh1: local_server.t,v 1.13 2010/07/13 03:37:47 andrew Exp $
+use Test::More;
 
 use strict;
 use warnings;
@@ -13,8 +13,16 @@
     use lib "$FindBin::Bin/../../mojo/lib";
 
     eval "use Test::Mojo::Server";
-    plan skip_all => "Test::Mojo::Server required for testing local server"
-        if $@;
+    if ($@) {
+        plan skip_all =>
+            "Test::Mojo::Server required for testing local server";
+    }
+    elsif ( $] < 5.01 ) {
+        plan skip_all => 'test_server.pl requires perl 5.10 or higher';
+    }
+    else {
+        plan tests => 18;
+    }
     require 'network_tests.t';
 }
 
@@ -26,9 +34,9 @@
 $server->server_ok('server running');
 
 my $amd = Net::OpenAMD->new(
-    { base_url => 'http://127.0.0.1:' . $port . '/api', } );
+    { base_uri => 'http://127.0.0.1:' . $port . '/api/', } );
 NetworkTests::run_tests($amd);
 
 $server->stop_server_ok('server stopped');
 
-done_testing();
+#done_testing();