Fudge S02-lexical-conventions/unicode.t for niecza

Author: sorear

S02-lexical-conventions/unicode.t

@@ -8,55 +8,56 @@ plan 38;
 
 # Unicode variables
 # english ;-)
-lives_ok {my $foo; sub foo {}; 1}, "ascii declaration";
+lives_ok {my $foo; sub foo {}; 1}, "ascii declaration"; #OK not used
 is (do {my $bar = 2; sub id ($x) { $x }; id($bar)}), 2, "evaluation";
 
 # umlauts
-lives_ok {my $übervar; sub fü {}; 1}, "umlauts declaration";
+lives_ok {my $übervar; sub fü {}; 1}, "umlauts declaration"; #OK not used
 is (do {my $schloß = 2; sub öok ($x) { $x }; öok($schloß)}), 2, "evaluation";
 
 # monty python
-lives_ok {my $møøse; sub bïte {}; 1}, "a møøse once bit my sister";
+lives_ok {my $møøse; sub bïte {}; 1}, "a møøse once bit my sister"; #OK not used
 is (do {my $møøse = 2; sub såck ($x) { $x }; såck($møøse)}), 2,
     "møøse bites kan be preti nasti";
 
 # french
-lives_ok {my $un_variable_français; sub blâ {}; 1}, "french declaration";
+lives_ok {my $un_variable_français; sub blâ {}; 1}, "french declaration"; #OK not used
 is (do {my $frénch = 2; sub bléch ($x) { $x }; bléch($frénch)}), 2, "evaluation";
 
 # Some Chinese Characters
-lives_ok {my $一; 1}, "chinese declaration";
+lives_ok {my $一; 1}, "chinese declaration"; #OK not used
 is (do {my $二 = 2; sub 恆等($x) {$x}; 恆等($二)}), 2, "evaluation";
 
 # Tibetan Characters
-lives_ok {my $ཀ; 1}, "tibetan declaration";
+lives_ok {my $ཀ; 1}, "tibetan declaration"; #OK not used
 is (do {my $ཁ = 2; $ཁ}), 2, "evaluation";
 
 # Japanese
-lives_ok {my $い; 1}, "japanese declaration";
+lives_ok {my $い; 1}, "japanese declaration"; #OK not used
 is (do {my $に = 2; $に}), 2, "evaluation";
 
 # arabic
-lives_ok {my $الصفحة ; 1}, "arabic declaration";
+lives_ok {my $الصفحة ; 1}, "arabic declaration"; #OK not used
 is (do {my $الصفحة = 2; $الصفحة}), 2, "evaluation";
 
 # hebrew
-lives_ok {my $פוו; sub לה {}; 1}, "hebrew declaration";
+lives_ok {my $פוו; sub לה {}; 1}, "hebrew declaration"; #OK not used
 is (do {my $באר = 2; sub זהות ($x) { $x }; זהות($באר)}), 2, "evaluation";
 
 # magyar
-lives_ok {my $aáeéiíoóöőuúüű ; 1}, "magyar declaration";
+lives_ok {my $aáeéiíoóöőuúüű ; 1}, "magyar declaration"; #OK not used
 is (do {my $áéóőöúűüí = 42; sub űáéóőöúüí ($óőöú) { $óőöú }; űáéóőöúüí($áéóőöúűüí)}),
        42, "evaluation";
 
 # russian
-lives_ok {my $один; sub раз {}; 1}, "russian declaration";
+lives_ok {my $один; sub раз {}; 1}, "russian declaration"; #OK not used
 is
     (do {my $два = 2; sub идентичный ($x) { $x }; идентичный($два)}),
     2,
     "evaluation";
 
 #?rakudo 2 skip 'VOWEL SIGNs in identifiers'
+#?niecza 2 skip 'VOWEL SIGNs in identifiers'
 lives_ok { my $पहला = 1; }, "hindi declaration";
 is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल($दूसरा) }), 4, "evaluation");
 
@@ -79,17 +80,19 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
     is abc(:äöü(42)),  1042, "Unicode named params (2)";
 }
 
-#?mildew skip 'placeholders are NIY'
 # Unicode placeholder variables
+#?mildew skip 'placeholders are NIY'
+#?niecza skip 'ucfirst is NIY'
 {
     is
         ~(< foostraße barstraße fakestraße >.map: { ucfirst $^straßenname }),
         "Foostraße Barstraße Fakestraße",
         "Unicode placeholder variables";
 }
 
-#?mildew skip 'classes are NIY'
 # Unicode methods and attributes
+#?mildew skip 'classes are NIY'
+#?niecza skip 'ucfirst is NIY'
 {
     class A {
         has $!möp = 'pugs';