#!perl
BEGIN {
unless ($ENV{AUTOMATED_TESTING}) {
require Test::More;
Test::More::plan(skip_all => 'these tests are for "smoke bot" testing');
}
}
use 5.010;
use strict;
use warnings;
use Perinci::Import 'Finance::Currency::Convert::KlikBCA',
get_currencies => {exit_on_error=>1};
use Test::More 0.98;
my $res = get_currencies();
is($res->[0], 200, "get_currencies() succeeds")
or diag explain $res;
done_testing;