BEGIN { # yes the indenting is off, deal with it
#add the words to check here:
@evilwords = qw(
+CONTANTS
anyways
arbitary
+cofigur
+custemer
databasa
dependan
+execept
existance
existant
+fomr
+invoce
+lenght
+occured
paramater
+pirce
+postition
+primt
+puchase
+puhs
+sekf
+seperat
+substract
+sucess
+unkown
varsion
-fomr
+wether
);
-$testcount = scalar(@Support::Files::testitems);
+$testcount = scalar(@Support::Files::files);
}
use Test::More tests => $testcount;
}
}
-my @testitems = @Support::Files::testitems;
+my @testitems = @Support::Files::files;
# at last, here we actually run the test...
my $evilwordsregexp = join('|', @evilwords);