[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.3 and 1.15

version 1.3, 2010/06/26 17:50:40 version 1.15, 2010/07/17 13:10:48
Line 1 
Line 1 
 #!perl  #!perl
 package NetworkTests;  package NetworkTests;
   
 # $AFresh1: network_tests.t,v 1.2 2010/06/26 16:47:01 andrew Exp $  # $AFresh1: network_tests.t,v 1.14 2010/07/17 11:46:47 andrew Exp $
   
 use strict;  use strict;
 use warnings;  use warnings;
   
 use Test::More;  use Test::More;
   use Test::Deep;
 use Net::OpenAMD;  use Net::OpenAMD;
   
   #use Data::Dumper;
   
 if ( !caller() ) {  if ( !caller() ) {
     if ( $ENV{'NETWORK_TESTS'} ) {      if ( $ENV{'NETWORK_TESTS'} ) {
           plan tests => 14;
         # plan tests => ??;  
     }      }
     else {      else {
         plan skip_all => "Set env NETWORK_TESTS to test";          plan skip_all =>
               'Network test.  Set $ENV{NETWORK_TESTS} to a true value to run.';
     }      }
   
     my $amd = Net::OpenAMD->new();      my $amd = Net::OpenAMD->new();
     run_tests($amd);      run_tests($amd);
   
     done_testing();      #done_testing();
 }  }
   
 1;  1;
Line 29 
Line 32 
 sub run_tests {  sub run_tests {
     my ($amd) = @_;      my ($amd) = @_;
   
       my @interests = (
           "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"
       );
       my %cmp = (
           single_line   => re('^[^\n]+$'),
           multi_line    => re('(?xms:^.*$)'),
           digits        => re('^\d+$'),
           track         => any( 'Lovelace', 'Tesla', 'Bell', 'Hooper' ),
           area          => any('Engressia'),
           interests     => any(@interests),
           all_interests => bag(@interests),
           coordinate    => re('^\d{1,2}\.\d+$'),
           boolean => any( 'True', 'False' ),
       );
   
       $cmp{user} = [
           $cmp{single_line},
           superhashof(
               {   name => $cmp{single_line},
   
                   #interests => array_each( $cmp{interests} ),
                   #x         => $cmp{coordinate},
                   #y         => $cmp{coordinate},
               }
           ),
       ];
   
       $cmp{speaker} = [
           $cmp{single_line},
           {   name => $cmp{single_line},
               bio  => $cmp{multi_line},
           }
       ];
   
       $cmp{location} = superhashof(
           {   #area => $cmp{area},
               user => $cmp{single_line},
   
               #button => $cmp{boolean},
               x => $cmp{coordinate},
               y => $cmp{coordinate},
   
               #time   => $cmp{single_line},
           }
       );
   
     my %tests = (      my %tests = (
         location => [          location => [
             {   args   => undef,              {   args   => undef,
                 expect => {},                  expect => array_each( $cmp{location} ),
             },              },
               {   args   => { user => 'user0' },
                   expect => qr/^Invalid \s JSON|$/xms,
               },
               {   args   => { user => 'user0', limit => 5 },
                   expect => qr/^Invalid \s JSON|$/xms,
               },
               {   args   => { area => 'Lovelace' },
                   expect => array_each( $cmp{location} ),
               },
         ],          ],
         speakers => [          speakers => [
             {   args   => undef,              {   args   => undef,
                 expect => {},                  expect => array_each( $cmp{speaker} ),
             },              },
               {   args => { name => 'The Cheshire Catalyst' },
                   expect => array_each( $cmp{speaker} ),
               },
         ],          ],
         talks => [          talks => [
             {   args   => undef,              {   args   => undef,
                 expect => {},                  expect => array_each(
                       {   abstract => $cmp{multi_line},
                           speakers => array_each( $cmp{single_line} ),
                           time     => $cmp{single_line},
                           title    => $cmp{single_line},
                           track    => $cmp{track},
                       }
                   ),
             },              },
               {   args   => { interests => 'lockpicking' },
                   expect => array_each(
                       {   abstract => $cmp{multi_line},
                           speakers => array_each( $cmp{single_line} ),
                           time     => $cmp{single_line},
                           title    => $cmp{single_line},
                           track    => $cmp{track},
   
                           # interests => 'lockpicking',
                       }
                   ),
               },
         ],          ],
         interests => [          interests => [
             {   args   => undef,              {   args   => undef,
                 expect => {},                  expect => $cmp{all_interests},
             },              },
         ],          ],
         users => [          users => [
             {   args   => undef,              {   args   => undef,
                 expect => {},                  expect => array_each( $cmp{user} ),
             },              },
               {   args   => { user => 'user0' },
                   expect => array_each( $cmp{user} ),
               },
               {   args   => { user => 'user0', limit => 20 },
                   expect => array_each( $cmp{user} ),
               },
               {   args   => { interests => 'lockpicking' },
                   expect => array_each( $cmp{user} ),
               },
         ],          ],
         stats => [          stats => [
             {   args   => undef,              {   args   => undef,
                 expect => {},                  expect => qr/^Unused \s feature/xms,
             },              },
         ],          ],
     );      );
Line 67 
Line 166 
             no warnings 'uninitialized';              no warnings 'uninitialized';
             my $result;              my $result;
             eval { $result = $amd->$method( $test->{args} ) };              eval { $result = $amd->$method( $test->{args} ) };
             is( $@,      undef,           "AMD->$method($test->{args})" );              if ( ref $test->{expect} eq 'Regexp' ) {
             is( $result, $test->{expect}, 'got expected result' );                  like( $@, $test->{expect}, "AMD->$method($test->{args})" );
               }
               elsif ( ref $test->{expect} ) {
                   if ($@) {
                       is( $@, '', "AMD->$method($test->{args})" );
                   }
                   else {
                       cmp_deeply( $result, $test->{expect},
                                 "AMD->$method($test->{args}) - "
                               . 'got expected result' );
                   }
               }
               else {
                   is( $@, $test->{expect}, "AMD->$method($test->{args})" );
               }
         }          }
     }      }
 }  }
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.15
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>