-#! /usr/bin/perl
+#! /usr/bin/env perl
+
+# Copyright (c) 2005-2012, 2014. 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.
use strict;
$outfile = $infile;
$outfile =~ s/\.c$/_unit.c/;
+ $outfile =~ s/\.cpp$/_unit.cpp/;
$outfile =~ s|.*/([^/]*)$|$1| if $outfile =~ m|/|;
$outfile = "$outdir$outfile";
int main(int argc, char *argv[]) {
xbt_test_suite_t suite;
char selection[1024];
- int i;\n
- int res;\n
+ int verbosity = 0;
+ int i;
+ int res;
+
/* SGU: BEGIN SUITES DECLARATION */
/* SGU: END SUITES DECLARATION */
strcat(selection, \",\");
strcat(selection, p);
}
- } else if (!strncmp(argv[i],\"--dump-only\",strlen(\"--dump-only\"))||
- !strncmp(argv[i],\"--dump\", strlen(\"--dump\"))) {
+ } else if (!strcmp(argv[i], \"--verbose\")) {
+ verbosity++;
+ } else if (!strcmp(argv[i], \"--dump-only\")||
+ !strcmp(argv[i], \"--dump\")) {
xbt_test_dump(selection);
return 0;
- } else if (!strncmp(argv[i],\"--help\",strlen(\"--help\"))) {
+ } else if (!strcmp(argv[i], \"--help\")) {
printf(
"Usage: testall [--help] [--tests=selection] [--dump-only]\\n\\n"
"--help: display this help\\n"
+ "--verbose: print the name for each running test\\n"
"--dump-only: don't run the tests, but display some debuging info about the tests\\n"
"--tests=selection: Use argument to select which suites/units/tests to run\\n"
" --tests can be used more than once, and selection may be a comma\\n"
}
/* Got all my tests to do */
- res = xbt_test_run(selection);
+ res = xbt_test_run(selection, verbosity);
xbt_test_exit();
return res;
}
last if /SGU: BEGIN SUITES DECLARATION/;
}
- ### Done with prototypes. And now, the actual code
+ ### Done with prototypes. And now, the actual code
# search my prototype
while (<IN>) {