Obsolete
/
dnsmanagerv1
Archived
3
0
Fork 0
This repository has been archived on 2024-06-18. You can view files and clone it, but cannot push or open issues/pull-requests.
dnsmanagerv1/t/006_remotecmd.t

24 lines
419 B
Raku

use Test::More;
use Modern::Perl;
use URI;
use lib 'lib';
use remotecmd ':all';
my $port = 22;
my $user = 'karchnu';
my $host = "karchnu.fr";
my $cmd = "ls /";
my $pattern = qr/etc/;
sub t_remotecmd {
my ($user, $host, $port, $cmd, $pattern) = @_;
my $ret = remotecmd $user, $host, $port, $cmd;
$ret =~ $pattern;
}
ok ((t_remotecmd $user, $host, $port, $cmd, $pattern) , "remote cmd" );
done_testing;