File: elviwithouttests

package info (click to toggle)
surfraw 2.3.0-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 1,624 kB
  • sloc: sh: 7,977; perl: 824; makefile: 277
file content (21 lines) | stat: -rwxr-xr-x 408 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/perl -w
# $Id$
# Ian Beckwith <ianb@erislabs.net>

use strict;

my @elvi=<../elvi/*>;
@elvi = map  { s/.*\///; $_;} @elvi;
@elvi = grep { $_ ne "CVS"  && $_ !~ /^Makefile/ } @elvi;

my %tests = map  { s/.test$//; $_=>1;} <*.test>;

my @elviwithouttests=grep { !exists($tests{$_}) } @elvi;

if(@elviwithouttests)
{
    print "Elvi without tests:\n";
    print join(" ",@elviwithouttests),"\n";
}