Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

FERKI / Rex-1.16.0 / t / commands.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83

              
#!/usr/bin/env perl
use v5.12.5;
use warnings;
our $VERSION = '9999.99.99_99'; # VERSION
use Test::More tests => 19;
use Test::Warnings;
use Rex::Commands;
delete $ENV{REX_USER};
user("test");
is( Rex::Config->get_user, "test", "setting user" );
password("test");
is( Rex::Config->get_password, "test", "setting password" );
sudo_password("test");
is( Rex::Config->get_sudo_password, "test", "setting password" );
timeout(5);
is( Rex::Config->get_timeout, 5, "setting timeout" );
max_connect_retries(5);
is( Rex::Config->get_max_connect_fails, 5, "setting max connect retries" );
is( length( get_random( 5, 'a' .. 'z' ) ), 5, "get random string" );
public_key("/tmp/pub.key");
is( Rex::Config->get_public_key, "/tmp/pub.key", "set public key" );
private_key("/tmp/priv.key");
is( Rex::Config->get_private_key, "/tmp/priv.key", "set private key" );
pass_auth();
ok( Rex::Config->get_password_auth, "password auth" );
parallelism(5);
is( Rex::Config->get_parallelism, 5, "set parallelism" );
parallelism(1);
path( "/bin", "/sbin" );
is_deeply( [ Rex::Config->get_path ], [qw!/bin /sbin!], "set path" );
set( "foo", "bar" );
is( get("foo"), "bar", "set/get" );
my @ret = Rex::Commands::evaluate_hostname("test[01..04]");
is_deeply( \@ret, [qw/test01 test02 test03 test04/], "evaluate hostname" );
@ret = Rex::Commands::evaluate_hostname("test[01..04].rexify.org");
is_deeply(
  \@ret,
  [qw/test01.rexify.org test02.rexify.org test03.rexify.org test04.rexify.org/],
  "evaluate hostname / with domain"
);
@ret = Rex::Commands::evaluate_hostname("test[1..4]");
is_deeply(
  \@ret,
  [qw/test1 test2 test3 test4/],
  "evaluate hostname without zeros"
);
@ret = Rex::Commands::evaluate_hostname("test[1..4].rexify.org");
is_deeply(
  \@ret,
  [qw/test1.rexify.org test2.rexify.org test3.rexify.org test4.rexify.org/],
  "evaluate hostname with domainname / without zero"
);
@ret = Rex::Commands::evaluate_hostname("10.5.9.[8..11]");
is_deeply( \@ret, [qw/10.5.9.8 10.5.9.9 10.5.9.10 10.5.9.11/], "evaluate ip" );
@ret = Rex::Commands::evaluate_hostname("[1..3].host.domain");
is_deeply(
  \@ret,
  [qw/1.host.domain 2.host.domain 3.host.domain/],
  "evaluate leading range"
);