File: gen-tests

package info (click to toggle)
libdata-showtable-perl 4.6-1
  • links: PTS, VCS
  • area: main
  • in suites: buster, jessie, jessie-kfreebsd, stretch
  • size: 1,020 kB
  • ctags: 37
  • sloc: perl: 2,218; sh: 38; makefile: 2
file content (14 lines) | stat: -rwxr-xr-x 350 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/bin/sh
testdir=t
template=OBJ-TEST.pl
kinds=`cd $testdir >&/dev/null ; ls -1 [a-z]*.pl | sed -e 's/\.pl//g'`
echo "These are the kinds: $kinds"
for obj in box simple list html ; do
    for kind in $kinds ; do
        testfile=t/$obj-$kind.t
	if [[ -f $testfile ]]; then
	  rm -f $testfile
	fi
	( set -x ; ln -s $template $testfile )
    done
done