Help language development. Donate to The Perl Foundation

META6 cpan:JSTOWE last updated on 2021-08-09

t/030-versions.t
#!raku

use v6;
use Test;

use META6;

my $warnings = 0;

my IO::Path $data-dir = $*PROGRAM.parent.add("data");

my IO::Path $meta-path = $data-dir.add('META-V.info');

my $obj;

{
    CONTROL {
        when CX::Warn {
            say $_.message;
            if $_.message ~~ /'prefix "v" seen in version string'/ {
                $warnings++;
                $_.resume;
            }
        }
    };
    $obj = META6.new(file => $meta-path);
}

is $obj.version, "0.0.1", "object get good version";
is $obj.raku-version, "6", "got right raku version";

is $warnings, 1, "got exactly 1 warning about v";




done-testing;
# vim: expandtab shiftwidth=4 ft=raku