[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.13 and 1.14

version 1.13, 2010/07/14 02:54:03 version 1.14, 2010/07/17 12:46:47
Line 1 
Line 1 
 #!perl  #!perl
 package NetworkTests;  package NetworkTests;
   
 # $AFresh1: network_tests.t,v 1.12 2010/07/13 06:10:31 andrew Exp $  # $AFresh1: network_tests.t,v 1.13 2010/07/14 01:54:03 andrew Exp $
   
 use strict;  use strict;
 use warnings;  use warnings;
Line 14 
Line 14 
   
 if ( !caller() ) {  if ( !caller() ) {
     if ( $ENV{'NETWORK_TESTS'} ) {      if ( $ENV{'NETWORK_TESTS'} ) {
         plan tests => 31;          plan tests => 14;
     }      }
     else {      else {
         plan skip_all =>          plan skip_all =>
             'Network test.  Set $ENV{NETWORK_TESTS} to a true value to run.';              'Network test.  Set $ENV{NETWORK_TESTS} to a true value to run.';
     }      }
   
     my $amd      my $amd = Net::OpenAMD->new();
         = Net::OpenAMD->new( { base_uri => 'http://api.hope.net/api/', } );  
     run_tests($amd);      run_tests($amd);
   
     #done_testing();      #done_testing();
Line 54 
Line 53 
         area          => any('Engressia'),          area          => any('Engressia'),
         interests     => any(@interests),          interests     => any(@interests),
         all_interests => bag(@interests),          all_interests => bag(@interests),
         coordinate    => re('^\d\d\.\d+$'),          coordinate    => re('^\d{1,2}\.\d+$'),
         boolean => any( 'True', 'False' ),          boolean => any( 'True', 'False' ),
     );      );
   
Line 78 
Line 77 
     ];      ];
   
     $cmp{location} = superhashof(      $cmp{location} = superhashof(
         {   area => $cmp{area},          {   #area => $cmp{area},
             user => $cmp{digits},              user => $cmp{single_line},
   
             #button => $cmp{boolean},              #button => $cmp{boolean},
             x => $cmp{coordinate},              x => $cmp{coordinate},
Line 95 
Line 94 
                 expect => array_each( $cmp{location} ),                  expect => array_each( $cmp{location} ),
             },              },
             {   args   => { user => 'user0' },              {   args   => { user => 'user0' },
                 expect => array_each(),                  expect => qr/^Invalid \s JSON/xms,
             },              },
             {   args   => { user => 'user0', limit => 5 },              {   args   => { user => 'user0', limit => 5 },
                 expect => array_each(),                  expect => qr/^Invalid \s JSON/xms,
             },              },
             {   args   => { area => 'Engressa' },              {   args   => { area => 'Lovelace' },
                 expect => array_each(),                  expect => array_each( $cmp{location} ),
             },              },
         ],          ],
         speakers => [          speakers => [
Line 171 
Line 170 
                 like( $@, $test->{expect}, "AMD->$method($test->{args})" );                  like( $@, $test->{expect}, "AMD->$method($test->{args})" );
             }              }
             elsif ( ref $test->{expect} ) {              elsif ( ref $test->{expect} ) {
                 is( $@, '', "AMD->$method($test->{args})" );                  if ($@) {
                 cmp_deeply( $result, $test->{expect},                      is( $@, '', "AMD->$method($test->{args})" );
                           "AMD->$method($test->{args}) - "                  }
                         . 'got expected result' );                  else {
                       cmp_deeply( $result, $test->{expect},
                                 "AMD->$method($test->{args}) - "
                               . 'got expected result' );
                   }
             }              }
             else {              else {
                 is( $@, $test->{expect}, "AMD->$method($test->{args})" );                  is( $@, $test->{expect}, "AMD->$method($test->{args})" );
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>