view release on metacpan or  search on metacpan

t/00_compile.t  view on Meta::CPAN

use strict;
use Test::More tests => 9;

use_ok $_ for qw(
    Backblaze::B2V4
);

# NOTE: The API key provided below is a ready-ony key locked to a B2 bucket 
# specifically created to support the testing and distribution of this module.

# let them use ENV vars to test their account
my $application_key_id = $ENV{B2_APP_KEY_ID} || '002dcecbc999f31000000000e';
my $application_key =  $ENV{B2_APP_KEY} || 'K002cbUnOGDiTATcLQvac+pDTVjghC8';
my $account_id =  $ENV{B2_ACCT_ID} || 'dcecbc999f31';
my $test_file_id = $ENV{B2_TEST_FILE_ID} || '4_z1dbcfe6ccb7cb959793f0311_f111f065d1a8a36cf_d20200803_m192431_c002_v0001142_t0011';
my $test_bucket_name = $ENV{B2_TEST_BUCKET_NAME} || 'ClientTester';
my $test_file_name = $ENV{B2_TEST_FILE_NAME} || 'ginger.jpeg';