[Perl] DAQ system for the FAPG.
Use Test2::V0 and simplify probe test.
roles/daq-node/t/01-probe.t
@@ -1,39 +1,27 @@
1
1
#!/usr/bin/env perl
2
Removed:
# -*- mode: perl-ts; -*-
2
Added:
# -*- mode: cperl; -*-
3
3
4
Added:
# Basic Atlas Scientific EZO probe smoke test.
5
Added:
6
Added:
use 5.40.1;
4
7
use strict;
5
8
use warnings;
6
9
7
Removed:
use Test::More tests => 3;
10
Added:
use Test2::V0;
11
Added:
plan tests => 3;
12
Added:
use Device::SerialPort;
8
13
use Time::HiRes qw(usleep);
9
14
10
Removed:
# Basic Atlas Scientific EZO probe smoke test.
11
Removed:
#
12
Removed:
# Run on a daq-node:
13
Removed:
# prove -v t/probe.t
14
Removed:
#
15
Removed:
# Optional overrides:
16
Removed:
# FAPG_DAQ_SERIAL_PORT=/dev/ttyUSB1 FAPG_DAQ_SERIAL_BAUD=9600 prove -v t/probe.t
15
Added:
my $port = '/dev/ttyUSB0';
16
Added:
my $baud = 9600;
17
17
18
Removed:
my $port = $ENV{FAPG_DAQ_SERIAL_PORT} // $ARGV[0] // '/dev/ttyUSB0';
19
Removed:
my $baud = $ENV{FAPG_DAQ_SERIAL_BAUD} // $ARGV[1] // 9600;
20
Removed:
21
Removed:
my $serial_module_ok = eval {
22
Removed:
require Device::SerialPort;
23
Removed:
Device::SerialPort->import;
24
Removed:
1;
25
Removed:
};
26
Removed:
27
Removed:
BAIL_OUT("Device::SerialPort is required: $@") unless $serial_module_ok;
28
Removed:
BAIL_OUT("Serial port does not exist: $port") unless -e $port;
29
Removed:
30
18
my $serial = Device::SerialPort->new($port)
31
19
or BAIL_OUT("Cannot open serial port: $port");
32
20
33
Removed:
$serial->baudrate($baud) or BAIL_OUT("Cannot set baudrate to $baud");
34
Removed:
$serial->databits(8) or BAIL_OUT('Cannot set databits to 8');
35
Removed:
$serial->parity('none') or BAIL_OUT('Cannot set parity to none');
36
Removed:
$serial->stopbits(1) or BAIL_OUT('Cannot set stopbits to 1');
21
Added:
$serial->baudrate($baud);
22
Added:
$serial->databits(8);
23
Added:
$serial->parity('none');
24
Added:
$serial->stopbits(1);
37
25
38
26
$serial->read_char_time(0);
39
27
$serial->read_const_time(100);
@@ -87,9 +75,10 @@
87
75
sub clean_reply {
88
76
my ($reply) = @_;
89
77
90
Removed:
$reply =~ s/\r/\n/g;
91
Removed:
$reply =~ s/\n+/\n/g;
92
Removed:
$reply =~ s/^\n|\n$//g;
78
Added:
$reply
79
Added:
=~ s/\r/\n/gr
80
Added:
=~ s/\n+/\n/gr
81
Added:
=~ s/^\n|\n$//g;
93
82
94
83
return $reply;
95
84
}