view release on metacpan or  search on metacpan

t/client.t  view on Meta::CPAN

ok my $result = $drac_client->get({
    commands => ["fans"],
}),
    "Data is retrieved sucessfully";

ok my $fans = $result->{fans};

is scalar @{$fans->list}, 5, "Fans data is correct";

is $drac_client->isAlive(), 1, "Session is still alive";

ok my $drac_client_bis = DracPerl::Client->new(
    {   user     => "dummy",
        password => "dummy",
        url      => $ENV{DRAC_URL} || "https://dracip",
    }
    ),
    "Second client created";
is $drac_client_bis->openSession($session_saved), 1,
    "Reopened the same session on client bis";