SL::DB::Order: POD: Doku nicht vorhandener Subroutine entfernt.
[kivitendo-erp.git] / t / 005no_tabs.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 Jacob Steenhagen.
16 # Portions created by Jacob Steenhagen are
17 # Copyright (C) 2001 Jacob Steenhagen. All
18 # Rights Reserved.
19 #
20 # Contributor(s): Jacob Steenhagen <jake@bugzilla.org>
21 #                 David D. Kilzer <ddkilzer@kilzer.net>
22 #
23
24 #################
25 #Bugzilla Test 5#
26 #####no_tabs#####
27
28 use strict;
29
30 use lib 't';
31
32 use Support::Files;
33 use Support::Templates;
34
35 use File::Spec;
36 use Test::More tests => (  scalar(@Support::Files::testitems)
37                          + $Support::Templates::num_actual_files);
38
39 my @testitems = @Support::Files::testitems;
40 for my $path (@Support::Templates::include_paths) {
41    push(@testitems, map(File::Spec->catfile($path, $_),
42                         Support::Templates::find_actual_files($path)));
43 }
44
45 foreach my $file (@testitems) {
46     open (FILE, "$file");
47     if (grep /\t/, <FILE>) {
48         ok(0, "$file contains tabs --WARNING");
49     } else {
50 #      TODO: { local $TODO = q(Tabfreeness is not enforced at the moment.);
51         ok(1, "$file has no tabs");
52 #      }
53     }
54     close (FILE);
55 }
56
57 exit 0;