Changeset 3283 for monitoring

Timestamp:

08/06/13 15:06:22 (11 years ago)

Author:

sanmai

Message:

• Fix test script.

File:

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

monitoring/plugins/mpi/integration_test.R

@@ -2 +2 @@
 #message(getwd());
 
-test_info <- 
+checks_info <- 
     utils:::read.table("plugins_hosts_services.tab",
                        sep       = "\t",
@@ -14 +14 @@
 
 test_results <- 
-    base:::integer(length = base:::nrow(test_info));
+    base:::integer(length = base:::nrow(checks_info));
 test_stdout <- 
-    base:::character(length = base:::nrow(test_info));
+    base:::character(length = base:::nrow(checks_info));
 #test_stderr 
 #   <- character(length = length(command_line_arguments));
 ## X- stderr output cannot be caught separately yet due to R implementation issue
 
-for (test_index in 1L:base:::nrow(test_info))
+command_lines <- 
+    base:::list();
+
+for (test_index in 1L:base:::nrow(checks_info))
 {
     base:::message(base:::paste("Running test", test_index));
 
     command_line <- 
-        base:::paste(test_info[test_index,]$`file name`, "-h", test_info[test_index,]$`-h`);
+        base:::paste(checks_info[test_index,]$`file name`, "-h", checks_info[test_index,]$`-h`);
     
-    if (test_info[test_index,]$`-u` != "") {
+    if (checks_info[test_index,]$`-u` != "") {
         command_line <- 
             base:::c(command_line, 
-                     '-u', test_info[test_index,]$`-u`);
+                     '-u', checks_info[test_index,]$`-u`);
     }
-    
-    browser();
 
     test_output <-
@@ -45 +46 @@
     if(!base:::is.null(base:::attr(test_output, "status"))) {
         test_results[test_index] <- 
-            base:::as.integer(attr(test_output, "status"));
+            base:::as.integer(base:::attr(test_output, "status"));
     } else { 
         test_results[test_index] <- 
@@ -56 +57 @@
                       collapse = "\n");
 
+    command_lines <- 
+        c(command_lines, command_line);
+
     # browser();
 }
 
+browser();
+
 test_results_df <- 
-    base:::data.frame(description             = test_info$service,
-                      command_line            = command_line, 
+    base:::data.frame(description             = checks_info$description,
+                      command_line            = command_lines, 
                       test_results            = test_results, 
                       test_stdout             = test_stdout,
                       stringsAsFactors        = FALSE);
+
+browser();
 
 test_results_file_path <-