"Fossies" - the Fresh Open Source Software Archive

Member "perl-5.32.1/cpan/Scalar-List-Utils/t/00version.t" (18 Dec 2020, 615 Bytes) of package /linux/misc/perl-5.32.1.tar.xz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 #!./perl
    2 
    3 use strict;
    4 use warnings;
    5 
    6 use Scalar::Util ();
    7 use List::Util ();
    8 use List::Util::XS ();
    9 use Sub::Util ();
   10 use Test::More tests => 4;
   11 
   12 is( $Scalar::Util::VERSION, $List::Util::VERSION, "VERSION mismatch between Scalar/List");
   13 my $has_xs = eval { Scalar::Util->import('dualvar'); 1 };
   14 my $xs_version = $has_xs ? $List::Util::VERSION : undef;
   15 is( $List::Util::XS::VERSION, $xs_version, "VERSION mismatch between LU::XS and LU");
   16 is( $Sub::Util::VERSION, $Scalar::Util::VERSION, "VERSION mistmatch between Sub/Scalar");
   17 is( $Sub::Util::VERSION, $List::Util::VERSION, "VERSION mistmatch between Sub/List");
   18