[Openinteract-commits] CVS: OpenInteract2/t action.t,1.6,1.7

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/t
In directory sc8-pr-cvs1:/tmp/cvs-serv25107

Modified Files:
	action.t 
Log Message:
add more param_add tests

Index: action.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/action.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** action.t	30 Apr 2003 13:36:36 -0000	1.6
--- action.t	30 Apr 2003 13:45:02 -0000	1.7
***************
*** 7,11 ****
  require 'utils.pl';
  use SPOPS::Secure qw( :level );
! use Test::More  tests => 42;
  
  require_ok( 'OpenInteract2::Action' );
--- 7,11 ----
  require 'utils.pl';
  use SPOPS::Secure qw( :level );
! use Test::More  tests => 48;
  
  require_ok( 'OpenInteract2::Action' );
***************
*** 54,68 ****
  
  ok( $empty->param_add( city => 'Des Moines' ),
!     '...add value to exiting key' );
  my @cities_a = $empty->param( 'city' );
  is( $cities_a[0], 'Ottumwa',
      '...got first of multiple param (list context)' );
! is( $cities_a[1], 'Des Moines',
!     '...got second of multiple param (list context)' );
  my $cities_s = $empty->param( 'city' );
! is( $cities_s->[0], 'Ottumwa',
!     '...got first of multiple param (scalar context)' );
! is( $cities_s->[1], 'Des Moines',
      '...got second of multiple param (scalar context)' );
  
  ok( $empty->param_clear( 'position' ),
--- 54,82 ----
  
  ok( $empty->param_add( city => 'Des Moines' ),
!     '...add single value to exiting key' );
! ok( $empty->param_add( city => 'Buffalo', 'Boulder' ),
!     '..add multiple values to existing key' );
  my @cities_a = $empty->param( 'city' );
+ is( scalar @cities_a, 4,
+     '...got correct number of entries from multiple param (list context)' );
  is( $cities_a[0], 'Ottumwa',
      '...got first of multiple param (list context)' );
! is( $cities_a[3], 'Boulder',
!     '...got last of multiple param (list context)' );
  my $cities_s = $empty->param( 'city' );
! is( scalar @{ $cities_s }, 4,
!     '...got correct number of entries from multiple param (scalar context)' );
! is( $cities_s->[1],  'Des Moines',
      '...got second of multiple param (scalar context)' );
+ is( $cities_s->[2], 'Buffalo',
+     '...got third of multiple param (scalar context)' );
+ 
+ ok( $empty->param_add( rock => 'granite', 'gneiss' ),
+     '...add multiple values to new key' );
+ my @rocks = $empty->param( 'rock' );
+ is( scalar @rocks, 2,
+     '...got correct number of values from new key (list context)' );
+ is( scalar @{ $empty->param( 'rock' ) }, 2,
+     '...got correct number of values from new key (scalar context)' );
  
  ok( $empty->param_clear( 'position' ),