add ref to ticket

coke · coke · commit b2a8ece76311 · 2020-05-05T17:55:47.000-04:00
diff --git a/xt/examples-compilation.t b/xt/examples-compilation.t
@@ -52,6 +52,7 @@ sub test-example ($eg) {
         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') {
         flunk "$eg<file> chunk starting with «" ~ starts-with($eg<contents>) ~ '» uses .perl: use .raku instead';
         next;

Original file line number	Diff line number	Diff line change
`@@ -52,6 +52,7 @@ sub test-example ($eg) {`
`52`	`52`	`flunk "$eg<file> chunk starting with «" ~ starts-with($eg<contents>) ~ '» uses dd: try say instead';`
`53`	`53`	`next;`
`54`	`54`	`}`
	`55`	`+ # #3309 - don't like .perl in examples`
`55`	`56`	`if ! $eg<ok-test>.contains('perl') && $eg<contents>.contains('.perl') {`
`56`	`57`	`flunk "$eg<file> chunk starting with «" ~ starts-with($eg<contents>) ~ '» uses .perl: use .raku instead';`
`57`	`58`	`next;`