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 strict;
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');
add_stopwords(<DATA>);
@@ -22,7 +25,9 @@ alteon
airespace
aironet
airos
Alcatel
alcatel
AOS
ap
APs
arn
@@ -49,6 +54,7 @@ bitmask
bladecenter
bln
bpdus
BSSID
bulkrepeaters
bulkwalk
cabletron
@@ -84,6 +90,7 @@ eigrp
erszenyi
ess
etherlike
ethernet
enterasys
extranet
fastiron
@@ -122,6 +129,7 @@ loopback
loopdetect
lorensen
lsb
Lucent
lucent
luiggi
lwapp
@@ -155,6 +163,7 @@ oem
ofdm
oid
oids
OmniSwitch
os
osi
ospf
@@ -210,6 +219,8 @@ telesys
tftp
tftpfilename
tftpserver
TiMOS
tmnxModel
tuttle
ucsc
uninstall
@@ -223,4 +234,4 @@ wlan
wlans
WS
zoltan
zyxel
zyxel

View File

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