Add some spelling words. Make local_versionsync fail gracefully (instead of

planning twice) if File::Slurp isn't found.  Make spelling skip all tests
if Test::Spelling isn't found.
This commit is contained in:
Bill Fenner
2008-07-31 18:35:20 +00:00
parent 6c8ec356ec
commit 2575320ec5
2 changed files with 16 additions and 3 deletions

View File

@@ -5,7 +5,10 @@
use warnings; use warnings;
use strict; use strict;
use Test::More; use Test::More;
use Test::Spelling;
eval "use Test::Spelling";
plan skip_all => "Test::Spelling required for checking spelling"
if $@;
set_spell_cmd('aspell list'); set_spell_cmd('aspell list');
add_stopwords(<DATA>); add_stopwords(<DATA>);
@@ -22,7 +25,9 @@ alteon
airespace airespace
aironet aironet
airos airos
Alcatel
alcatel alcatel
AOS
ap ap
APs APs
arn arn
@@ -49,6 +54,7 @@ bitmask
bladecenter bladecenter
bln bln
bpdus bpdus
BSSID
bulkrepeaters bulkrepeaters
bulkwalk bulkwalk
cabletron cabletron
@@ -84,6 +90,7 @@ eigrp
erszenyi erszenyi
ess ess
etherlike etherlike
ethernet
enterasys enterasys
extranet extranet
fastiron fastiron
@@ -122,6 +129,7 @@ loopback
loopdetect loopdetect
lorensen lorensen
lsb lsb
Lucent
lucent lucent
luiggi luiggi
lwapp lwapp
@@ -155,6 +163,7 @@ oem
ofdm ofdm
oid oid
oids oids
OmniSwitch
os os
osi osi
ospf ospf
@@ -210,6 +219,8 @@ telesys
tftp tftp
tftpfilename tftpfilename
tftpserver tftpserver
TiMOS
tmnxModel
tuttle tuttle
ucsc ucsc
uninstall uninstall
@@ -223,4 +234,4 @@ wlan
wlans wlans
WS WS
zoltan zoltan
zyxel zyxel

View File

@@ -5,12 +5,14 @@
use warnings; use warnings;
use strict; use strict;
use File::Find; use File::Find;
use Test::More qw(no_plan); use Test::More;
eval "use File::Slurp"; eval "use File::Slurp";
plan skip_all => "File::Slurp required for testing version sync" plan skip_all => "File::Slurp required for testing version sync"
if $@; if $@;
plan qw(no_plan);
my $last_version = undef; my $last_version = undef;
find({wanted => \&check_version, no_chdir => 1}, 'blib'); find({wanted => \&check_version, no_chdir => 1}, 'blib');
if (! defined $last_version) { if (! defined $last_version) {