Fix == to ===

We want identity, not numerical, comparison
Raku · Aug 2, 2014 · 947e4a6 · 947e4a6
1 parent 2129598
commit 947e4a6
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/S26-documentation/why-leading.t b/S26-documentation/why-leading.t
@@ -273,13 +273,13 @@ role Boxer {
 }
 
 is Boxer.WHY.contents, "Are you talking to me?";
-ok Boxer.WHY.WHEREFORE == Boxer, "role WHEREFORE matches";
+ok Boxer.WHY.WHEREFORE === Boxer, "role WHEREFORE matches";
 is Boxer.WHY.leading, "Are you talking to me?";
 ok !Boxer.WHY.trailing.defined;
 
 my $role-method = Boxer.^find_method('actor');
 is $role-method.WHY.contents, "Robert De Niro";
-ok $role-method.WHY.WHEREFORE == Method, "method within role WHEREFORE matches";
+ok $role-method.WHY.WHEREFORE === $Method, "method within role WHEREFORE matches";
 is $role-method.WHY.leading, "Robert De Niro";
 ok !$role-method.WHY.trailing.defined;
 
@@ -296,7 +296,7 @@ class C {
 my $sm = C.^find_method("BUILD");
 
 is $sm.WHY.contents, "Bob";
-ok $sm.WHY.WHEREFORE == Submethod, "submethod WHEREFORE matches";
+ok $sm.WHY.WHEREFORE === Submethod, "submethod WHEREFORE matches";
 
 ok $=pod[$pod_index].WHEREFORE === Submethod;
 is ~$=pod[$pod_index++], "Bob";
@@ -314,29 +314,29 @@ grammar G {
 
 
 is G.WHY.contents, "grammar";
-ok G.WHY.WHEREFORE == Grammar, "grammar";
+ok G.WHY.WHEREFORE === Grammar, "grammar";
 is G.WHY.leading, "grammar";
 ok !G.WHY.trailing.defined;
 ok $=pod[$pod_index].WHEREFORE === Grammar;
 is ~$=pod[$pod_index++], "Bob";
 
 my $rule = G.^find_method("R");
 is $rule.WHY.contents, "rule";
-ok $rule.WHY.WHEREFORE == Regex, "rule";
+ok $rule.WHY.WHEREFORE === Regex, "rule";
 is G.WHY.leading, "rule";
 ok $=pod[$pod_index].WHEREFORE === Regex;
 is ~$=pod[$pod_index++], "rule";
 
 my $token = G.^find_method("T");
 is $rule.WHY.contents, "token";
-ok $rule.WHY.WHEREFORE == Regex, "token";
+ok $rule.WHY.WHEREFORE === Regex, "token";
 is G.WHY.leading, "token";
 ok $=pod[$pod_index].WHEREFORE === Regex;
 is ~$=pod[$pod_index++], "token";
 
 my $regex = G.^find_method("X");
 is $rule.WHY.contents, "regex";
-ok $rule.WHY.WHEREFORE == Regex, "regex";
+ok $rule.WHY.WHEREFORE === Regex, "regex";
 is G.WHY.leading, "regex";
 ok $=pod[$pod_index].WHEREFORE === Regex;
 is ~$=pod[$pod_index++], "regex";