summaryrefslogtreecommitdiff
path: root/common/tests/get-cov.pl
diff options
context:
space:
mode:
authorCeline Buret2011-12-23 18:51:12 +0100
committerCeline Buret2011-12-23 18:51:12 +0100
commit4a195dc3b04f8a9c67ea6a0c1902dd31e23355d7 (patch)
tree2b69b5393e7b8167ee78dad624449650008a588a /common/tests/get-cov.pl
parent112636d5a37f4024bd954b922a46e887c3d47635 (diff)
parentf5c6b799cdce5b4bb1618f4789bb683efa7967ab (diff)
Merge branch 'master' of pessac:/git/cesar into eoc
Conflicts: cesar/cl/src/cl.c cesar/cp/sta/action/Config cesar/mac/pbproc/src/prep_mpdu.c cesar/test_general/station/cco0/s2/Config cleopatre/Makefile cleopatre/application/libspid/src/config_line.c cleopatre/application/libspid/src/image.c cleopatre/application/libspid/src/misc.c cleopatre/application/libspid/src/system.c cleopatre/application/managerd/inc/vs_mme.h cleopatre/application/managerd/src/managerd.c cleopatre/application/managerd/src/vs_mme.c cleopatre/devkit/plcdrv/arm/src/linux_drv.c cleopatre/devkit/tests/libmme/utests/src/mme_utests.c cleopatre/devkit/tests/libspid/utests/Makefile cleopatre/devkit/tests/libspid/utests/inc/system_utests.h cleopatre/devkit/tests/libspid/utests/src/config_line_utests.c cleopatre/devkit/tests/libspid/utests/src/image_utests.c cleopatre/devkit/tests/libspid/utests/src/system_utests.c cleopatre/devkit/tests/libspid/utests/testfiles/nvram1.tst cleopatre/devkit/tests/libspid/utests/testfiles/nvram2.tst cleopatre/devkit/tests/managerd/ftests/Makefile cleopatre/devkit/tests/managerd/utests/Makefile cleopatre/devkit/tests/managerd/utests/override/src/libmme_stub.c cleopatre/devkit/tests/managerd/utests/override/src/libspid_stub.c cleopatre/devkit/tests/managerd/utests/src/vs_mme_utests.c cleopatre/devkit/tests/plcd/Makefile cleopatre/devkit/tests/utests_makerules cleopatre/linux-2.6.25.10-spc300/arch/arm/boot/Makefile common/tests/tests
Diffstat (limited to 'common/tests/get-cov.pl')
-rwxr-xr-xcommon/tests/get-cov.pl50
1 files changed, 50 insertions, 0 deletions
diff --git a/common/tests/get-cov.pl b/common/tests/get-cov.pl
new file mode 100755
index 0000000000..273db8509c
--- /dev/null
+++ b/common/tests/get-cov.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+#
+# Get the list of coverage trace files.
+#
+use strict;
+use warnings;
+
+my $base = shift @ARGV;
+my $dir;
+my $fail = 0;
+
+# Return truth if the given info file contains at least one trace
+# information.
+sub not_empty
+{
+ my $f = shift;
+ open FILE, "<$f" or die;
+ while (<FILE>)
+ {
+ if (/^SF:/)
+ {
+ close FILE;
+ return 1;
+ }
+ }
+ close FILE;
+ return 0;
+}
+
+# Read tests file.
+while (<STDIN>)
+{
+ chomp;
+ # Drop comments.
+ next if /^\s*(?:#.*)?$/;
+ if (/^(.*):(:)?$/)
+ {
+ # Directory line.
+ $dir = $1;
+ -d "$base/$dir"
+ or die "cannot change directory";
+ }
+ elsif (/^cov.*? (.*?): .*$/)
+ {
+ # Coverage test line.
+ my $f = "$base/$dir/obj/$1.info";
+ -f $f && not_empty ($f)
+ and print "$f\n";
+ }
+}