X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/611d822b02f836d7abe031cced6adc4281ef4356..de0b4695379832237daa6785278ff42df1db08e1:/tools/sg_unit_extractor.pl

diff --git a/tools/sg_unit_extractor.pl b/tools/sg_unit_extractor.pl
index 33e2920d57..638ba49b5e 100755
--- a/tools/sg_unit_extractor.pl
+++ b/tools/sg_unit_extractor.pl
@@ -1,6 +1,6 @@
 #! /usr/bin/env perl
 
-# Copyright (c) 2005-2018. The SimGrid Team. All rights reserved.
+# Copyright (c) 2005-2019. The SimGrid Team. All rights reserved.
 
 # This program is free software; you can redistribute it and/or modify it
 # under the terms of the license (GNU LGPL) which comes with this package.
@@ -80,7 +80,7 @@ sub process_one($) {
 	    die "$progname: Parse error: This line seem to be a test suite declaration, but failed to parse it\n$_\n";
 	}
 
-        if (m/XBT_TEST_UNIT\(\w*"([^"]*)"\w*,([^,]*),(.*?)\)/) { #"{
+        if (m/XBT_TEST_UNIT\(\w*"([^"]*)"\w*, *([^,]*), *(.*?)\)/) { #"{
 	    die "$progname: multiply defined unit in file $infile: $1\n" if (defined($tests{$1}));
 
 	    my @t=($1,$2,$3);
@@ -268,7 +268,7 @@ EOF
        $newmain .= "      suite = xbt_test_suite_by_name(\"$suite_name\",$suite_title);\n";
        map {
 	   my ($name,$func,$title) = @{$_};
-	   $newmain .=  "      xbt_test_suite_push(suite, \"$name\", $func, $title);\n";
+	   $newmain .=  "      xbt_test_suite_push(suite, \"$name\", &$func, $title);\n";
        } @tests;
 
        $newmain .= "    /* SGU: END FILE */\n\n";