lancew / judo-notator

Console App to help Notate Judo fights, written in Perl.

judo-notator / smoketest.pl.bak
100644 38 lines (30 sloc) 0.828 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

#!/usr/bin/perl
push @INC,"./";
use strict;
use Perl::Critic;
use Perl::Tidy;
use File::Find::Rule;
use Test::Harness qw(&runtests);
 
    my $file = 'notator.pl';
    my $backup = 'notator.old';
 
	rename($file, 'notator.old');
	perltidy( source => $backup, destination => $file );
 
 
 
    for(my $count = 1; $count < 6; $count++){
    	open (MYFILE, ">critic-$count.txt");
        my $critic = Perl::Critic->new(-severity => $count);
    	my @violations = $critic->critique($file);
    	#print @violations;
    	print MYFILE @violations;
    	close (MYFILE);
    	}
 
 
my $rule = File::Find::Rule->new;
$rule->or(
$rule->new->directory->name('CVS')->prune->discard,
$rule->new->file->name( '*.t' )
);
my @start = @ARGV ? @ARGV : '.';
my @files;
for ( @start ) {
push( @files, (-d) ? $rule->in($_) : $_ );
}
 
     runtests(@files);