[Perl] DAQ system for the FAPG.
Add tests.
.proverc
@@ -0,0 +1,2 @@
1
Added:
# .proverc
2
Added:
-j 9
t/00-ping-from-dev.t
@@ -0,0 +1,18 @@
1
Added:
#!/usr/bin/env perl
2
Added:
# -*- mode: perl-ts; -*-
3
Added:
4
Added:
use 5.32.0;
5
Added:
use strict;
6
Added:
use warnings;
7
Added:
8
Added:
use FindBin;
9
Added:
use lib "${FindBin::Bin}/lib";
10
Added:
use Test2::V0;
11
Added:
use FAPG::TestSupport qw(@HOSTS);
12
Added:
13
Added:
foreach my $h (@HOSTS) {
14
Added:
my $cmd = "ping -c 1 $h->{hostname} &> /dev/null";
15
Added:
ok system($cmd) == 0, "host $h->{hostname} can be pinged";
16
Added:
}
17
Added:
18
Added:
done_testing();
t/01-ssh-from-dev.t
@@ -0,0 +1,36 @@
1
Added:
#!/usr/bin/env perl
2
Added:
# -*- mode: perl-ts; -*-
3
Added:
4
Added:
use 5.32.0;
5
Added:
use strict;
6
Added:
use warnings;
7
Added:
8
Added:
use FindBin;
9
Added:
use lib "${FindBin::Bin}/lib";
10
Added:
use Test2::V0;
11
Added:
use FAPG::TestSupport qw(@HOSTS);
12
Added:
use Net::SSH::Perl;
13
Added:
14
Added:
foreach my $h (@HOSTS) {
15
Added:
my ( $out, $err, $exit );
16
Added:
my $timeout = 5;
17
Added:
18
Added:
my $ok = eval {
19
Added:
local $SIG{ALRM} = sub { die "SSH timeout after $timeout seconds.\n" };
20
Added:
alarm $timeout;
21
Added:
22
Added:
my $ssh = Net::SSH::Perl->new( $h->{hostname});
23
Added:
$ssh->login( $h->{user}, $h->{password} );
24
Added:
( $out, $err, $exit ) = $ssh->cmd('true');
25
Added:
26
Added:
1;
27
Added:
};
28
Added:
29
Added:
alarm 0;
30
Added:
31
Added:
ok $ok, "host $h->{hostname} can be reached via ssh";
32
Added:
diag $@ if $@;
33
Added:
34
Added:
}
35
Added:
36
Added:
done_testing();
t/lib/FAPG/TestSupport.pm
@@ -0,0 +1,55 @@
1
Added:
#!/usr/bin/env perl
2
Added:
# -*- mode: perl-ts; -*-
3
Added:
4
Added:
package FAPG::TestSupport;
5
Added:
6
Added:
use strict;
7
Added:
use warnings;
8
Added:
use Exporter 'import';
9
Added:
10
Added:
our @EXPORT_OK = qw(
11
Added:
@HOSTS
12
Added:
);
13
Added:
14
Added:
our @HOSTS = (
15
Added:
{
16
Added:
user => 'pirou',
17
Added:
hostname => 'fapg-daq-five-01',
18
Added:
password => 'pipirou',
19
Added:
mqtt_from_vps => '10.77.0.2',
20
Added:
},
21
Added:
{
22
Added:
hostname => 'vps',
23
Added:
user => 'mpeter',
24
Added:
},
25
Added:
{
26
Added:
hostname => 'fapg-daq-zero-ph-01',
27
Added:
user => 'pirou',
28
Added:
password => 'pipirou',
29
Added:
probe => 'ph',
30
Added:
unit => 'pH',
31
Added:
},
32
Added:
{
33
Added:
hostname => 'fapg-daq-zero-do-01',
34
Added:
user => 'pirou',
35
Added:
password => 'pipirou',
36
Added:
probe => 'do',
37
Added:
unit => 'mg/L',
38
Added:
},
39
Added:
{
40
Added:
hostname => 'fapg-daq-zero-orp-01',
41
Added:
user => 'pirou',
42
Added:
password => 'pipirou',
43
Added:
probe => 'redox',
44
Added:
unit => 'mV',
45
Added:
},
46
Added:
{
47
Added:
hostname => 'fapg-daq-zero-ec-01',
48
Added:
user => 'pirou',
49
Added:
password => 'pipirou',
50
Added:
probe => 'ec',
51
Added:
unit => 'uS/cm',
52
Added:
},
53
Added:
);
54
Added:
55
Added:
1;