diff options
Diffstat (limited to 'test_iso.pl')
| -rw-r--r-- | test_iso.pl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/test_iso.pl b/test_iso.pl index 0c67efb..2a650eb 100644 --- a/test_iso.pl +++ b/test_iso.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl -w # use 5.010; @@ -9,7 +9,7 @@ use Tools; my ($image_path) = @ARGV; if (!defined $image_path) { - print "Usage: ./test_iso.pl path_to_iso/file.iso\n\n"; + print "Usage: ./test_iso.pl [ISO file]\nTry `./test_iso.pl --help' for more information.\n"; exit; } @@ -31,6 +31,7 @@ print "# Host: ", `uname -n`; $harness->runtests(<./t/*.t>); +# Mounting the ISO print "# Mounting ISO in /media/iso_check"; -r "/media/iso_check" or system 'mkdir /media/iso_check'; system "mount -r " . if_(!-b $image_path, "-o loop ") . "$image_path /media/iso_check/"; @@ -46,11 +47,11 @@ if ($info{"medium"} eq "DVD") { # LiveCD specific # CD specific } -# Umounting the iso -print "# Umounting ISO\n"; +# Umounting the ISO +print "# Umounting ISO\n"; # FIXME this fails sometimes; no idea why. Force umount? -system 'umount -fr /media/iso_check'; +system 'umount /media/iso_check'; system 'rm -r /media/iso_check'; print "... ok\n"; print "# Date: ", `date --rfc-3339='ns' -u`; |