[Openinteract-commits] CVS: SPOPS/t 20_gdbm.t,1.2,1.3

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

Update of /cvsroot/openinteract/SPOPS/t
In directory usw-pr-cvs1:/tmp/cvs-serv5480

Modified Files:
	20_gdbm.t 
Log Message:
changes to new(), initialize() failed some tests; working now


Index: 20_gdbm.t
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/t/20_gdbm.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 20_gdbm.t	2001/09/12 14:00:10	1.2
--- 20_gdbm.t	2001/10/23 12:15:33	1.3
***************
*** 4,8 ****
  
  use strict;
- 
  use constant GDBM_FILE => 't/test.gdbm';
  use constant NUM_TESTS => 15;
--- 4,7 ----
***************
*** 10,15 ****
  sub cleanup  { unlink GDBM_FILE }
  sub new_object {
!     eval { GDBMTest->new({ name    => 'MyProject', 
!                            version => 1.14, 
                             author  => 'La Choy (la...@cw...)' }) };
  }
--- 9,15 ----
  sub cleanup  { unlink GDBM_FILE }
  sub new_object {
!     eval { GDBMTest->new({ name    => 'MyProject',
!                            version => 1.14,
!                            url     => 'http://www.cwinters.com/',
                             author  => 'La Choy (la...@cw...)' }) };
  }
***************
*** 111,119 ****
          my $obj = eval { GDBMTest->fetch( 'MyProject-1.14' ) };
          ok( ! $@, 'Fetch object' );
!         ok( $obj->{name} eq 'MyProject', 'Fetch object (content check)' );
  
          my $new_obj = eval { $obj->clone({ name => 'YourProject', version => 1.02 }) };
          ok( ! $@, 'Clone object' );
!         ok( $new_obj->{name} ne $obj->{name}, 'Clone object (override content)' );
  
          eval { $new_obj->save };
--- 111,119 ----
          my $obj = eval { GDBMTest->fetch( 'MyProject-1.14' ) };
          ok( ! $@, 'Fetch object' );
!         is( $obj->{name}, 'MyProject', 'Fetch object (content check)' );
  
          my $new_obj = eval { $obj->clone({ name => 'YourProject', version => 1.02 }) };
          ok( ! $@, 'Clone object' );
!         isnt( $new_obj->{name}, $obj->{name}, 'Clone object (override content)' );
  
          eval { $new_obj->save };