Promise.has_result -> Promise.bool as per new spec

Author: lizmat

S17-concurrency/promise.t

@@ -6,13 +6,13 @@ plan 58;
 {
     my $p = Promise.new;
     is $p.status, Planned, "Newly created Promise has Planned status";
-    nok $p.has_result, "Newly created Promise has now result yet";
+    nok $p.Bool, "Newly created Promise has now result yet";
     nok ?$p, "Newly created Promise is false";
     dies_ok { $p.cause }, "Cannot call cause on a Planned Promise";
 
     $p.keep("kittens");
     is $p.status, Kept, "Kept Promise has Kept status";
-    ok $p.has_result, "Kept Promise has a result";
+    ok $p.Bool, "Kept Promise has a result";
     ok ?$p, "Kept Promise is true";
     is $p.result, "kittens", "Correct result";
 
@@ -25,7 +25,7 @@ plan 58;
     my $p = Promise.new;
     $p.break("glass");
     is $p.status, Broken, "Broken Promise has Broken status";
-    ok $p.has_result, "Broken Promise has a result";
+    ok $p.Bool, "Broken Promise has a result";
     ok ?$p, "Broken Promise is true";
     isa_ok $p.cause, Exception, "cause returns an exception";
     is $p.cause.message, "glass", "Correct message";
@@ -110,7 +110,7 @@ plan 58;
     my $p2 = Promise.new;
     my $pany = Promise.anyof($p1, $p2);
     isa_ok $pany, Promise, "anyof returns a Promise";
-    nok $pany.has_result, "No result yet";
+    nok $pany.Bool, "No result yet";
 
     $p1.keep(1);
     is $pany.result, True, "result is true";
@@ -139,10 +139,10 @@ plan 58;
     my $p2 = Promise.new;
     my $pall = Promise.allof($p1, $p2);
     isa_ok $pall, Promise, "allof returns a Promise";
-    nok $pall.has_result, "No result yet";
+    nok $pall.Bool, "No result yet";
 
     $p1.keep(1);
-    nok $pall.has_result, "Still not kept";
+    nok $pall.Bool, "Still not kept";
 
     $p2.keep(1);
     is $pall.result, True, "result is true after both kept";