Add tests for insertion order when an attr is removed and re-added

diff --git a/t/cmop/insertion_order.t b/t/cmop/insertion_order.t
index 073d3b3..e057a44 100644 (file)
--- a/t/cmop/insertion_order.t
+++ b/t/cmop/insertion_order.t
@@ -32,4 +32,32 @@ my $Point = Class::MOP::Class->create('Point' => (
 is($Point->get_attribute('x')->insertion_order, 0, 'Insertion order of Attribute "x"');
 is($Point->get_attribute('y')->insertion_order, 1, 'Insertion order of Attribute "y"');
 
+{
+    my $class = Class::MOP::Class->create('Foo');
+
+    $class->add_attribute('first');
+    $class->add_attribute('second');
+
+    is(
+        $class->get_attribute('first')->insertion_order, 0,
+        'insertion_order for first is 0'
+    );
+    is(
+        $class->get_attribute('second')->insertion_order, 1,
+        'insertion_order for second is 1'
+    );
+
+    $class->add_attribute('first');
+
+    is(
+        $class->get_attribute('first')->insertion_order, 0,
+        'insertion_order for first is still 0 after removing and readding first'
+    );
+
+    is(
+        $class->get_attribute('second')->insertion_order, 1,
+        'insertion_order for second is still 0 after removing and readding first'
+    );
+}
+
 done_testing;