use Rocket::LandingGear;

use Test::Simple no_plan;

my $Landing_Gear_Down = 1;

sub Rocket::LandingGear::is_landing_gear_down {
    $Landing_Gear_Down;
}

sub Rocket::LandingGear::extend_landing_gear {
    $Landing_Gear_Down = 1;
}

sub Rocket::LandingGear::retract_landing_gear {
    $Landing_Gear_Down = 0;
}

ok($Landing_Gear_Down, 'Landing Gear down to start with');

for my $alt (qw(0 20 50 500 600 700 800)) {
    Rocket::LandingGear::altitude_change($alt);
}

ok(!$Landing_Gear_Down, 'Liftoff okay');

for my $alt (reverse qw(0 20 50 500 600 700 800)) {
    Rocket::LandingGear::altitude_change($alt);
}

ok($Landing_Gear_Down, 'Landing okay');

$Landing_Gear_Down = 1;

for my $alt (qw(0 20 50 501 600 700 800)) {
    Rocket::LandingGear::altitude_change($alt);
}

ok(!$Landing_Gear_Down, 'Liftoff okay');