view release on metacpan or  search on metacpan

t/02-photo-app.t  view on Meta::CPAN

use v5.12;
use warnings;
use Test::More;

# Skip under windows
if ($^O =~ /Win32/) {
    plan skip_all => "Test not supported under Windows";
    exit;
}
my $perl = $^X;
# Set DEBUG variable
$ENV{PHOTOBEAR_DEBUG} = 1;
$ENV{PHOTOBEAR_TEST} = 1;
$ENV{PHOTOBEAR_API_KEY} = "C0FFEE-C0FFEE-C0FFEE-C0FFEE";
my $system_temp = $ENV{TEMP} || $ENV{TMP} || '/tmp';
my $cmd = "$perl -Ilib bin/photobear --verbose -o \"$system_temp\" vectorization https://www.telatin.com/core-people.png";
my $out = `$cmd`;
ok(defined $?, "Command executed: $cmd [$?]");

done_testing();