#
# 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' -or -iname '.svn' -or -iname '.git*'`;
if ($res) {
    fail('Has no swap temp or hiden RCS files (*~, *.swp, .svn or .git*).');
    note $res;
} else {
    pass('Has no swap temp or hiden RDC files (*~, *.swp, .svn or .git*).');
}

#
$res = `find /media/iso_check/ -iname '*roxx*' -or -iname '*sucks*' -or -iname 'ubuntu*' -or -iname 'microsoft*' -or -iname 'mandrake*' -or -iname 'mandriva' -or -iname 'todo' -or -iname 'delete*'`;
if ($res) {
    fail('Has no blacklisted words.');
    note $res;
} else {
    pass('Has no blacklisted words.');
}

done_testing();