1# Before `make install' is performed this script should be runnable with
2# `make test'. After `make install' it should work as `perl test.pl'
3
4#########################
5
6use strict;
7use_ok("version", 0.9924);
8use Test::More;
9
10BEGIN {
11    eval "use List::Util qw(reduce)";
12    if ($@) {
13	plan skip_all => "No List::Util::reduce() available";
14    } else {
15	plan tests => 3;
16    }
17}
18
19# do strict lax tests in a sub to isolate a package to test importing
20# use again to get the import()
21use List::Util qw(reduce);
22{
23    my $fail = 0;
24    my $ret = reduce {
25	version->parse($a);
26	$fail++ unless defined $a;
27	1
28    } "0.039", "0.035";
29    is $fail, 0, 'reduce() with parse';
30}
31
32{
33    my $fail = 0;
34    my $ret = reduce {
35	version->qv($a);
36	$fail++ unless defined $a;
37	1
38    } "0.039", "0.035";
39    is $fail, 0, 'reduce() with qv';
40}
41