Esempio n. 1
0
        public void RunTests(object sender, EventArgs e)
        {
            RegistryKey registryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64).OpenSubKey(@"Software\R-core\R", false);

            if (registryKey != null)
            {
                // Will need to make this work on 32bit machines
                string pathToR = (string)registryKey.GetValue("InstallPath", string.Empty);
                pathToR += "\\Bin\\x64\\rscript.exe";

                string binFolder      = Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location);
                string scriptFileName = Path.Combine(new string[]
                {
                    binFolder,
                    "..",
                    "Tests",
                    "RTestSuite",
                    "RunTest.R"
                });

                string workingFolder = Path.Combine(new string[] { binFolder, ".." });

                string  arguments = "\"" + scriptFileName + "\" " + "\"" + this.explorerPresenter.ApsimXFile.FileName + "\"";
                Process process   = ProcessUtilities.RunProcess(pathToR, arguments, workingFolder);
                try
                {
                    string message = ProcessUtilities.CheckProcessExitedProperly(process);
                    this.explorerPresenter.ShowMessage(message, DataStore.ErrorLevel.Information);
                }
                catch (Exception err)
                {
                    this.explorerPresenter.ShowMessage(err.Message, DataStore.ErrorLevel.Error);
                }
            }
            else
            {
                this.explorerPresenter.ShowMessage("Could not find R installation.", DataStore.ErrorLevel.Warning);
            }

            {
                string binFolder      = Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location);
                string apsimxFolder   = Path.Combine(binFolder, "..");
                string scriptFileName = Path.Combine(new string[]
                {
                    binFolder,
                    "..",
                    "Tests",
                    "RTestSuite",
                    "RunTest.Bat"
                });
                string  workingFolder = apsimxFolder;
                Process process       = ProcessUtilities.RunProcess(scriptFileName, this.explorerPresenter.ApsimXFile.FileName, workingFolder);
                string  errorMessages = ProcessUtilities.CheckProcessExitedProperly(process);
            }
        }