use strict;
use warnings;
use Test::More;
use lib 't/lib';
use PH2Test;
use Protocol::HTTP2::Constants qw(:settings);
use Protocol::HTTP2::Client;
use Protocol::HTTP2::Server;

subtest 'client settings' => sub {

    my $c =
      Protocol::HTTP2::Client->new(
        settings => { &SETTINGS_HEADER_TABLE_SIZE => 100 } );
    $c->request(
        ':scheme'    => 'http',
        ':authority' => 'localhost:8000',
        ':path'      => '/',
        ':method'    => 'GET',
    );

    # PRI
    $c->next_frame;

    # SETTINGS
    ok binary_eq( hstr('0000 0604 0000 0000 0000 0100 0000 64'),
        $c->next_frame ),
      "send only changed from default values settings";
};

subtest 'server settings' => sub {

    my $s = Protocol::HTTP2::Server->new;

    ok binary_eq( hstr('0000 0604 0000 0000 0000 0300 0000 64'),
        $s->next_frame ), "server defaults not empty";
};

done_testing;