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

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

Update of /cvsroot/openinteract/OpenInteract2/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3834/t

Modified Files:
	config_package_changes.t 
Log Message:
OIN-66: fix spacing/display issues when generating Changes file after reading in a previous one; this includes ensuring that empty comments aren't spaced oddly and word-wrapping works properly

Index: config_package_changes.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/config_package_changes.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** config_package_changes.t	25 May 2004 00:13:30 -0000	1.6
--- config_package_changes.t	27 Sep 2004 04:16:07 -0000	1.7
***************
*** 24,28 ****
  
      my @all_entries = $changes->entries;
!     is( scalar @all_entries, 17, "All entries fetched" );
  
      is( $all_entries[0]->{version}, '2.03', 'First entry version (file)' );
--- 24,28 ----
  
      my @all_entries = $changes->entries;
!     is( scalar @all_entries, 19, "All entries fetched" );
  
      is( $all_entries[0]->{version}, '2.03', 'First entry version (file)' );
***************
*** 30,35 ****
      is( $all_entries[-1]->{version}, '1.50', 'Last entry version (file)' );
      is( $all_entries[-1]->{date}, 'Tue Apr  2 00:36:48 EST 2002', 'Last entry date (file)' );
!     is( $all_entries[4]->{version}, '1.62', 'Middle entry version (file)' );
!     is( $all_entries[4]->{date}, 'Wed Feb 26 06:55:17 EST 2003', 'Middle entry date (file)' );
  
      my ( $new_entry ) = $changes->latest(1);
--- 30,35 ----
      is( $all_entries[-1]->{version}, '1.50', 'Last entry version (file)' );
      is( $all_entries[-1]->{date}, 'Tue Apr  2 00:36:48 EST 2002', 'Last entry date (file)' );
!     is( $all_entries[4]->{version}, '1.64', 'Middle entry version (file)' );
!     is( $all_entries[4]->{date}, 'Wed Mar 4 17:12:29 EST 2003', 'Middle entry date (file)' );
  
      my ( $new_entry ) = $changes->latest(1);
***************
*** 63,66 ****
--- 63,68 ----
      is( $before_entries[3]->{version}, '1.57', "Entries before version, last (file)" );
  
+     $changes->write_config( 'foo' );
+ 
      chdir( $pwd );
  }
***************
*** 73,81 ****
  
      my @all_entries = $changes->entries;
!     is( scalar @all_entries, 17, "All entries fetched" );
  
      is( $all_entries[0]->{version}, '2.03', "First entry version (dir)" );
      is( $all_entries[-1]->{version}, '1.50', "Last entry version (dir)" );
!     is( $all_entries[4]->{version}, '1.62', "Middle entry version (dir)" );
  
      my ( $new_entry ) = $changes->latest(1);
--- 75,83 ----
  
      my @all_entries = $changes->entries;
!     is( scalar @all_entries, 19, "All entries fetched" );
  
      is( $all_entries[0]->{version}, '2.03', "First entry version (dir)" );
      is( $all_entries[-1]->{version}, '1.50', "Last entry version (dir)" );
!     is( $all_entries[4]->{version}, '1.64', "Middle entry version (dir)" );
  
      my ( $new_entry ) = $changes->latest(1);
***************
*** 90,103 ****
  
      my @since_entries = $changes->since( '1.51' );
!     is( scalar @since_entries, 16, "Entries since version (dir)" );
      is( $since_entries[0]->{version}, '2.03', 'Entries since version, first (dir)' );
      is( $since_entries[-1]->{version}, '1.51', 'Entries since version, last (dir)' );
  
      my @before_entries = $changes->before( '2.00' );
!     is( scalar @before_entries, 14, "Entries before version (dir)" );
      is( $before_entries[0]->{version}, '2.00', "Entries before version, first (dir)" );
!     is( $before_entries[1]->{version}, '1.62', "Entries before version, first (dir)" );
!     is( $before_entries[2]->{version}, '1.61', "Entries before version, third (dir)" );
!     is( $before_entries[3]->{version}, '1.60', "Entries before version, last (dir)" );
  }
  
--- 92,105 ----
  
      my @since_entries = $changes->since( '1.51' );
!     is( scalar @since_entries, 18, "Entries since version (dir)" );
      is( $since_entries[0]->{version}, '2.03', 'Entries since version, first (dir)' );
      is( $since_entries[-1]->{version}, '1.51', 'Entries since version, last (dir)' );
  
      my @before_entries = $changes->before( '2.00' );
!     is( scalar @before_entries, 16, "Entries before version (dir)" );
      is( $before_entries[0]->{version}, '2.00', "Entries before version, first (dir)" );
!     is( $before_entries[1]->{version}, '1.64', "Entries before version, first (dir)" );
!     is( $before_entries[2]->{version}, '1.63', "Entries before version, third (dir)" );
!     is( $before_entries[3]->{version}, '1.62', "Entries before version, last (dir)" );
  }