-#! /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 (!strcmp(argv[i], \"--verbose\")) {
+ verbosity++;
} else if (!strcmp(argv[i], \"--dump-only\")||
!strcmp(argv[i], \"--dump\")) {
xbt_test_dump(selection);
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;
}