[BACK]Return to network_tests.t CVS log [TXT][DIR] Up to [local] / HOPE / Net-OpenAMD / t

Diff for /HOPE/Net-OpenAMD/t/network_tests.t between version 1.7 and 1.8

version 1.7, 2010/06/30 19:04:20 version 1.8, 2010/07/13 01:14:43
Line 1 
Line 1 
 #!perl  #!perl
 package NetworkTests;  package NetworkTests;
   
 # $AFresh1: network_tests.t,v 1.6 2010/06/30 05:30:17 andrew Exp $  # $AFresh1: network_tests.t,v 1.7 2010/06/30 18:04:20 andrew Exp $
   
 use strict;  use strict;
 use warnings;  use warnings;
   
 use Test::More;  use Test::More;
 use Net::OpenAMD;  use Net::OpenAMD;
   use Data::Dumper;
   
 if ( !caller() ) {  if ( !caller() ) {
     if ( $ENV{'NETWORK_TESTS'} ) {      if ( $ENV{'NETWORK_TESTS'} ) {
         plan tests => 11;          plan tests => 13;
     }      }
     else {      else {
         plan skip_all =>          plan skip_all =>
Line 22 
Line 23 
         location => [          location => [
             {   args   => undef,              {   args   => undef,
                 expect => [                  expect => [
                     {   'y'    => '7.33745396305',                      {   'y'    => '43.4861220266',
                         'user' => 'user6',                          'user' => 'user6',
                         'x'    => '41.0283030135'                          'x'    => '18.2468971683'
                     },                      },
                     {   'y'    => '36.5212503999',                      {   'y'    => '36.5212503999',
                         'user' => 'user7',                          'user' => 'user7',
Line 104 
Line 105 
                     }                      }
                 ],                  ],
             },              },
               {   args   => [ user => 'user0' ],
                   expect => [],
               },
         ],          ],
         speakers => [          speakers => [
             {   args   => undef,              {   args   => undef,
                 expect => [                  expect => [
                       [   '9000',
                           {   'name' => 'The Cheshire Catalyst',
                               'bio'  => 'Jacob\'s bio'
                           }
                       ],
                     [   'user0',                      [   'user0',
                         {   'name' => 'Jacob',                          {   'name' => 'Jacob',
                             'bio'  => 'Jacob\'s bio'                              'bio'  => 'Jacob\'s bio'
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>