From a8c8568d36f584a1acd919b0ebf047338e6a0955 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 17 Apr 2007 05:34:26 +0000
Subject: [PATCH] addChild: handling really deep assets works

---
 t/Asset/AssetLineage.t | 34 +++++++++++++++++++++++++++++++---
 1 file changed, 31 insertions(+), 3 deletions(-)

diff --git a/t/Asset/AssetLineage.t b/t/Asset/AssetLineage.t
index c2ae6a5c7..79662e498 100644
--- a/t/Asset/AssetLineage.t
+++ b/t/Asset/AssetLineage.t
@@ -17,7 +17,7 @@ use WebGUI::Session;
 use WebGUI::User;
 
 use WebGUI::Asset;
-use Test::More tests => 74; # increment this value for each test you create
+use Test::More tests => 76; # increment this value for each test you create
 use Test::Deep;
 
 # Test the methods in WebGUI::AssetLineage
@@ -75,7 +75,7 @@ foreach my $snipNum (0..6) {
 my $snippet2 = $folder2->addChild( {
             className   => "WebGUI::Asset::Snippet",
             groupIdView => 7,
-            groupIdEdit => 3,
+            ownerUserId => $editor->userId, #For coverage on addChild properties
             title       => "Snippet2 0",
             menuTitle   => 0,
 });
@@ -413,6 +413,32 @@ cmp_bag(
     'getLineage: descendants of topFolder',
 );
 
+####################################################
+#
+# addChild
+#
+####################################################
+
+my $vTag2 = WebGUI::VersionTag->getWorking($session);
+$vTag2->set({name=>"deep addChild test"});
+
+my @deepAsset = ($root);
+
+for (1..42) {
+    $deepAsset[$_] = $deepAsset[$_-1]->addChild( {
+            className   => "WebGUI::Asset::Snippet",
+            groupIdView => 7,
+            ownerUserId => 3, #For coverage on addChild properties
+            title       => "Deep Snippet $_",
+            menuTitle   => "Deep Snip $_",
+    });
+}
+
+$vTag2->commit;
+
+is($deepAsset[41]->getParent->getId, $deepAsset[40]->getId, 'addChild will not create an asset with a lineage deeper than 42 levels');
+like($WebGUI::Test::logger_warns, qr/Adding it as a sibling instead/, 'addChild logged a warning about deep assets');
+
 TODO: {
     local $TODO = "Tests to make later";
     ok(0, 'addChild');
@@ -421,7 +447,9 @@ TODO: {
 
 
 END {
-    $versionTag->rollback;
+    foreach my $tag ($versionTag, $vTag2) {
+        $tag->rollback;
+    }
     foreach my $account ($editor) {
         (defined $account  and ref $account  eq 'WebGUI::User') and $account->delete;
     }