AI-Image
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/01-openai.t view on Meta::CPAN
#!perl
use 5.006;
use strict;
use warnings;
use Test::More;
use AI::Image;
my $image_fai11 = AI::Image->new();
ok( $image_fai11->isa( 'AI::Image' ), 'Instantiation' );
ok( !$image_fai11->success, 'Key Error during object creation' );
my $image_fail2 = AI::Image->new(
'key' => '0123456789',
'api' => 'Not Allowed',
);
ok( $image_fail2->isa( 'AI::Image' ), 'Instantiation' );
ok( !$image_fail2->success, 'API Error during object creation' );
my $image_pass = AI::Image->new(
'key' => '0123456789',
'api' => 'OpenAI',
);
ok( $image_pass->isa( 'AI::Image' ), 'Instantiation' );
ok( $image_pass->success, 'Successful object creation' );
done_testing(6);
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.550 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )