#!perl

use strict;
use warnings;

use Test::More;
use Test::LWP::UserAgent 0.018;    # Older versions caused this test to fail

use IO::String;
use HTTP::Response;

use Pinto::Remote;
use Pinto::Globals;
use Pinto::Chrome::Term;
use Pinto::Constants qw(:server :protocol);

#-----------------------------------------------------------------------------
subtest 'response dialog' => sub {

    my $ua = local $Pinto::Globals::UA = Test::LWP::UserAgent->new;

    my $res = HTTP::Response->new(200);
    $res->content("DATA-GOES-HERE\n## DIAG-MSG-HERE\n$PINTO_PROTOCOL_STATUS_OK\n");
    $ua->map_response( qr{.*}, $res );

    my $out_buffer = '';
    my $out_fh     = IO::String->new( \$out_buffer );

    my $err_buffer = '';
    my $err_fh     = IO::String->new( \$err_buffer );

    my $chrome = Pinto::Chrome::Term->new( stdout => $out_fh, stderr => $err_fh );
    my $pinto = Pinto::Remote->new( chrome => $chrome, root => $PINTO_SERVER_DEFAULT_ROOT );
    my $result = $pinto->run('List');

    is $result->was_successful, 1, 'Got successful result' or diag $err_buffer;

    is $out_buffer, "DATA-GOES-HERE\n", 'Got correct data output';

    is $err_buffer, "DIAG-MSG-HERE\n", 'Got correct diagnostic output';

};

#-----------------------------------------------------------------------------

done_testing;