use Test::More;

use Zonemaster::LDNS;

SKIP: {
    skip 'no network', 20 unless $ENV{TEST_WITH_NETWORK};

    my $r = Zonemaster::LDNS->new( '8.8.8.8' );

    $r->recurse( 0 );
    ok( !$r->recurse, 'recursive off' );
    $r->recurse( 1 );
    ok( $r->recurse, 'recursive on' );

    $r->retrans( 17 );
    is( $r->retrans, 17, 'retrans set' );

    $r->retry( 17 );
    is( $r->retry, 17, 'retry set' );

    $r->debug( 1 );
    ok( $r->debug, 'debug set' );
    $r->debug( 0 );
    ok( !$r->debug, 'debug unset' );

    $r->dnssec( 1 );
    ok( $r->dnssec, 'dnssec set' );
    $r->dnssec( 0 );
    ok( !$r->dnssec, 'dnssec unset' );

    $r->cd( 1 );
    ok( $r->cd, 'dnssec set' );
    $r->cd( 0 );
    ok( !$r->cd, 'dnssec unset' );

    $r->usevc( 1 );
    ok( $r->usevc, 'usevc set' );
    $r->usevc( 0 );
    ok( !$r->usevc, 'usevc unset' );

    $r->igntc( 1 );
    ok( $r->igntc, 'igntc set' );
    $r->igntc( 0 );
    ok( !$r->igntc, 'igntc unset' );

    $r->edns_size( 4711 );
    is($r->edns_size, 4711 , 'ENDS0 UDP size set');
    $r->edns_size( 0 );
    is($r->edns_size, 0 , 'ENDS0 UDP size set to zero');

    is($r->timeout, 5, 'Expected default timeout');
    $r->timeout(3.33);
    ok(($r->timeout - 3.33) < 0.01, 'Expected set timeout');

    my $addr = '192.0.2.1'; # Reserved RFC5737
    ok($r->source($addr), "Source set.");
    is($r->source, $addr, 'Source got.');
}

subtest 'recursion' => sub {
    SKIP: {
        skip 'no network', 3 unless $ENV{TEST_WITH_NETWORK};

        my $r = Zonemaster::LDNS->new( '8.8.4.4' );
        my $p1 = $r->query( 'www.iis.se' );
        is( scalar($p1->answer), 1);
        $r->recurse(0);
        my $p2 = $r->query( 'www.nic.se' );
        is( scalar($p2->answer), 0, 'Got a reply');
        ok(!$p2->rd, 'RD flag set');
    }
};

subtest 'global' => sub {
    SKIP: {
        skip 'no network', 3 unless $ENV{TEST_WITH_NETWORK};

        my $res = new_ok( 'Zonemaster::LDNS' );
        my $p = eval { $res->query( 'www.iis.se' ) } ;

        if (not $p) {
            diag $@;
        }
        else {
            isa_ok( $p, 'Zonemaster::LDNS::Packet' );
            isa_ok( $_, 'Zonemaster::LDNS::RR' ) for $p->answer;
        }
    }
};

# subtest 'sections' => sub {
#     my $res = Zonemaster::LDNS->new( '194.146.106.22' );
#     my $p   = eval { $res->query( 'www.iis.se' ) };
#     plan skip_all => 'No response, cannot test' if not $p;
#
#     is( scalar( $p->answer ),     1, 'answer count in scalar context' );
#     is( scalar( $p->authority ),  3, 'authority count in scalar context' );
#     is( scalar( $p->additional ), 6, 'additional count in scalar context' );
#     is( scalar( $p->question ),   1, 'question count in scalar context' );
# };

subtest 'broken' => sub {
    my $b0rken = eval { Zonemaster::LDNS->new( 'gurksallad' ) };
    ok( !$b0rken );
    like( $@, qr/Failed to parse IP address: gurksallad/ );
};

done_testing;