[Perl] DAQ system for the FAPG.
1
use Mojo::Base -strict;
2
3
use Test2::V0;
4
5
use FindBin;
6
use lib "${FindBin::Bin}/../lib/";
7
use lib "${FindBin::Bin}/lib/";
8
use Dashboard::Test qw(test_app);
9
10
my $t = test_app();
11
12
$t->get_ok('/api/status')
13
->status_is(200)
14
->json_is( '/statuses/ph/status' => 'ok' )
15
->json_is( '/statuses/hub/node' => 'fapg-daq-five-01' )
16
->json_is( '/statuses/do/status' => 'unreachable' )
17
->json_is( '/statuses/orp' => undef )
18
->json_is( '/statuses/ec' => undef );
19
20
$t->get_ok('/api/status/ph')
21
->status_is(200)
22
->json_is( '/probe' => 'ph' )
23
->json_is( '/status/status' => 'ok' );
24
25
$t->get_ok('/api/status/hub')
26
->status_is(200)
27
->json_is( '/probe' => 'hub' )
28
->json_is( '/status/status' => 'ok' )
29
->json_is( '/status/node' => 'fapg-daq-five-01' );
30
31
$t->get_ok('/api/status/do')
32
->status_is(200)
33
->json_is( '/probe' => 'do' )
34
->json_is( '/status/status' => 'unreachable' )
35
->json_is(
36
'/status/message' => 'No status received in the last 120 seconds' );
37
38
$t->get_ok('/api/status/nope')->status_is(404);
39
40
done_testing;
41