Changeset 3273 for monitoring

Timestamp:

08/06/13 14:29:44 (11 years ago)

Author:

sanmai

Message:

• Fix test script and make it work with R versions < 2.15 .

File:

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

monitoring/plugins/mpi/integration_test.R

@@ -10 +10 @@
 command_line_arguments <- 
     base:::paste(test_info$Nagios.plugin, "-h", test_info$host);
-command_line_arguments <- c(command_line_arguments,
-                            test_info[,5L:ncol(test_info)]);
+command_line_arguments <- 
+    base:::c(command_line_arguments,
+    test_info[,5L:ncol(test_info)]);
 
 ## test_results has a value equal to the exit status of the scripts with arguments command_line_arguments run.
@@ -25 +26 @@
 for (test_index in 1L:base:::length(command_line_arguments))
 {
-    base:::message(base:::paste0("Running test ", test_index));
+    base:::message(base:::paste("Running test", test_index));
 
     arg_set <-
@@ -46 +47 @@
 
     test_stdout[test_index] <-
-        base:::paste0(test_output, 
+        base:::paste(test_output, 
                       sep = "\n", 
                       collapse = "\n");
@@ -63 +64 @@
     "/tmp/test_results.tab";
 
-base:::write.table(test_results_df,
+utils:::write.table(test_results_df,
                    file            = test_results_file_path,
                    col.names       = TRUE,
@@ -69 +70 @@
                    sep             = "\t");
 
-base:::message(base:::paste0("Written test results to TAB-separated table at '", test_results_file_path, "' ..."));
+base:::message(base:::paste("Written test results to TAB-separated table at '", test_results_file_path, "' ...", sep = ""));