A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix makedist
[simgrid.git]
/
tools
/
sg_unit_extractor.pl
diff --git
a/tools/sg_unit_extractor.pl
b/tools/sg_unit_extractor.pl
index
33e2920
..
638ba49
100755
(executable)
--- a/
tools/sg_unit_extractor.pl
+++ b/
tools/sg_unit_extractor.pl
@@
-1,6
+1,6
@@
#! /usr/bin/env perl
#! /usr/bin/env perl
-# Copyright (c) 2005-201
8
. The SimGrid Team. All rights reserved.
+# Copyright (c) 2005-201
9
. 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.
# 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";
}
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);
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 .= " 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";
} @tests;
$newmain .= " /* SGU: END FILE */\n\n";