t_install_iso/014_check_bad_words.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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();