remove useless test END blocks

t/Account.t

@@ -68,9 +68,4 @@ is( $account->getUrl( 'op=account' ), $session->url->page( 'op=account' ),
     'getUrl doesnt add op=account if already exists'
 );
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
 #vim:ft=perl

t/Account/Friends.t

@@ -69,9 +69,4 @@ is( $account->getUrl( 'op=account' ), $session->url->page( 'op=account' ),
     'getUrl doesnt add op=account if already exists'
 );
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
 #vim:ft=perl

t/Asset/EMSSubmissionForm.t

@@ -507,10 +507,4 @@ $sub1->getFormattedComments;
 
 #done_testing();
 #print 'press return to complete test' ; <>;
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-
-}
 #vim:ft=perl

t/Asset/Sku/Donation.t

@@ -53,11 +53,4 @@ is($sku->getConfiguredTitle, "Test Donation (200)", "getConfiguredTitle()");
 
 $sku->purge;
 
-
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
-
 1;

t/Asset/Story.t

@@ -432,5 +432,3 @@ cmp_bag(
     '...asset package data has the storage locations in it'
 );
 
-END {
-}

t/Asset/Wobject/Survey/ResponseJSON.t

@@ -1032,6 +1032,3 @@ sub buildSurveyJSON {
     return $sjson;
 }
 
-#----------------------------------------------------------------------------
-# Cleanup
-END { }

t/Asset/Wobject/Survey/SurveyJSON.t

@@ -2183,7 +2183,3 @@ sub getBareSkeletons {
            type                   => 'answer',
         };
 }
-
-#----------------------------------------------------------------------------
-# Cleanup
-END { }

t/Auth/mech.t

@@ -276,7 +276,3 @@ $mech->submit_form_ok(
 );
 $mech->base_is( $assetUrl, "We don't get redirected" );
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-}

t/Exception/Shop.t

@@ -45,9 +45,4 @@ $e = Exception::Class->caught;
 isa_ok($e, 'WebGUI::Error');
 isa_ok($e, 'WebGUI::Error::Shop::RemoteShippingRate');
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
 #vim:ft=perl

t/Form.t

@@ -24,12 +24,6 @@ use WebGUI::Test;
 # Init
 my $session         = WebGUI::Test->session;
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
-
 #----------------------------------------------------------------------------
 # Tests
 

t/Form/DataTable.t

@@ -120,9 +120,4 @@ like( $html, qr{<table[^>]*id="test-container-table"}, "getTableHtml table has I
 my $html    = $dt->toHtml;
 ok( $dt->get( "showEdit" ), "showEdit gets set by toHtml" );
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
 #vim:ft=perl

t/Form/SelectRichEditor.t

@@ -28,12 +28,6 @@ use WebGUI::Form::SelectRichEditor;
 my $session         = WebGUI::Test->session;
 my $root            = WebGUI::Asset->getRoot( $session );
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
-
 #----------------------------------------------------------------------------
 # Tests
 plan tests => 1;

t/FormBuilder/Tab.t

@@ -46,10 +46,4 @@ is( $tab->label, 'My Label' );
 is( $tab->label('New Label'), 'New Label' );
 is( $tab->label, 'New Label' );
 
-
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
 #vim:ft=perl

t/Inbox/Message.t

@@ -73,10 +73,4 @@ $tempMessage->delete;
 
 }
 
-
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
 #vim:ft=perl

t/Operation/AdSpace.t

@@ -68,8 +68,3 @@ ok( $adSpace->get('name') eq 'oldname', 'AdSpace does not get saved.' );
 
 $adSpace->delete;
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}

t/Operation/Auth.t

@@ -55,9 +55,3 @@ unlike(
     "Hidden form elements for login NOT displayed to valid user",
 );
 
-
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}

t/Operation/User/service.t

@@ -454,10 +454,4 @@ cmp_deeply(
 );
 ok( !WebGUI::User->validUserId( $session, $userRed->getId ), "UserId no longer exists" );
 
-
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
 #vim:ft=perl

t/Pluggable.t

@@ -135,10 +135,3 @@ is($dumper->Dump, q|$VAR1 = {
     );
 };
 
-#----------------------------------------------------------------------------
-# Cleanup
-
-END {
-
-}
-

t/Search.t

@@ -82,9 +82,4 @@ SKIP: {
     cmp_deeply( $assetIds, [ $article->getId ], 'ideograph search works');
 }
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
 #vim:ft=perl

t/Session/ErrorHandler.t

@@ -239,5 +239,3 @@ TODO: {
     ok(0, 'output from fatal when there is a db handler and request present');
 }
 
-END {
-}

t/Session/Output.t

@@ -68,5 +68,3 @@ SKIP: {
 
 }
 
-END {
-}

t/Shop/PayDriver.t

@@ -478,8 +478,3 @@ undef $driver;
 
 
 }
-
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-}

t/Shop/PayDriver/Ogone.t

@@ -577,16 +577,5 @@ is ($count, 0, 'delete deleted the object');
 
 undef $driver;
 
-
-
-
-#----------------------------------------------------------------------------
-# Cleanup
-
-
-
-}
-END {
-
 }
 #vim:ft=perl

t/Shop/PayDriver/PayPalStd.t

@@ -79,7 +79,3 @@ undef $driver;
 
 }
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-}

t/Shop/ShipDriver.t

@@ -401,8 +401,3 @@ undef $driver;
 
 
 }
-
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-}

t/Shop/Tax.t

@@ -126,10 +126,4 @@ SKIP: {
     }
 }
 
-
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
 #vim:ft=perl

t/Storage.t

@@ -15,7 +15,6 @@ use lib "$FindBin::Bin/lib";
 use WebGUI::Test;
 use WebGUI::Session;
 use WebGUI::Storage;
-use WebGUI::PseudoRequest;
 
 use File::Spec;
 use File::Temp qw/tempdir/;

t/Storage/Image.t

@@ -281,6 +281,3 @@ TODO: {
 	local $TODO = "Methods that need to be tested";
 	ok(0, 'resize');
 }
-
-END {
-}

t/Workflow/Activity/GetCsMail.t

@@ -143,9 +143,4 @@ $post2mock->set_always('getId', $post2_id);
     WebGUI::Test->unmockAssetId($post_id);
 }
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
 #vim:ft=perl

t/Workflow/Activity/RecheckVATNumber.t

@@ -110,11 +110,4 @@ sub createInstance {
     return $instance;
 };
 
-
-
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-
-}
 #vim:ft=perl