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;