Find some bracket variants

coke · coke · commit 5f93731c5b8f · 2018-11-28T10:00:39.000-05:00
diff --git a/xt/braces.t b/xt/braces.t
@@ -23,15 +23,15 @@ sub test-it(Str $output, Str $file) {
     my $msg;
 
     if $output ~~ /:i <!after curly> ' braces' / {
-        $msg ~= "Found 'braces' without 'curly'. "; 
+        $msg ~= "Found 'braces' without 'curly'. ";
         $ok = False;
     }
 
-    if $output ~~ /:i <!after square> <!after angle> ' brackets' / {
-        $msg ~= "Found 'brackets' without 'square' "; 
+    if $output ~~ /:i <!after square> <!after angle> ' ' ('bracket' [s|ed]?) / {
+        $msg ~= "Found '{~$0}' without 'square' or 'angle'.";
         $ok = False;
     }
- 
+
     ok $ok, $file ~ ($msg ?? ": $msg" !! "");
 }
 

Original file line number	Diff line number	Diff line change
`@@ -23,15 +23,15 @@ sub test-it(Str $output, Str $file) {`
`23`	`23`	`my $msg;`
`24`	`24`
`25`	`25`	`if $output ~~ /:i <!after curly> ' braces' / {`
`26`		`- $msg ~= "Found 'braces' without 'curly'. ";`
	`26`	`+ $msg ~= "Found 'braces' without 'curly'. ";`
`27`	`27`	`$ok = False;`
`28`	`28`	`}`
`29`	`29`
`30`		`- if $output ~~ /:i <!after square> <!after angle> ' brackets' / {`
`31`		`- $msg ~= "Found 'brackets' without 'square' ";`
	`30`	`+ if $output ~~ /:i <!after square> <!after angle> ' ' ('bracket' [s\|ed]?) / {`
	`31`	`+ $msg ~= "Found '{~$0}' without 'square' or 'angle'.";`
`32`	`32`	`$ok = False;`
`33`	`33`	`}`
`34`		`-`
	`34`	`+`
`35`	`35`	`ok $ok, $file ~ ($msg ?? ": $msg" !! "");`
`36`	`36`	`}`
`37`	`37`