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)" );
}
|
