Unfudge passing tests for JVM, mark known failures for Parrot on Mac …

…OS X manually as todo

S19-command-line/dash-e.t

@@ -6,7 +6,7 @@ use lib 't/spec/packages';
 use Test::Util;
 
 my Str $x;
-#?rakudo.jvm 3 skip "nigh"
+
 is_run $x,  :args['-e', 'print q[Moin]'],
     {
         out     => 'Moin',
@@ -15,21 +15,43 @@ is_run $x,  :args['-e', 'print q[Moin]'],
     },
     '-e print $something works';
 
-is_run $x,  :args['-e', "print q[\c[LATIN SMALL LETTER A WITH DOT ABOVE]]"],
-    {
-        out     => "\c[LATIN SMALL LETTER A WITH DOT ABOVE]",
-        err     => '',
-        status  => 0,
-    },
-    '-e print $something works with non-ASCII string literals';
+# RT #111572
+# this is a hack to avoid test failures for rakudo.parrot on Mac OS X
+# there is no easy way to fudge for a specific platform
+# the if/else doesn't work well with fudging (test count goes wrong)
+if $*DISTRO.name eq 'macosx' and $*VM.name eq 'parrot' {
+    todo('RT #111572'); is_run $x,  :args['-e', "print q[\c[LATIN SMALL LETTER A WITH DOT ABOVE]]"],
+        {
+            out     => "\c[LATIN SMALL LETTER A WITH DOT ABOVE]",
+            err     => '',
+            status  => 0,
+        },
+        '-e print $something works with non-ASCII string literals';
+    todo('RT #111572'); is_run $x,  :args['-e', 'print <1 2> »+« <1 1>'],
+        {
+            out     => "23",
+            err     => '',
+            status  => 0,
+        },
+        '-e works with non-ASCII program texts';
+}
+else {
+    is_run $x,  :args['-e', "print q[\c[LATIN SMALL LETTER A WITH DOT ABOVE]]"],
+        {
+            out     => "\c[LATIN SMALL LETTER A WITH DOT ABOVE]",
+            err     => '',
+            status  => 0,
+        },
+        '-e print $something works with non-ASCII string literals';
 
-is_run $x,  :args['-e', 'print <1 2> »+« <1 1>'],
-    {
-        out     => "23",
-        err     => '',
-        status  => 0,
-    },
-    '-e works with non-ASCII program texts';
+    is_run $x,  :args['-e', 'print <1 2> »+« <1 1>'],
+        {
+            out     => "23",
+            err     => '',
+            status  => 0,
+        },
+        '-e works with non-ASCII program texts';
+}
 
 is_run $x, :args['-e', 'say @*ARGS', '-e=foo'],
     {