- Allow running as root when running in testsuite mode

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@6238 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Sep 27, 2010 · 87fb99e · 87fb99e
1 parent d05440a
commit 87fb99e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/Compiler/runtime/rtopts.h b/Compiler/runtime/rtopts.h
@@ -33,5 +33,6 @@
 
 int check_debug_flag(char const* strdata);
 int accept_meta_modelica_grammar(void);
+extern int running_testsuite;
 
 #endif
diff --git a/Compiler/runtime/systemimpl.c b/Compiler/runtime/systemimpl.c
@@ -53,6 +53,7 @@
 #include "systemimpl.h"
 #include "rml.h"
 #include "config.h"
+#include "rtopts.h"
 
 /*
  * Platform specific includes and defines
@@ -2497,7 +2498,7 @@ char* normalizePath(const char* src)
 
 RML_BEGIN_LABEL(System__userIsRoot)
 {
-  rmlA0 = mk_icon(geteuid() == 0 ? 1 : 0);
+  rmlA0 = mk_icon(geteuid() == 0 && running_testsuite == 0 ? 1 : 0);
   RML_TAILCALLK(rmlSC);
 }
 RML_END_LABEL