t/options_version.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

#!/usr/bin/perl

# Testing --version, -V

use strict;
use warnings;
use v5.10;

use JSON;
use Test::More;

chdir '..';
my $json;
my $ret;

my $version = `cat .version`;
chomp $version;

$ret = `./mon --version`;
chomp $ret;
cmp_ok($ret, 'eq', $version, 'Testing version');

$ret = `./mon -V`;
chomp $ret;
cmp_ok($ret, 'eq', $version, 'Testing version');


done_testing();