t/92-license.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Test::More;
   5 plan skip_all => 'set TEST_LICENSE to enable this test'
   6         unless $ENV{TEST_LICENSE};
   7 plan "no_plan";
   8
   9 use FindBin qw($Bin);
  10 use File::Find;
  11
  12 find(sub {
  13         if (m{\.(pm|pl|t)$}) {
  14                 open FILE, "<", $_ or die $!;
  15                 while ( <FILE> ) {
  16                         m{Copyright} && do {
  17                                 pass("$File::Find::name mentions Copyright");
  18                                 return;
  19                         };
  20                 }
  21                 close FILE;
  22                 fail("$File::Find::name missing license text");
  23         }
  24 }, $Bin, "$Bin/../lib");
  25
  26 # Copyright (C) 2007  Sam Vilain
  27 #
  28 # This program is free software: you can redistribute it and/or modify
  29 # it under the terms of the GNU General Public License as published by
  30 # the Free Software Foundation, either version 3 of the License, or
  31 # (at your option) any later version.
  32 #
  33 # This program is distributed in the hope that it will be useful,
  34 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  35 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  36 # GNU General Public License for more details.
  37 #
  38 # You should have received a copy of the GNU General Public License
  39 # along with this program, as the file COPYING.  If not, see
  40 # <http://www.gnu.org/licenses/>.