diff.diff

--- t/spec/S15-nfg/GraphemeBreakTest.t  2017-05-10 14:11:24.536339194 -0700
+++ t/spec/S15-nfg/GraphemeBreakTest.rakudo.moar        2017-05-10 14:12:18.021689082 -0700
@@ -22,7 +22,7 @@
 #      - the sample character name
 #      - (x) the Grapheme_Cluster_Break property value for the sample character
 #      - [x] the rule that determines whether there is a break or not
-constant %fudged-tests = {
+{ constant %fudged-tests = {
     224 => ['ALL'],
     442 => [0],
     573 => ['ALL'],
@@ -35,7 +35,7 @@
     837 => ['ALL'],
     839 => ['ALL'],
 };
-sub MAIN (Str:D :$file? = $location, Str :$only?, Bool:D :$debug = False) {
+ }sub MAIN (Str:D :$file? = $location, Str :$only?, Bool:D :$debug = False) {
     my @only = $only ?? $only.split([',', ' ']) !! Empty;
     die "Can't find file at ", $file.IO.absolute unless $file.IO.f;
     say "Reading file ", $file.IO.absolute;
@@ -125,4 +125,6 @@
         }
         is-deeply $list<string>.substr($elem, 1).ords.flat, $list<ord-array>[$elem].flat, "Line $line-no: grapheme $elem has correct codepoints" or @fail.push($line-no);
     }
-}
\ No newline at end of file
+}
+say "# FUDGED!";
+