Test that you can declaratively document Block objects

Author: hoelzro

S26-documentation/why-both.t

@@ -1,5 +1,5 @@
 use Test;
-plan 284;
+plan 291;
 
 my $pod_index = 0;
 
@@ -302,4 +302,11 @@ sub has-where(Int $n where * > 10) {}
 
 test-both(&has-where, "where constraints shouldn't", 'prevent declarative comments');
 
+#| this is
+my $block = {;
+};
+#= a block
+
+test-both($block, 'this is', 'a block');
+
 is $=pod.elems, $pod_index;

S26-documentation/why-leading.t

@@ -1,5 +1,5 @@
 use Test;
-plan 348;
+plan 355;
 
 my $pod_index = 0;
 
@@ -315,4 +315,10 @@ sub has-where(Int $n where * > 10) {}
 
 test-leading(&has-where, "where constraints shouldn't prevent declarative comments");
 
+#| this is a block
+my $block = {;
+};
+
+test-leading($block, 'this is a block');
+
 is $=pod.elems, $pod_index;

S26-documentation/why-trailing.t

@@ -1,5 +1,5 @@
 use Test;
-plan 341;
+plan 348;
 
 my $pod_index = 0;
 
@@ -306,4 +306,10 @@ sub has-where(Int $n where * > 10) {}
 
 test-trailing(&has-where, "where constraints shouldn't prevent declarative comments");
 
+my $block = {;
+};
+#= this is a block
+
+test-trailing($block, 'this is a block');
+
 is $=pod.elems, $pod_index;