diff options
Diffstat (limited to 't_install_iso/014_check_bad_words.t')
-rw-r--r-- | t_install_iso/014_check_bad_words.t | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/t_install_iso/014_check_bad_words.t b/t_install_iso/014_check_bad_words.t new file mode 100644 index 0000000..88cf122 --- /dev/null +++ b/t_install_iso/014_check_bad_words.t @@ -0,0 +1,27 @@ +# +# This function search if there is any temporary files ( .file.swp and file~) +# or file with "bad" words. +# +use Test::Most tests => 2; + +bail_on_fail; + +# +my $res = `find /media/iso_check/ -name '*~' -or -iname '*.swp'`; +if ($res) { + fail('Has no swap temporary file (*~ or *.swp).'); + note $res; +} else { + pass('Has no swap temp file.'); +} + +# +$res = `find /media/iso_check/ -iname '*roxx*' -or -iname '*sucks*' -or -iname 'ubuntu*' -or -iname 'microsoft*' -or -iname 'mandrake*' -or -iname 'mandriva'`; +if ($res) { + fail('Has no blacklisted word.'); + note $res; +} else { + pass('Has no blacklisted word.'); +} + +done_testing(); |