File: cov

package info (click to toggle)
guile-pg 0.16-5
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 4,088 kB
  • sloc: sh: 9,518; ansic: 1,910; lisp: 1,704; makefile: 147
file content (22 lines) | stat: -rwxr-xr-x 351 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/bin/sh
# usage: cov [DIR]
# display testing coverage

if [ x"$1" = x ] ; then
    dir=".."
else
    dir="$1"
fi

all=`sed '/^PG_DEFINE/!d;s/[^"]*"//;s/".*//' $dir/libpostgres*.c`

for p in $all ; do
    if grep -q "$p" guile-pg-*-tests.scm ; then
        echo -n 'yes'
    else
        echo -n ' no'
    fi
    echo "     $p"
done

# cov ends here