Changeset 3290 for monitoring/plugins/mpi/integration_test.R

Timestamp:

08/06/13 15:42:23 (11 years ago)

Author:

sanmai

Message:

• Fix test script.
• Add column to MPI monitoring checks table for -b parameter used by check_clarin_ldap.py

File:

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

monitoring/plugins/mpi/integration_test.R

@@ -13 +13 @@
 ## test_results has a value equal to the exit status of the scripts with arguments command_line_arguments run.
 
-test_results <- 
+check_exit_status <- 
     base:::integer(length = base:::nrow(checks_info));
-test_stdout <- 
+check_stdout <- 
     base:::character(length = base:::nrow(checks_info));
 #test_stderr 
@@ -26 +26 @@
 for (test_index in 1L:base:::nrow(checks_info))
 {
-    base:::message(base:::paste("Running test", test_index));
+    base:::message(base:::paste("Checking", checks_info[test_index,]$description, "..."));
 
     command_line <- 
@@ -37 +37 @@
                      '-u', checks_info[test_index,]$`-u`);
     }
+    if (checks_info[test_index,]$`-b` != "") {
+        command_line <- 
+            base:::c(command_line, 
+                     '-b', checks_info[test_index,]$`-b`);
+    }
 
     test_output <-
@@ -46 +51 @@
     ## Fetch exit status codes.  
     if(!base:::is.null(base:::attr(test_output, "status"))) {
-        test_results[test_index] <- 
+        check_exit_status[test_index] <- 
             base:::as.integer(base:::attr(test_output, "status"));
     } else { 
-        test_results[test_index] <- 
+        check_exit_status[test_index] <- 
             0L;
     };
 
-    test_stdout[test_index] <-
+    check_stdout[test_index] <-
         base:::paste(test_output, 
                       sep = "\n", 
@@ -69 +74 @@
     base:::data.frame(description             = checks_info$description,
                       command_line            = base:::unlist(command_lines), 
-                      test_results            = test_results, 
-                      test_stdout             = test_stdout,
+                      check_exit_status       = check_exit_status, 
+                      check_stdout            = check_stdout,
                       stringsAsFactors        = FALSE);
 
@@ -76 +81 @@
 
 test_results_file_path <- 
-    "/tmp/test_results.tab";
+    "/tmp/Nagios_checks_test.tab";
 
 utils:::write.table(test_results_df,