Reindent to test shippable refs #2489

Author: JJ

doc/Type/Test.pod6

@@ -41,22 +41,25 @@ C<subtest>'s L«C<Callable>|/type/Callable». For that reason, to be able to
 use C<:skip-all> inside a C<subtest>, you must use a C<sub> instead of a
 regular block:
 
-    plan 2;
-    subtest "Some Windows tests" => sub { # <-- note the `sub`; can't use bare block
-        plan :skip-all<We aren't on Windows> unless $*DISTRO.is-win;
-        plan 1;
-        ok dir 'C:/'; # this won't get run on non-Windows
-    }
-    ok 42; # this will run everywhere and isn't affected by skip-all inside subtest
+=begin code
+plan 2;
+subtest "Some Windows tests" => sub { # <-- note the `sub`; can't use bare block
+    plan :skip-all<We aren't on Windows> unless $*DISTRO.is-win;
+    plan 1;
+    ok dir 'C:/'; # this won't get run on non-Windows
+}
+ok 42; # this will run everywhere and isn't affected by skip-all inside subtest
+=end code
 
-Note that C<plan> with C<:skip-all> is to avoid performing any tests without marking the
-test run as failed (i.e. the plan is to not run anything and that's all good). Use
-L«C<skip-rest>|/language/testing#index-entry-skip-rest-skip-rest($reason?)» to skip
-all further tests, once the run has started (i.e. planned to run some tests, maybe
-even ran some, but now we're skipping all the rest of them). Use
-L«C<bail-out>|/language/testing#index-entry-bail-out-bail-out($reason?)» to fail the
-test run without running any further tests (i.e. things are so bad, there's no point
-in running anything else; we've failed).
+Note that C<plan> with C<:skip-all> is to avoid performing any tests without
+marking the test run as failed (i.e. the plan is to not run anything and that's
+all good). Use
+L«C<skip-rest>|/language/testing#index-entry-skip-rest-skip-rest($reason?)» to
+skip all further tests, once the run has started (i.e. planned to run some
+tests, maybe even ran some, but now we're skipping all the rest of them). Use
+L«C<bail-out>|/language/testing#index-entry-bail-out-bail-out($reason?)» to fail
+the test run without running any further tests (i.e. things are so bad, there's
+no point in running anything else; we've failed).
 
 =head2 sub done-testing
 
@@ -167,8 +170,9 @@ B<Note:> if I<only> whitespace differs between the values, C<is()> will output f
 message differently, to show the whitespace in each values. For example, in the
 output below, the second test shows the literal C<\t> in the C<got:> line:
 
-    is "foo\tbar", "foo\tbaz";   # expected: 'foo     baz'␤#      got: 'foo   bar'
-    is "foo\tbar", "foo    bar"; # expected: "foo    bar"␤#      got: "foo\tbar"
+=for code
+is "foo\tbar", "foo\tbaz";   # expected: 'foo     baz'␤#      got: 'foo   bar'
+is "foo\tbar", "foo    bar"; # expected: "foo    bar"␤#      got: "foo\tbar"
 
 =head2 sub isnt
 
@@ -193,7 +197,9 @@ Defined as:
 
     multi sub is-approx(Numeric $got, Numeric $expected, $desc = '')
 
-    multi sub is-approx(Numeric $got, Numeric $expected, Numeric $abs-tol,$desc = '')
+=for code :method
+    multi sub is-approx(Numeric $got, Numeric $expected, Numeric $abs-tol,
+                        $desc = '')
 
 =for code :method
     multi sub is-approx(Numeric $got, Numeric $expected, $desc = '',