Allow LAX running of compilation tests

Author: coke

xt/examples-compilation.rakutest

@@ -24,6 +24,9 @@ avoid requiring a body.
 Skip any bits marked C<:skip-test> unless the environment variable
 C<RAKU_DOC_TEST_FUDGE> is set to a true value.
 
+Complain about any stylistic issues unless the environment variable
+C<RAKU_DOC_TEST_LAX> is set to a true value.
+
 Note: This test generates a lot of noisy output to stderr; we
 do hide $*ERR, but some of these are emitted from parts of
 the compiler that only know about the low level handle, not the
@@ -57,22 +60,21 @@ sub test-example ($eg) {
         next;
     }
     # #1355 - don't like .WHAT in examples
-    if ! $eg<ok-test>.contains('WHAT') && $eg<contents>.contains('.WHAT') {
+    if !%*ENV<RAKU_DOC_TEST_LAX> && !$eg<ok-test>.contains('WHAT') && $eg<contents>.contains('.WHAT') {
         flunk "$eg<file> chunk starting with «" ~ starts-with($eg<contents>) ~ '» uses .WHAT: try .^name instead';
         next;
     }
-    if ! $eg<ok-test>.contains('dd') && $eg<contents> ~~ / << 'dd' >> / {
+    if !%*ENV<RAKU_DOC_TEST_LAX> && !$eg<ok-test>.contains('dd') && $eg<contents> ~~ / << 'dd' >> / {
         flunk "$eg<file> chunk starting with «" ~ starts-with($eg<contents>) ~ '» uses dd: try say instead';
         next;
     }
     # #3309 - don't like .perl in examples
-    if ! $eg<ok-test>.contains('perl') && $eg<contents>.contains('.perl') {
+    if !%*ENV<RAKU_DOC_TEST_LAX> && !$eg<ok-test>.contains('perl') && $eg<contents>.contains('.perl') {
         flunk "$eg<file> chunk starting with «" ~ starts-with($eg<contents>) ~ '» uses .perl: use .raku instead';
         next;
     }
-
     # #1189 - don't use "multi sub"
-    if ! $eg<ok-test>.contains('multi') && $eg<contents>.contains('multi sub') {
+    if !%*ENV<RAKU_DOC_TEST_LAX> && !$eg<ok-test>.contains('multi') && $eg<contents>.contains('multi sub') {
         flunk "$eg<file> chunk $eg<count>" ~ ' uses multi sub: use multi instead';
         next;
     }