diff options
| author | Romain d'Alverny <rda@mageia.org> | 2011-12-10 19:28:30 +0000 |
|---|---|---|
| committer | Romain d'Alverny <rda@mageia.org> | 2011-12-10 19:28:30 +0000 |
| commit | 1e65efa6a3d996c34c902f2b04257307c2175776 (patch) | |
| tree | 635ae0d5dc31d6bf186b0dc50a8d510d49474f2e /test_iso.pl | |
| parent | fa4a16119ca7e744aee9b29b8a70ce01aa2516f0 (diff) | |
| download | isocheck-1e65efa6a3d996c34c902f2b04257307c2175776.tar isocheck-1e65efa6a3d996c34c902f2b04257307c2175776.tar.gz isocheck-1e65efa6a3d996c34c902f2b04257307c2175776.tar.bz2 isocheck-1e65efa6a3d996c34c902f2b04257307c2175776.tar.xz isocheck-1e65efa6a3d996c34c902f2b04257307c2175776.zip | |
more code style fixes (perl_checker & tv)
Diffstat (limited to 'test_iso.pl')
| -rw-r--r-- | test_iso.pl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/test_iso.pl b/test_iso.pl index 87fc27f..ba9aab2 100644 --- a/test_iso.pl +++ b/test_iso.pl @@ -1,3 +1,5 @@ +#!/usr/bin/perl -w +# # This file is part of the Mageia project # Copyright (C) 2011 Damien Lallement <dams@mageia.org> # (C) 2011 Romain d'Alverny <rda@mageia.org> @@ -17,7 +19,6 @@ # the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, # Boston, MA 02110-1301, USA. # -#!/usr/bin/perl -w use 5.010; @@ -48,11 +49,11 @@ print "# Date: ", `date --rfc-3339='ns' -u`; print "# Testing: $image_path\n"; print "# Host: ", `uname -n`; -$harness->runtests(<./t/*.t>); +$harness->runtests(glob_('t/*.t')); # Mounting the ISO print "# Mounting ISO in /media/iso_check"; --r "/media/iso_check" or system 'mkdir /media/iso_check'; +-r "/media/iso_check" or mkdir('/media/iso_check'); system "mount -r " . if_(!-b $image_path, "-o loop ") . "$image_path /media/iso_check/"; print "... ok\n"; @@ -60,9 +61,9 @@ my $name = basename($image_path); my %info = Tools::parse_mageia_iso_name($name); # FIXME the difference is actually regular versus LiveCD -if ($info{"medium"} eq "DVD") { - $harness->runtests(<./t_install_iso/*.t>); -} elsif ($info{"medium"} eq "CD") { +if ($info{medium} eq "DVD") { + $harness->runtests(glob_('t_install_iso/*.t')); +} elsif ($info{medium} eq "CD") { # LiveCD specific # CD specific } |