From 638b2a199662989eaed78554d12ffc75139858d5 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 13 Jun 2011 18:52:44 -0700
Subject: [PATCH] Fix tests that were leaking assets.

---
 t/Asset/Asset.t         | 1 +
 t/Asset/AssetMetaData.t | 1 +
 2 files changed, 2 insertions(+)

diff --git a/t/Asset/Asset.t b/t/Asset/Asset.t
index 839a15291..e7de5453e 100644
--- a/t/Asset/Asset.t
+++ b/t/Asset/Asset.t
@@ -1215,6 +1215,7 @@ sub getTitleTests {
 subtest 'canAdd tolerates being called as an object method', sub {
     my $class = 'WebGUI::Asset::Snippet';
     my $snip = $tempNode->addChild({className => $class});
+    WebGUI::Test->addToCleanup($snip);
 
     # Make a test user who's just in Turn Admin On
     my $u = WebGUI::User->create($session);
diff --git a/t/Asset/AssetMetaData.t b/t/Asset/AssetMetaData.t
index b1c4f951f..016eafaca 100644
--- a/t/Asset/AssetMetaData.t
+++ b/t/Asset/AssetMetaData.t
@@ -270,6 +270,7 @@ subtest 'asset metadata versioning' => sub {
     is $meta->get(), 'version one', 'v1 has not been changed';
 
     my $dup = $asset->duplicate;
+    WebGUI::Test->addToCleanup($dup);
 
     my $db    = $session->db;
     my $count_rev = sub {