Changeset 3276 for monitoring

Timestamp:

08/06/13 14:47:49 (11 years ago)

Author:

sanmai

Message:

• Work on test script.

File:

• monitoring/plugins/mpi/integration_test.R (modified) (2 diffs)

monitoring/plugins/mpi/integration_test.R

@@ -7 +7 @@
                        header    = TRUE,
                        quote     = "",
-                       row.names = NULL);
-
-command_line_arguments <- 
-    base:::paste(test_info$Nagios.plugin, "-h", test_info$`-h`);
-    
-if (test_info$`-u` != "") {
-    command_line_arguments <- 
-        base:::c(command_line_arguments,
-        test_info$`-u`);
-}
+                       row.names = NULL,
+                       check.names = FALSE
+                       asIs     = TRUE);
 
 ## test_results has a value equal to the exit status of the scripts with arguments command_line_arguments run.
@@ -32 +25 @@
     base:::message(base:::paste("Running test", test_index));
 
-    arg_set <-
-        command_line_arguments[test_index];
+    command_line_arguments <- 
+        base:::paste(test_info[test_index,]$command, "-h", test_info[test_index,]$`-h`);
+    
+    if (test_info[test_index,]$`-u` != "") {
+        command_line_arguments <- 
+            base:::c(command_line_arguments,
+            test_info[test_index,]$`-u`);
+    }
+    
+    browser();
 
     test_output <-
         system2(command = "python2",
-                args    = arg_set,
+                args    = command_line_arguments,
                 stdout  = TRUE,
                 stderr  = TRUE);