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
-paramater
-varsion
fomr
-puhs
invoce
-CONTANTS
+lenght
+paramater
+pirce
+postition
+primt
puchase
+puhs
+sekf
+seperat
+sucess
+varsion
+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);