diff options
author | Romain d'Alverny <rda@mageia.org> | 2012-02-17 17:54:36 +0000 |
---|---|---|
committer | Romain d'Alverny <rda@mageia.org> | 2012-02-17 17:54:36 +0000 |
commit | 7a5cac718aa056abe96eafe8e910ec256dd3793d (patch) | |
tree | 3be419acbcd840864d045826ae6e33904e0785bc /t/003_is_hybrid.t | |
parent | 10afa7f61593c6ee82f7256c5dfa29104ba19e52 (diff) | |
download | isocheck-7a5cac718aa056abe96eafe8e910ec256dd3793d.tar isocheck-7a5cac718aa056abe96eafe8e910ec256dd3793d.tar.gz isocheck-7a5cac718aa056abe96eafe8e910ec256dd3793d.tar.bz2 isocheck-7a5cac718aa056abe96eafe8e910ec256dd3793d.tar.xz isocheck-7a5cac718aa056abe96eafe8e910ec256dd3793d.zip |
Move all image-related tests in a separate place.
Diffstat (limited to 't/003_is_hybrid.t')
-rw-r--r-- | t/003_is_hybrid.t | 99 |
1 files changed, 0 insertions, 99 deletions
diff --git a/t/003_is_hybrid.t b/t/003_is_hybrid.t deleted file mode 100644 index dd89fd7..0000000 --- a/t/003_is_hybrid.t +++ /dev/null @@ -1,99 +0,0 @@ -# This file is part of the Mageia project -# Copyright (C) 2011 Damien Lallement <dams@mageia.org> -# (C) 2011 Romain D'Alverny <rda@mageia.org> -# -# This library is free software; you can redistribute it and/or -# modify it under the terms of the GNU Library General Public -# License as published by the Free Software Foundation; either -# version 2 of the License, or (at your option) any later version. -# -# This library is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# Library General Public License for more details. -# -# You should have received a copy of the GNU Library General Public License -# along with this library; see the file COPYING.LIB. If not, write to -# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -# Boston, MA 02110-1301, USA. -# - -use Test::Most; - -bail_on_fail; - -my ($image_path) = @ARGV; - -ok(is_hybrid($image_path, 0), "Is hybrid"); - -# Verification if the ISO is hybrid -sub is_hybrid { - my ($img, $full) = @_; - - open(my $iso, $img); - my $hybrid = hybrid1($iso); - $hybrid &= hybrid2($iso); - $hybrid &= hybrid3($iso); - if ($full) { - # system "dd if=$img of=/dev/my-pendrive bs=8"; - } - close($iso); - - return $hybrid; -} - - -# Check the first 512 bytes of the iso -sub hybrid1 { - my ($iso) = @_; - my $buffer; - my $hybrid; - - foreach (0 .. 512) { - read($iso, $buffer, 1); - if ($buffer ne '\x00') { - $hybrid = 1; - } - } - - return $hybrid; -} - -#Check the 0x1fe & 0x1ff bytes of the iso -sub hybrid2 { - my ($iso) = @_; - my $hybrid; - my $buffer; - my $byte = "\x55"; - - seek($iso, 0x1fe, 0); - read($iso, $buffer, 1); - if ($buffer eq $byte) { - read($iso, $buffer, 1); - $byte = "\xaa"; - if ($buffer eq $byte) { - $hybrid = 1; - } - } - - return $hybrid; -} - -# check from the 0x200 to the 0x8000 bytes -sub hybrid3 { - my ($iso) = @_; - my $hybrid = 1; - my $buffer; - - seek($iso, 0x200, 0); - foreach (0x200 .. 0x8000) { - read($iso, $buffer, 1); - if ($buffer eq '\x00') { - $hybrid = 0; - } - } - - return $hybrid; -} - -done_testing(); |