Skip to content

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
...
  • 2 commits
  • 2 files changed
  • 0 commit comments
  • 1 contributor
Showing with 14 additions and 3 deletions.
  1. +3 −2 S02-types/bool.t
  2. +11 −1 S03-junctions/misc.t
View
5 S02-types/bool.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 49;
+plan 51;
#L<S12/Built-in Enumerations/"Two built-in enumerations are">
@@ -50,7 +50,8 @@ is Bool::True.Str, 'True', 'True.Str';
is Bool::False.Str, 'False', 'False.Str';
is Bool::True.gist, 'Bool::True', 'True.gist';
is Bool::False.gist, 'Bool::False', 'False.gist';
-
+is Bool::True.perl, 'Bool::True', 'True.perl';
+is Bool::False.perl, 'Bool::False', 'False.perl';
# numification - interaction with +
#?niecza 2 skip "Numeric"
View
12 S03-junctions/misc.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 99;
+plan 101;
=begin pod
@@ -408,6 +408,16 @@ ok Mu & Mu ~~ Mu, 'Mu & Mu ~~ Mu works';
ok %h{all(0,1)} ~~ /^foo/,
'junction can be used to index Hash';
}
+# stringy tests
+{
+ my class Foo {
+ multi method gist(Foo:D:) { "gisted"; }
+ multi method perl(Foo:D:) { "perled"; }
+ multi method Str(Foo:D:) { "Stred"; }
+ }
+ is any(Foo.new).perl, 'any(perled)', 'any(Foo.new).perl';
+ is any(Foo.new).gist, 'any(gisted)', 'any(Foo.new).gist';
+}
done();

No commit comments for this range

Something went wrong with that request. Please try again.