Skip to content

Commit

Permalink
Test no crash in eqv with conted Versions
Browse files Browse the repository at this point in the history
  • Loading branch information
zoffixznet committed Jan 1, 2018
1 parent fa3b0cb commit c892d60
Showing 1 changed file with 8 additions and 1 deletion.
9 changes: 8 additions & 1 deletion S02-types/version.t
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@ use lib <t/spec/packages/>;
use Test;
use Test::Util;

plan 44;
plan 45;

my sub vtest($cmp, *@v) {
my $x = shift @v;
Expand Down Expand Up @@ -70,6 +70,13 @@ is v12.3.4 cmp Version.new("12.3.4"), Order::Same, 'can parse literal versions w
ok $future-versions-ok, 'v6. is newer than v2 for c..zz [Version.new]';
}

# https://github.com/rakudo/rakudo/commit/72ee58e2f7
subtest '`eqv` on containerized Version objects' => {
plan 2;
is-deeply ($ = v1) eqv ($ = v2.2.3), False, 'False result';
is-deeply ($ = v3) eqv ($ = v3 ), True, 'True result';
}

# https://irclog.perlgeek.de/perl6/2017-06-24#i_14781849
is_run use v6c; print "OK";, {:out('OK'), :err(''), :0status},
'can use `v6c` version literal (no dot) when specifying Perl 6 version';

0 comments on commit c892d60

Please sign in to comment.