#
# Copyright (c) 2019 cPanel, L.L.C.
# All rights reserved.
# http://cpanel.net/
#
# Distributed under the terms of the MIT license.  See the LICENSE file for
# further details.
#
package Test::OpenStack::Client::UserAgent;

use strict;
use warnings;

sub generate {
    my ($class, %opts) = @_;

    $opts{'responses'} ||= [];

    return bless {
        'requests'  => [],
        'responses' => $opts{'responses'}
    }, $class;
}

sub new ($%) {
    shift;
}

sub request ($$) {
    my ($self, $request) = @_;

    push @{$self->{'requests'}}, $request;

    #
    # Keep tossing out responses until we get the very last one on the list,
    # so that any tests that make any requests are guaranteed to get at least
    # one response.
    #
    my $response = $self->{'responses'}->[0];

    shift @{$self->{'responses'}} if @{$self->{'responses'}} > 1;

    return $response;
}

1;