marei: cleanup
[kivitendo-erp.git] / t / 006spellcheck.t
1 # -*- Mode: perl; indent-tabs-mode: nil -*-
2 #
3 # The contents of this file are subject to the Mozilla Public
4 # License Version 1.1 (the "License"); you may not use this file
5 # except in compliance with the License. You may obtain a copy of
6 # the License at http://www.mozilla.org/MPL/
7 #
8 # Software distributed under the License is distributed on an "AS
9 # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
10 # implied. See the License for the specific language governing
11 # rights and limitations under the License.
12 #
13 # The Original Code are the Bugzilla Tests.
14 #
15 # The Initial Developer of the Original Code is Zach Lipton
16 # Portions created by Zach Lipton are
17 # Copyright (C) 2002 Zach Lipton.  All
18 # Rights Reserved.
19 #
20 # Contributor(s): Zach Lipton <zach@zachlipton.com>
21
22
23 #################
24 #Bugzilla Test 6#
25 ####Spelling#####
26
27 use lib 't';
28 use Support::Files;
29
30 BEGIN { # yes the indenting is off, deal with it
31 #add the words to check here:
32 @evilwords = qw(
33 CONTANTS
34 anyways
35 arbitary
36 cofigur
37 custemer
38 databasa
39 dependan
40 execept
41 existance
42 existant
43 fomr
44 invoce
45 lenght
46 occured
47 paramater
48 pirce
49 postition
50 primt
51 puchase
52 puhs
53 sekf
54 seperat
55 sucess
56 unkown
57 varsion
58 wether
59 );
60
61 $testcount = scalar(@Support::Files::files);
62 }
63
64 use Test::More tests => $testcount;
65
66 # Capture the TESTOUT from Test::More or Test::Builder for printing errors.
67 # This will handle verbosity for us automatically.
68 my $fh;
69 {
70     local $^W = 0;  # Don't complain about non-existent filehandles
71     if (-e \*Test::More::TESTOUT) {
72         $fh = \*Test::More::TESTOUT;
73     } elsif (-e \*Test::Builder::TESTOUT) {
74         $fh = \*Test::Builder::TESTOUT;
75     } else {
76         $fh = \*STDOUT;
77     }
78 }
79
80 my @testitems = @Support::Files::files;
81
82 # at last, here we actually run the test...
83 my $evilwordsregexp = join('|', @evilwords);
84
85 foreach my $file (@testitems) {
86     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
87     next if (!$file); # skip null entries
88
89     if (open (FILE, $file)) { # open the file for reading
90
91         my $found_word = '';
92
93         while (my $file_line = <FILE>) { # and go through the file line by line
94             if ($file_line =~ /($evilwordsregexp)/i) { # found an evil word
95                 $found_word = $1;
96                 last;
97             }
98         }
99
100         close (FILE);
101
102         if ($found_word) {
103             ok(0,"$file: found SPELLING ERROR $found_word --WARNING");
104         } else {
105             ok(1,"$file does not contain registered spelling errors");
106         }
107     } else {
108         ok(0,"could not open $file for spellcheck --WARNING");
109     }
110 }
111
112 exit 0;