diff --git a/lib/WebGUI/Test.pm b/lib/WebGUI/Test.pm
index 8c0be84c9..ea78275eb 100644
--- a/lib/WebGUI/Test.pm
+++ b/lib/WebGUI/Test.pm
@@ -639,6 +639,7 @@ were passed in.  Currently able to destroy:
     WebGUI::DatabaseLink
     WebGUI::LDAPLink
     WebGUI::Inbox::Message
+    WebGUI::Fork
 
 Example call:
 
@@ -767,6 +768,11 @@ Example call:
         'SQL' => sub {
             (shift)->();
         },
+        'WebGUI::Fork' => sub {
+            my $fork = shift;
+            my $id = $fork->getId;
+            session()->db->write("update Fork set finished = 1 where id = ?", [ $id ] );
+        },
     );
 
     sub cleanupGuard {