Made the graph script robust against diagnostic system messages

1 files changed, 10 insertions, 1 deletions

diff --git a/test/performance/graphs/common.r b/test/performance/graphs/common.r
index e310b811..34a59c43 100644
--- a/test/performance/graphs/common.r
+++ b/test/performance/graphs/common.r
@@ -83,7 +83,16 @@ main <- function(routine_name, precision, test_names, test_values,
       params_string <- paste(parameters, params_values[[command_id]], collapse=" ")
       arguments <- paste(devices_string, params_string, options_string, sep=" ")
       print(paste("Running", executable, arguments, sep=" "))
-      result_string <- system2(command=executable, args=arguments, stdout=TRUE)
+      raw_result_string <- system2(command=executable, args=arguments, stdout=TRUE)
+
+      # Filter the string: only lines containing a ";" can be valid lines
+      result_string <- c()
+      for (line in raw_result_string) {
+        if (grepl(";",line)) {
+          result_string <-
+           c(result_string, line)
+        }
+      }
 
       # Reads the result into a dataframe
       command_db <- read.csv(text=result_string, sep=";")