view release on metacpan or  search on metacpan

t/08-auto-chooser.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More;

BEGIN
{
    if ($ENV{DBUS_SESSION_BUS_ADDRESS})
    {
        eval "use Passwd::Keyring::Auto";

        if ($@)
        {
            plan skip_all => "Passwd::Keyring::Auto required";
        }
        else
        {
            plan tests => 3;
        }
    }
    else
    {
        plan skip_all => "Session D-Bus not available (not running a desktop session?), skipping tests";
    }

    ok(eval { require Passwd::Keyring::Secret; 1 }, "load Passwd::Keyring::Secret");

    if ($@)
    {
        diag($@);
        BAIL_OUT("OS unsupported");
    }
}

my $keyring = eval { get_keyring(force => 'Secret', alias => 'session') };
isa_ok($keyring, 'Passwd::Keyring::Secret', "new keyring object");

if ($@)
{
    diag($@);
    BAIL_OUT("OS unsupported");
}

ok(!$keyring->is_persistent(), "is_persistent() returns that session keyring is not persistent");