Permalink
Browse files

Test dotless version literal can be used in `use`

1 parent 04b5e39 commit 4d2b5a5b5f6525e8206fbb58d97de5387d773d96 @zoffixznet zoffixznet committed Jun 24, 2017
Showing with 7 additions and 1 deletion.
  1. +7 −1 S02-types/version.t
View
@@ -1,7 +1,9 @@
use v6;
+use lib <t/spec/packages/>;
use Test;
+use Test::Util;
-plan 43;
+plan 44;
my sub vtest($cmp, *@v) {
my $x = shift @v;
@@ -67,3 +69,7 @@ is v12.3.4 cmp Version.new("12.3.4"), Order::Same, 'can parse literal versions w
(Version.new("6.$_") cmp v2) ~~ Order::More or $future-versions-ok = False for 'c' .. 'zz';
ok $future-versions-ok, 'v6. is newer than v2 for c..zz [Version.new]';
}
+
+# 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 4d2b5a5

Please sign in to comment.