#!perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
use OpenAI::API;
my $openai = OpenAI::API->new( api_key => '' );
# force error
$ENV{OPENAI_API_KEY} = undef;
my @test_cases = (
    {
        method    => 'new',
        params    => {},
        exception => qr/Undef did not pass type constraint "Str"/,
    },
    {
        method    => 'completions',
        params    => {},
        exception => qr/Missing required arguments: model, prompt/,
    },
    {
        method    => 'edits',
        params    => {},
        exception => qr/Missing required arguments: instruction, model/,
    },
    {
        method    => 'embeddings',
        params    => {},
        exception => qr/Missing required arguments: input, model/,
    },
    {
        method    => 'moderations',
        params    => {},
        exception => qr/Missing required arguments: input/,
    },
    {
        method    => 'model_retrieve',
        params    => {},
        exception => qr/Missing required arguments: model/,
    },
    {
        method    => 'image_create',
        params    => {},
        exception => qr/Missing required arguments: prompt/,
    },
);
for my $test (@test_cases) {
    my ( $method, $params, $exception ) = @{$test}{qw/method params exception/};
    throws_ok { my $response = $openai->$method( %{$params} ); } $exception or diag($@);
}
done_testing();