Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
--- 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!";
+
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment