remove colons from END blocks, so they actually act like END blocks

This commit is contained in:
Colin Kuskie 2008-05-09 18:14:14 +00:00
parent 62ab00480b
commit 9c9da302f1
11 changed files with 11 additions and 11 deletions

View file

@ -701,7 +701,7 @@ diag $assetProps->{title};
isnt( $rootAsset->get('title'), $funkyTitle, 'get returns a safe copy of the Asset properties');
END: {
END {
$session->config->set( 'extrasURL', $origExtras);
$session->config->set( 'uploadsURL', $origUploads);
$session->setting->set('urlExtension', $origUrlExtension);

View file

@ -86,6 +86,6 @@ if ($cookieName eq "") {
$config->set('privateArray', ['a', 'b', 'c']);
cmp_bag($config->get('privateArray'), ['a', 'b', 'c'], 'set: array, not scalar');
END: {
END {
$config->delete('privateArray');
}

View file

@ -173,7 +173,7 @@ sub installCollateral {
);
}
END: {
END {
unlink File::Spec->catfile(WebGUI::Test->lib, qw/WebGUI Help HelpTest.pm/);
}

View file

@ -87,7 +87,7 @@ sub installPigLatin {
);
}
END: {
END {
unlink File::Spec->catfile(WebGUI::Test->lib, qw/WebGUI i18n PigLatin WebGUI.pm/);
unlink File::Spec->catfile(WebGUI::Test->lib, qw/WebGUI i18n PigLatin.pm/);
rmdir File::Spec->catdir(WebGUI::Test->lib, qw/WebGUI i18n PigLatin/);

View file

@ -121,7 +121,7 @@ cmp_bag(
}
END: {
END {
$session->setting->set('passiveProfilingEnabled', $origPassiveProfiling);
$session->db->write('delete from passiveProfileLog where dateOfEntry >= ?',[$startingTime-1]);
$versionTag->rollback;

View file

@ -285,6 +285,6 @@ cmp_deeply(
'Check table structure',
);
END: {
END {
$session->db->dbh->do('DROP TABLE IF EXISTS testTable');
}

View file

@ -170,7 +170,7 @@ sub linkAndText {
my $icon = $session->icon->drag();
END: {
END {
$session->user->profileField('toolbar', $origToolbar);
}

View file

@ -195,7 +195,7 @@ is($varTest->get('userId'), 3, 'userId set via start');
$varTest->start("", $varTest->getId);
is($varTest->get('userId'), 1, 'calling start with null userId returns default user (visitor)');
END: {
END {
$session->env->{_env} = $origEnv;

View file

@ -243,7 +243,7 @@ is( $check, 0, 'delete worked');
}
END: {
END {
$session->db->write('delete from addressBook');
$session->db->write('delete from address');
}

View file

@ -209,7 +209,7 @@ undef $book;
}
END: {
END {
$session->db->write('delete from addressBook');
$session->db->write('delete from address');
}

View file

@ -80,6 +80,6 @@ foreach my $testSession (@sessions) {
## Make sure that one scratch session was deleted and the other kept.
## Close and end all four sessions
END: {
END {
$session->setting->set('sessionTimeout', $origSessionTimeout );
}