use strict;
use warnings;
use Test::More;

use Test::Wight;
use JSON;
use Plack::Request;

$Test::Wight::SPAWN_PSGI_METHOD = 'twiggy';

my $req;
my $app = sub {
    my $env = shift;
    $req = Plack::Request->new($env);
    return [ 204, [], [] ];
};

my $wight = Test::Wight->new;

$wight->spawn_psgi($app);

$wight->visit('/');

like $req->header('User-Agent'), qr/PhantomJS/;

$wight->set_headers({
    'User-Agent' => 'Wight',
    'X-Test-Wight' => 1,
});

$wight->visit('/');

is $req->header('User-Agent'), 'Wight';
is $req->header('X-Test-Wight'), 1;

done_testing;