File: 00-use.t

package info (click to toggle)
gearman-server 1.130.1-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, stretch
  • size: 164 kB
  • ctags: 87
  • sloc: perl: 1,084; sh: 52; makefile: 2
file content (26 lines) | stat: -rw-r--r-- 396 bytes parent folder | download | duplicates (2) 
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
 
use strict;
use warnings;

use version;
use Test::More;
use Test::Script;

my @mn = qw/
    Gearman::Server
    Gearman::Server::Client
    Gearman::Server::Listener
    Gearman::Server::Job
    /;

my $v = qv("v1.130.1");

foreach my $n (@mn) {
    use_ok($n);
    my $_v = eval '$' . $n . '::VERSION';
    is($_v, $v, "$n version is $v");
}

script_compiles_ok("bin/gearmand");

done_testing;