[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.9 and 1.10

version 1.9, 2010/07/13 03:27:06 version 1.10, 2010/07/13 04:23:48
Line 1 
Line 1 
 #!perl  #!perl
 package NetworkTests;  package NetworkTests;
   
 # $AFresh1: network_tests.t,v 1.8 2010/07/13 00:14:43 andrew Exp $  # $AFresh1: network_tests.t,v 1.9 2010/07/13 02:27:06 andrew Exp $
   
 use strict;  use strict;
 use warnings;  use warnings;
Line 47 
Line 47 
     );      );
     my %cmp = (      my %cmp = (
         single_line   => re('^[^\n]+$'),          single_line   => re('^[^\n]+$'),
         multi_line    => re('^.*$'),          multi_line    => re('(?xms:^.*$)'),
         digits        => re('^\d+$'),          digits        => re('^\d+$'),
         track         => any( 'Lovelace', 'Tesla', 'Bell', 'Hooper' ),          track         => any( 'Lovelace', 'Tesla', 'Bell', 'Hooper' ),
         area          => any('Engressia'),          area          => any('Engressia'),
Line 72 
Line 72 
                     }                      }
                 ),                  ),
             },              },
             { args => { user => 'user0' },              {   args   => { user => 'user0' },
                     expect => array_each(),                  expect => array_each(),
             },              },
         ],          ],
         speakers => [          speakers => [
             {   args   => undef,              {   args   => undef,
                 expect => array_each(                  expect => array_each(
                     {   name => $cmp{single_line},                      [   $cmp{single_line},
                         bio  => $cmp{multi_line},                          {   name => $cmp{single_line},
                     }                              bio  => $cmp{multi_line},
                           }
                       ]
                 ),                  ),
             },              },
         ],          ],
         talks => [          talks => [
             {   args   => undef,              {   args   => undef,
                 expect => array_each(                  expect => array_each(
                     {   abstract  => $cmp{single_line},                      {   abstract => $cmp{multi_line},
                         interests => array_each( $cmp{interests} ),                          speakers => array_each( $cmp{single_line} ),
                         speakers  => array_each( $cmp{single_line} ),                          time     => $cmp{single_line},
                         time      => $cmp{single_line},                          title    => $cmp{single_line},
                         title     => $cmp{multi_line},                          track    => $cmp{track},
                         track     => $cmp{track},  
                     }                      }
                 ),                  ),
             },              },
Line 106 
Line 107 
         users => [          users => [
             {   args   => undef,              {   args   => undef,
                 expect => array_each(                  expect => array_each(
                     {   interests => array_each( $cmp{interests} ),                      $cmp{single_line},
                         name      => $cmp{single_line},                      {   name => $cmp{single_line},
                         x         => $cmp{coordinate},  
                         y         => $cmp{coordinate},                          #interests => array_each( $cmp{interests} ),
                           #x         => $cmp{coordinate},
                           #y         => $cmp{coordinate},
                     }                      }
                 ),                  ),
             },              },
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>