### ----------------------------------------------------
### -- Smack
### -- Licenses: Artistic-2.0
### -- Authors: Sterling Hanenkamp <hanenkamp@cpan.org>
### -- File: t/sent.t
### ----------------------------------------------------
#!perl6

use v6;

use Test;
use lib 't/lib';
use HTTP::Headers;
use Smack::Test::Smackup;
use Smack::Client::Request::Common;

my @tests =
    -> $c, $u {
        my $response;

        # Run three times
        for ^3 {
            $response = await $c.request(GET($u));
            ok $response.is-success, 'successfully made a request';
            ok $response.content, 'Hello World';
        }

        # Verify that the server kept the done promise thrice
        $response = await $c.request(GET("{$u}check"));
        ok($response.is-success, 'successfully made a request');
        is $response.content, "3", "sent 3 times";
    };

my $test-server = Smack::Test::Smackup.new(:app('sent-check.wapi'), :@tests);
$test-server.run;

done-testing;


