Add tests for duplicating a page, elemental area and elements under them

tests/ElementalAreaTest.php

@@ -58,4 +58,19 @@ public function testCanBePublished()
         $element = $this->objFromFixture(TestElement::class, 'element1');
         $this->assertTrue($element->canPublish($member));
     }
+
+    public function testDuplicate()
+    {
+        /** @var ElementalArea $area */
+        $area = $this->objFromFixture(ElementalArea::class, 'area1');
+        $areaIds = $area->Elements()->column('ID');
+        $this->assertCount(2, $areaIds);
+
+        $duplicatedArea = $area->duplicate(true);
+        $duplicatedAreaIds = $duplicatedArea->Elements()->column('ID');
+        $this->assertCount(2, $duplicatedAreaIds);
+        print_r($areaIds);
+        print_r($duplicatedAreaIds);
+        $this->assertNotEquals($areaIds, $duplicatedAreaIds);
+    }
 }

tests/ElementalPageExtensionTest.php

@@ -79,4 +79,22 @@ public function testGetElementalTypes()
 
         $this->assertEquals('A test element', $types[TestElement::class], 'Types should use their "type"');
     }
+
+    public function testDuplicatingPageDuplicatesElements()
+    {
+        /** @var TestPage $page */
+        $page = $this->objFromFixture(TestPage::class, 'page_with_elements');
+        $this->assertCount(2, $page->ElementalArea()->Elements());
+
+        /** @var TestPage $newPage */
+        $newPage = $page->duplicate();
+        $this->assertNotEquals($page->ElementalArea->ID, $newPage->ElementalArea->ID, 'Area is duplicated');
+        $this->assertCount(2, $newPage->ElementalArea()->Elements());
+
+        $this->assertNotEquals(
+            $page->ElementalArea()->Elements()->column('ID'),
+            $newPage->ElementalArea()->Elements()->column('ID'),
+            'Duplicated page has duplicated area and duplicated elements, i.e. not shared'
+        );
+    }
 }

tests/ElementalPageExtensionTest.yml

@@ -1,11 +1,23 @@
+DNADesign\Elemental\Models\ElementalArea:
+  area51:
+    Title: Area 51
+
+DNADesign\Elemental\Models\ElementContent:
+  content1:
+    Title: Test Content
+    ParentID: =>DNADesign\Elemental\Models\ElementalArea.area51
+  content2:
+    Title: More content
+    ParentID: =>DNADesign\Elemental\Models\ElementalArea.area51
+
 DNADesign\Elemental\Tests\Src\TestPage:
   elementaldemo:
     Title: Test Elemental
+    ElementalAreaID: =>DNADesign\Elemental\Models\ElementalArea.area51
+  page_with_elements:
+    Title: Page with elements
+    ElementalAreaID: =>DNADesign\Elemental\Models\ElementalArea.area51
 
 SilverStripe\CMS\Model\RedirectorPage:
   elementredirectpage:
     Title: Redirector Page
-
-DNADesign\Elemental\Models\ElementContent:
-  content1:
-    Title: Test Content