Add tests verifying we preserve the order of metadata elements

1 files changed, 29 insertions, 0 deletions

diff --git a/Test/Mono.Cecil.Tests/CustomAttributesTests.cs b/Test/Mono.Cecil.Tests/CustomAttributesTests.cs
index db28ab5..970b3aa 100644
--- a/Test/Mono.Cecil.Tests/CustomAttributesTests.cs
+++ b/Test/Mono.Cecil.Tests/CustomAttributesTests.cs
@@ -464,6 +464,35 @@ namespace Mono.Cecil.Tests {
 			});
 		}
 
+		[Test]
+		public void OrderedAttributes ()
+		{
+			TestModule ("ordered-attrs.exe", module => {
+				var type = module.GetType ("Program");
+				var method = type.GetMethod ("Main");
+				var attributes = method.CustomAttributes;
+				Assert.AreEqual (6, attributes.Count);
+
+				Assert.AreEqual ("AAttribute", attributes [0].AttributeType.Name);
+				Assert.AreEqual ("Main.A1", attributes [0].Fields [0].Argument.Value as string);
+
+				Assert.AreEqual ("AAttribute", attributes [1].AttributeType.Name);
+				Assert.AreEqual ("Main.A2", attributes [1].Fields [0].Argument.Value as string);
+
+				Assert.AreEqual ("BAttribute", attributes [2].AttributeType.Name);
+				Assert.AreEqual ("Main.B1", attributes [2].Fields [0].Argument.Value as string);
+
+				Assert.AreEqual ("AAttribute", attributes [3].AttributeType.Name);
+				Assert.AreEqual ("Main.A3", attributes [3].Fields [0].Argument.Value as string);
+
+				Assert.AreEqual ("BAttribute", attributes [4].AttributeType.Name);
+				Assert.AreEqual ("Main.B2", attributes [4].Fields [0].Argument.Value as string);
+
+				Assert.AreEqual ("BAttribute", attributes [5].AttributeType.Name);
+				Assert.AreEqual ("Main.B3", attributes [5].Fields [0].Argument.Value as string);
+			});
+		}
+
 #if !READ_ONLY
 		[Test]
 		public void DefineCustomAttributeFromBlob ()