added: Ability to enable / disable archiving per Collaboration System. fixed Mech tests again

This commit is contained in:
Doug Bell 2008-04-28 02:07:56 +00:00
parent 3316f2a0f4
commit aae6a32df4
6 changed files with 50 additions and 2 deletions

View file

@ -65,7 +65,17 @@ for my $i ( 0 .. 5 ) {
$versionTag->commit;
# Override some settings to make things easier to test
my %oldSettings;
# userFunctionStyleId
$oldSettings{ userFunctionStyleId } = $session->setting->get( 'userFunctionStyleId' );
$session->setting->set( 'userFunctionStyleId', 'PBtmpl0000000000000132' );
# specialState
$oldSettings{ specialState } = $session->setting->get( 'specialState' );
$session->setting->set( 'specialState', '' );
my ( $mech );
my $baseUrl = 'http://' . $session->config->get('sitename')->[0];
#----------------------------------------------------------------------------
# Tests
@ -79,8 +89,7 @@ if ( !$mech->success ) {
plan skip_all => "Cannot load URL '$baseUrl'. Will not test.";
}
plan tests => 2;
plan tests => 1;
#----------------------------------------------------------------------------
# Test www_viewRss
@ -114,4 +123,7 @@ cmp_deeply(
# Cleanup
END {
$versionTag->rollback();
for my $key ( keys %oldSettings ) {
$session->setting->set( $key, $oldSettings{ $key } );
}
}