Change tests to reflect "no unspace in regex" rule

Author: Mouq

t/p5regex/01-p5regex.t

@@ -78,7 +78,7 @@ for @files -> $fn {
             todo($m[0], 1);
         }
         else {
-            next if $l ~~ /^\s*\# | ^\s*$ /;
+            next if $l ~~ /^ \s* '#' | ^\s*$ /;
             test_line($l);
             $tests := $tests + 1;
         }

t/qregex/01-qregex.t

@@ -85,7 +85,7 @@ for @files -> $fn {
             todo($m[0], 1);
         }
         else {
-            next if $l ~~ /^\s*\# | ^\s*$ /;
+            next if $l ~~ /^ \s* '#' | ^ \s* $ /;
             test_line($l);
             $tests := $tests + 1;
         }

t/qregex/rx_metachars

@@ -66,9 +66,9 @@ def\z			abc\ndef	<Unsupported>	retired metachars (\z)
 abc # def		abc#def		y	comments (#)
 abc # xyz		abc#def		y	comments (#)
 abc # def \n \$		abc#def		y	comments (#)
-abc \# def		abc#def		y	comments (#)
-abc \# xyz		abc#def		n	comments (#)
-^ abc \# def $		abc#def		y	comments (#)
+abc '#' def		abc#def		y	comments (#)
+abc '#' xyz		abc#def		n	comments (#)
+^ abc '#' def $		abc#def		y	comments (#)
 ^^ abc \n ^^ def	abc\ndef	y	line beginnings and endings (^^)
 # todo :pugs<feature>
 ^^ abc \n ^^ def \n ^^	abc\ndef\n	n	line beginnings and endings (^^)