diff options
Diffstat (limited to 't_install_iso/010_check_autorun.t')
| -rw-r--r-- | t_install_iso/010_check_autorun.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t_install_iso/010_check_autorun.t b/t_install_iso/010_check_autorun.t index ce6000a..ce607fe 100644 --- a/t_install_iso/010_check_autorun.t +++ b/t_install_iso/010_check_autorun.t @@ -36,7 +36,7 @@ set_failure_handler(sub { }); # -ok -r "/media/iso_check/autorun.inf", 'autorun.inf is there'; +ok(-r "/media/iso_check/autorun.inf", 'autorun.inf is there'); BAIL_OUT('Autorun stuff is missing anyway.') if !(-r "/media/iso_check/autorun.inf"); @@ -62,23 +62,23 @@ if ($lines != $num && $lines - 1 != $num my $directory; $directory = "/media/iso_check/autorun/" if -r "/media/iso_check/autorun"; $directory = "/media/iso_check/dosutils/autorun/" if -r "/media/iso_check/dosutils/autorun"; -ok -r $directory, 'dosutils directory is there'; +ok(-r $directory, 'dosutils directory is there'); # my $exe = $directory . "autorun.exe"; -ok -r $exe, 'autorun.exe is there'; +ok(-r $exe, 'autorun.exe is there'); BAIL_OUT('autorun.exe is not here.') if !(-r $exe); # my $file = $directory . "autorun.ico"; $file = $directory . "mageia.ico" if !(-r $file); -ok -r $file, 'autorun.ico is there'; +ok(-r $file, 'autorun.ico is there'); # foreach my $a ("de-DE/", "es-ES/", "fr-FR/", "it-IT/", "pt-BR/", "ru-RU/", "zh-CN/") { $file = $directory . $a . "autorun.resources.dll"; - ok -r $file, "$file is there"; + ok(-r $file, "$file is there"); } done_testing(); |