#
#
#
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();