X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/d8ccdbcf736474f1f05e92ed439a56adbc52f216..98565a6c0f5af14d8b0c0104570b927a56d0845c:/tools/sg_unit_extractor.pl

diff --git a/tools/sg_unit_extractor.pl b/tools/sg_unit_extractor.pl
index 37b702593e..24a1168ceb 100755
--- a/tools/sg_unit_extractor.pl
+++ b/tools/sg_unit_extractor.pl
@@ -48,18 +48,24 @@ sub process_one($) {
 	    next
 	}
 	
-	if (m/XBT_TEST_SUITE\(\w*"([^"]*)"\w*,(.*?)\);/) { #" {
+	if (m/XBT_TEST_SUITE\(\w*"([^"]*)"\w*, *(.*?)\);/) { #" {
 	    die "$progname: Multiple suites in the same file ($infile) are not supported yet\n" if length($suite_name);
 	    ($suite_name,$suite_title)=($1,$2);
+	    die "$progname: Empty suite name in $infile" unless length($suite_name);
+	    die "$progname: Empty suite title in $infile" unless length($suite_title);
 	    next;
-        } 
+        } elsif (m/XBT_TEST_SUITE/) {
+	    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*,([^,]*),(.*?)\)/) { #"{
 	    die "$progname: multiply defined unit in file $infile: $1\n" if (defined($tests{$1}));
-      
+            
 	    my @t=($1,$2,$3);
 	    push @tests,\@t;
 	    $tests{$1} = 1;
+	} elsif (m/XBT_TEST_UNIT/) {
+	    die "$progname: Parse error: This line seem to be a test unit, but failed to parse it\n$_\n";
 	}
         $unit_source .= $_ if $takeit;
     }