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
|
#!perl -T
use strict;
use warnings;
use Test::More tests => 5;
BEGIN {
use_ok( 'Memcached::libmemcached' );
}
my $VERSION = $Memcached::libmemcached::VERSION;
ok $VERSION, '$Memcached::libmemcached::VERSION should be defined';
diag( "Testing Memcached::libmemcached $VERSION, Perl $], $^O, $^X" );
ok defined &Memcached::libmemcached::memcached_lib_version,
'&Memcached::libmemcached::memcached_lib_version should be defined';
my $lib_version = Memcached::libmemcached::memcached_lib_version(); # 1.0.8
ok $lib_version;
# 1.0.8 => 1.00.08
(my $lib_ver = $lib_version) =~ s/\.(\d)\b/ sprintf ".%02d", $1 /eg;
$lib_ver =~ s/\.(\d+)$/$1/; # drop second period
like $VERSION, qr/^\Q$lib_ver\E\d\d/,
"$VERSION should be $lib_ver with two digits appended",
|
