use strict;
use warnings;
use Test::More;
use Acme::AirRead;

subtest 'write and read air' => sub {
    write_air(
        air     => 'cant read air',
        declair => 'cant read near air',
        luft    => 'kann keine Luft lesen',
        kuuki   => 'yomenai',
    );

    my $air = read_air('air');
    ok( !defined $air, 'cant get air' );
    my $declair = read_air('declair');
    ok( !defined $declair, 'cant get declair' );
    my $luft = read_air('Luft');
    ok( !defined $luft, 'kann keine Luft lesen' );
    my $kuuki = read_air('kuuki');
    ok( defined $kuuki, 'get kuuki' );
    is( $kuuki, 'yomenai', 'kuuki yometa' );
};

subtest 'i want to read air' => sub {
    empty_air();
    my $del_kuuki = read_air('kuuki');
    ok( !defined $del_kuuki, 'kuuki kieta' );
    write_air(
        air   => 'cant air',
        kuuki => 'yomenai',
        tokyo => 'yomenai',
    );

    local $Acme::AirRead::NO_READ = qr{ky};
    my $air = read_air('air');
    ok( defined $air, 'i can read air' );
    is( $air, 'cant air', 'yometayo-' );
    my $kuuki = read_air('kuuki');
    ok( defined $kuuki, 'i can read kuuki' );
    my $ky = read_air('tokyo');
    ok( !defined $ky, 'cant read ky' );
};

done_testing;