From 33a3716af6afcad0a42dad0326b4892809a8ca83 Mon Sep 17 00:00:00 2001 From: Marcos Henrich Date: Thu, 14 May 2015 17:23:57 +0100 Subject: [PATCH] [System] Test ProcessModule managed assemblies. --- .../Test/System.Diagnostics/ProcessTest.cs | 24 +++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/mcs/class/System/Test/System.Diagnostics/ProcessTest.cs b/mcs/class/System/Test/System.Diagnostics/ProcessTest.cs index 23019e0332a..e6337d60976 100644 --- a/mcs/class/System/Test/System.Diagnostics/ProcessTest.cs +++ b/mcs/class/System/Test/System.Diagnostics/ProcessTest.cs @@ -923,5 +923,29 @@ namespace MonoTests.System.Diagnostics p.StandardOutput.BaseStream.Dispose (); p.Dispose (); } + + public void Modules () { + var modules = Process.GetCurrentProcess ().Modules; + foreach (var a in AppDomain.CurrentDomain.GetAssemblies ()) { + var found = false; + foreach (var o in modules) { + var m = (ProcessModule) o; + var name = a.GetName (); + + if (!m.FileName.StartsWith ("[In Memory] " + name.Name)) + continue; + + var fv = m.FileVersionInfo; + if (fv.FileBuildPart != name.Version.Build || + fv.FileMinorPart != name.Version.Minor || + fv.FileMajorPart != name.Version.Major) + continue; + + found = true; + } + + Assert.IsTrue (found); + } + } } } -- 2.25.1