Help language development. Donate to The Perl Foundation

AWS::Session cpan:HANENKAMP last updated on 2019-03-15

t/session.t
use v6;

use Test;
use AWS::Session;

use lib 't/lib';
use Test::AWS::Session;

plan 2;

subtest 'happy-session', {
    my $session = AWS::Session.new(
        session-configuration => TEST-SESSION-DEFAULTS(),
        data-path => 't/aws/my-data'.IO,
    );

    isa-ok $session, AWS::Session;

    is $session.profile, 'default';
    is $session.region, 'us-west-1';
    is $session.data-path, 't/aws/my-data';
    is $session.config-file, 't/aws/config';
    is $session.ca-bundle, Nil;
    is $session.api-versions, {};
    is $session.credentials-file, 't/aws/credentials';
    is $session.metadata-service-timeout, 1;
    is $session.metadata-service-num-attempts, 1;

    is $session.get-configuration.<default><region>, 'us-west-1';
    is $session.get-current-configuration.<output>, 'json';
    is $session.get-profile-configuration('fun').<region>, 'us-east-2';

    is $session.get-credentials.<default><aws_access_key_id>, 'AKEYDEFAULTDEFAULTDE';
    is $session.get-current-credentials.<aws_secret_access_key>, 'SecretSecretSecretSecretSecretSecretSecr';
    is $session.get-profile-credentials('fun').<aws_access_key_id>, 'AKEYFUNFUNFUNFUNFUNF';
}

subtest 'sad-session', {
    my $session = AWS::Session.new(
        session-configuration => TEST-SESSION-SAD-DEFAULTS(),
        data-path => 't/aws.not-here/my-data'.IO,
    );

    isa-ok $session, AWS::Session;

    is $session.profile, 'default';
    is $session.region, Nil;
    is $session.data-path, 't/aws.not-here/my-data';
    is $session.config-file, 't/aws.not-here/config';
    is $session.ca-bundle, Nil;
    is $session.api-versions, {};
    is $session.credentials-file, 't/aws.not-here/credentials';
    is $session.metadata-service-timeout, 1;
    is $session.metadata-service-num-attempts, 1;

    nok $session.get-configuration.<default><region>;
    nok $session.get-current-configuration.<output>;
    nok $session.get-profile-configuration('fun').<region>;

    nok $session.get-credentials.<default><aws_access_key_id>;
    nok $session.get-current-credentials.<aws_secret_access_key>;
    nok $session.get-profile-credentials('fun').<aws_access_key_id>;
}

done-testing;