===================================================================
RCS file: /cvs/HOPE/Net-OpenAMD/t/local_server.t,v
retrieving revision 1.9
retrieving revision 1.11
diff -u -r1.9 -r1.11
--- HOPE/Net-OpenAMD/t/local_server.t	2010/06/28 21:40:38	1.9
+++ HOPE/Net-OpenAMD/t/local_server.t	2010/07/01 18:59:55	1.11
@@ -1,5 +1,5 @@
 #!perl
-# $AFresh1: local_server.t,v 1.8 2010/06/28 20:34:14 andrew Exp $
+# $AFresh1: local_server.t,v 1.10 2010/06/30 05:30:17 andrew Exp $
 use Test::More;
 
 use strict;
@@ -16,12 +16,95 @@
     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 => 15;
     }
     require 'network_tests.t';
 }
 
+my %tests = (
+    location => [
+        {   args   => undef,
+            expect => [
+                {   'y'      => '83.1452331542969',
+                    'area'   => 'Engressia',
+                    'time'   => 2387,
+                    'user'   => 12983,
+                    'x'      => '46.7369918823242',
+                    'button' => 'False'
+                }
+            ],
+        },
+    ],
+    speakers => [
+        {   args   => undef,
+            expect => [
+                {   'name' => 'Johnny',
+                    'bio'  => 'Johnny\'s bio'
+                },
+            ],
+        },
+    ],
+    talks => [
+        {   args   => undef,
+            expect => [
+                {   'speakers'  => [ 'Judas', 'JohnnyX' ],
+                    'interests' => [ 'media', 'crypto' ],
+                    'time'      => '2008/7/18 13:00:00',
+                    'track'     => 'Hooper',
+                    'title' => 'Ancient Egyptian Music and DRM',
+                    'abstract' =>
+                        'A discussion of the development of musical notation, which was designed as a means of reproducing music while making it impossible for the general public to perform without permission.'
+                }
+            ],
+        },
+    ],
+    interests => [
+        {   args   => undef,
+            expect => [
+                'new tech',           'activism',
+                'radio',              'lockpicking',
+                'crypto',             'privacy',
+                'ethics',             'telephones',
+                'social engineering', 'hacker spaces',
+                'hardware hacking',   'nostalgia',
+                'communities',        'science',
+                'government',         'network security',
+                'malicious software', 'pen testing',
+                'web',                'niche hacks',
+                'media',
+            ],
+        },
+    ],
+    users => [
+        {   args   => undef,
+            expect => [
+                {   'name'      => 'JohnnyX',
+                    'x'         => '32.54091324',
+                    'y'         => '54.10958384',
+                    'interests' => [
+                        'new tech',           'radio',
+                        'lockpicking',        'crypto',
+                        'telephones',         'social engineering',
+                        'hacker spaces',      'hardware hacking',
+                        'nostalgia',          'communities',
+                        'science',            'network security',
+                        'malicious software', 'pen testing'
+                    ],
+                }
+            ]
+        },
+    ],
+    stats => [
+        {   args   => undef,
+            expect => qr/^Unused \s feature/xms,
+        },
+    ],
+);
+
 my $server = Test::Mojo::Server->new();
 $server->executable('test_server.pl');
 
@@ -31,7 +114,7 @@
 
 my $amd = Net::OpenAMD->new(
     { base_uri => 'http://127.0.0.1:' . $port . '/api/', } );
-NetworkTests::run_tests($amd);
+NetworkTests::run_tests( $amd, \%tests );
 
 $server->stop_server_ok('server stopped');