More unicode love

Author: AlexDaniel

Benchable.p6

@@ -43,7 +43,7 @@ multi method benchmark-code($full-commit, $filename) {
     my %stats;
     for ^ITERATIONS {
         my $result = self.run-snippet: $full-commit, $filename;
-        if $result<exit-code> != 0 {
+        if $result<exit-code> ≠ 0 {
             %stats<err> = “«run failed, exit code = $result<exit-code>, exit signal = $result<signal>»”;
             return %stats
         }
@@ -65,7 +65,7 @@ multi method benchmark-code($full-commit-hash, @code) {
 
     # lock on the destination directory to make
     # sure that other bots will not get in our way.
-    while run(‘mkdir’, ‘--’, “{BUILDS-LOCATION}/rakudo-moar/$full-commit-hash”).exitcode != 0 {
+    while run(‘mkdir’, ‘--’, “{BUILDS-LOCATION}/rakudo-moar/$full-commit-hash”).exitcode ≠ 0 {
         sleep 0.5;
         # Uh, wait! Does it mean that at the same time we can use only one
         # specific build? Yes, and you will have to wait until another bot
@@ -159,7 +159,7 @@ Z:      loop (my $x = 0; $x < @commits - 1; $x++) {
 
             next unless %times{@commits[$x]}:exists and %times{@commits[$x + 1]}:exists;          # the commits have to have been run at all
             next if %times{@commits[$x]}<err>:exists or %times{@commits[$x + 1]}<err>:exists;     # and without error
-            if abs(%times{@commits[$x]}<min> - %times{@commits[$x + 1]}<min>) >= %times{@commits[$x]}<min> × 0.1 {
+            if abs(%times{@commits[$x]}<min> - %times{@commits[$x + 1]}<min>) ≥ %times{@commits[$x]}<min> × 0.1 {
                 my $result = self.get-output: ‘git’, ‘rev-list’, ‘--bisect’, ‘--no-merges’, @commits[$x] ~ ‘^..’ ~ @commits[$x + 1];
                 my $new-commit = $result<output>;
                 if $result<exit-code> == 0 and defined $new-commit and $new-commit ne ‘’ {
@@ -178,7 +178,7 @@ Z:      loop (my $x = 0; $x < @commits - 1; $x++) {
 
     @commits .= map: { self.get-short-commit: $_ };
 
-    if @commits >= ITERATIONS {
+    if @commits ≥ ITERATIONS {
         my $pfilename = ‘plot.svg’;
         my $title = “$config $code”.trans: ｢"｣ => ｢\"｣;
         my @valid-commits = @commits.grep: { %times{$_}<err>:!exists };

Bisectable.p6

@@ -46,7 +46,7 @@ method run-bisect($code-file, *%_ (:$old-exit-code, :$old-exit-signal, :$old-out
         my $result = self.get-output: ‘git’, ‘bisect’, $revision-type.lc;
         $status = $result<exit-code>;
         last if $result<output> ~~ /^^ \S+ ‘ is the first new commit’ /; # TODO just return this
-        last if $result<exit-code> != 0;
+        last if $result<exit-code> ≠ 0;
         LAST take $result<output>
     }
     return @bisect-log.join(“\n”), $status
@@ -89,7 +89,7 @@ method test-commit($code-file, :$old-exit-code, :$old-exit-signal, :$old-output)
     with $old-exit-signal {
         take ‘»»»»» Bisecting by exit signal’;
         take “»»»»» Current exit signal is {signal-to-text $result<signal>}, exit signal on “old” revision is {signal-to-text $old-exit-signal}”;
-        if $old-exit-signal != 0 {
+        if $old-exit-signal ≠ 0 {
             take “»»»»» Note that on “old” revision exit signal is normally {signal-to-text 0}, you are probably trying to find when something was fixed”
         }
         take ‘»»»»» If exit signal is not the same as on “old” revision, this revision will be marked as “new”’;
@@ -102,7 +102,7 @@ method test-commit($code-file, :$old-exit-code, :$old-exit-signal, :$old-output)
     with $old-exit-code {
         take ‘»»»»» Bisecting by exit code’;
         take “»»»»» Current exit code is $result<exit-code>, exit code on “old” revision is $old-exit-code”;
-        if $old-exit-code != 0 {
+        if $old-exit-code ≠ 0 {
             take ‘»»»»» Note that on “old” revision exit code is normally 0, you are probably trying to find when something was fixed’
         }
         take ‘»»»»» If exit code is not the same as on “old” revision, this revision will be marked as “new”’;
@@ -201,7 +201,7 @@ method process($msg, $code is copy, $old, $new) {
     if  $old-result<exit-code>   == $new-result<exit-code>
     and $old-result<signal>      == $new-result<signal>
     and $old-result<output>      eq $new-result<output>      {
-        if $old-result<signal> != 0 {
+        if $old-result<signal> ≠ 0 {
             $msg.reply: “On both starting points (old=$short-old new=$short-new) the exit code is $old-result<exit-code>, exit signal is {signal-to-text $old-result<signal>} and the output is identical as well”
         } else {
             $msg.reply: “On both starting points (old=$short-old new=$short-new) the exit code is $old-result<exit-code> and the output is identical as well”
@@ -215,29 +215,29 @@ method process($msg, $code is copy, $old, $new) {
 
     my $bisect-start = self.get-output: ‘git’, ‘bisect’, ‘start’;
     my $bisect-old   = self.get-output: ‘git’, ‘bisect’, ‘old’, $full-old;
-    if $bisect-start<exit-code> != 0 and $bisect-old<exit-code> != 0 {
+    if $bisect-start<exit-code> ≠ 0 and $bisect-old<exit-code> ≠ 0 {
         self.beg-for-help: $msg;
-        return ‘Failed to run ｢bisect start｣’  if $bisect-start<exit-code> != 0;
-        return ‘Failed to run ｢bisect old …”｣’ if $bisect-old<exit-code>   != 0
+        return ‘Failed to run ｢bisect start｣’  if $bisect-start<exit-code> ≠ 0;
+        return ‘Failed to run ｢bisect old …”｣’ if $bisect-old<exit-code>   ≠ 0
     }
 
     my $init-result = self.get-output: ‘git’, ‘bisect’, ‘new’, $full-new;
-    if $init-result<exit-code> != 0 {
+    if $init-result<exit-code> ≠ 0 {
         $msg.reply: ‘bisect log: ’ ~ self.upload: { query  => $msg.text,
                                                     result => colorstrip($init-result<output>), },
                                                   description => $msg.server.current-nick,
                                                   public => !%*ENV<DEBUGGABLE>;
         return ‘bisect init failure. See the log for more details’
     }
     my ($bisect-output, $bisect-status);
-    if $old-result<signal> != $new-result<signal> {
+    if $old-result<signal> ≠ $new-result<signal> {
         $msg.reply: “Bisecting by exit signal (old=$short-old new=$short-new). Old exit signal: {signal-to-text $old-result<signal>}”;
         ($bisect-output, $bisect-status) = self.run-bisect: $filename, :old-exit-signal($old-result<signal>)
-    } elsif $old-result<exit-code> != $new-result<exit-code> {
+    } elsif $old-result<exit-code> ≠ $new-result<exit-code> {
         $msg.reply: “Bisecting by exit code (old=$short-old new=$short-new). Old exit code: $old-result<exit-code>”;
         ($bisect-output, $bisect-status) = self.run-bisect: $filename, :old-exit-code($old-result<exit-code>)
     } else {
-        if $old-result<signal> != 0 {
+        if $old-result<signal> ≠ 0 {
             $msg.reply: “Bisecting by output (old=$short-old new=$short-new) because on both starting points the exit code is $old-result<exit-code> and exit signal is {signal-to-text $old-result<signal>}”
         } else {
             $msg.reply: “Bisecting by output (old=$short-old new=$short-new) because on both starting points the exit code is $old-result<exit-code>”
@@ -253,7 +253,7 @@ method process($msg, $code is copy, $old, $new) {
         my $good-revs = self.get-output(‘git’, ‘for-each-ref’, ‘--format=%(objectname)’, ‘refs/bisect/old-*’)<output>;
         my @possible-revs = self.get-output(‘git’, ‘rev-list’, ‘refs/bisect/new’, ‘--not’, |$good-revs.lines)<output>.lines;
         return “There are {+@possible-revs} candidates for the first “new” revision. See the log for more details”
-    } elsif $bisect-status != 0 {
+    } elsif $bisect-status ≠ 0 {
         return ｢‘bisect run’ failure. See the log for more details｣
     } else {
         my $link-msg = self.get-output(‘git’, ‘show’, ‘--quiet’, ‘--date=short’,

Committable.p6

@@ -87,8 +87,8 @@ method process($msg, $config is copy, $code is copy) {
             if $result<signal> < 0 { # numbers less than zero indicate other weird failures
                 $output = “Cannot test this commit ($output)”
             } else {
-                $output ~= “ «exit code = $result<exit-code>»” if $result<exit-code> != 0;
-                $output ~= “ «exit signal = {Signal($result<signal>)} ($result<signal>)»” if $result<signal> != 0
+                $output ~= “ «exit code = $result<exit-code>»” if $result<exit-code> ≠ 0;
+                $output ~= “ «exit signal = {Signal($result<signal>)} ($result<signal>)»” if $result<signal> ≠ 0
             }
         }
         my $short-commit = self.get-short-commit: $commit;

Evalable.p6

@@ -79,14 +79,14 @@ method process($message, $code is copy) {
         if $result<signal> < 0 { # numbers less than zero indicate other weird failures
             $output = “Cannot test $full-commit ($result<output>)”
         } else {
-            $extra ~= “(exit code $result<exit-code>) ”     if $result<exit-code> != 0;
-            $extra ~= “(signal {Signal($result<signal>)}) ” if $result<signal>    != 0
+            $extra ~= “(exit code $result<exit-code>) ”     if $result<exit-code> ≠ 0;
+            $extra ~= “(signal {Signal($result<signal>)}) ” if $result<signal>    ≠ 0
         }
     }
 
     my $reply-start = “rakudo-moar $short-commit: OUTPUT: «$extra”;
     my $reply-end = ‘»’;
-    if MESSAGE-LIMIT >= ($reply-start, $output, $reply-end).map(*.encode.elems).sum {
+    if MESSAGE-LIMIT ≥ ($reply-start, $output, $reply-end).map(*.encode.elems).sum {
         return $reply-start ~ $output ~ $reply-end
     }
     my $link = self.upload: {‘result’ => ($extra ⁇ “$extra\n” ‼ ‘’) ~ colorstrip($output),

Misc.pm6

@@ -26,7 +26,7 @@ role PrettyLink { has &.link-msg         }
 role FileStore  { has %.additional-files }
 
 sub shorten($str, $max, $cutoff=$max ÷ 2) is export {
-    $max >= $str.chars ⁇ $str ‼ $str.substr(0, $cutoff - 1) ~ ‘…’
+    $max ≥ $str.chars ⁇ $str ‼ $str.substr(0, $cutoff - 1) ~ ‘…’
 }
 
 sub fuzzy-nick($nick, $distance) is export {

Unicodable.p6

@@ -126,9 +126,9 @@ method process($msg, $query is copy) {
                 $output = “Something went wrong ($output)”;
                 return $output
             } else {
-                $output ~= “ «exit code = $result<exit-code>»” if $result<exit-code> != 0;
-                $output ~= “ «exit signal = {Signal($result<signal>)} ($result<signal>)»” if $result<signal> != 0;
-                return $output if $result<exit> != 0 or $result<signal> != 0
+                $output ~= “ «exit code = $result<exit-code>»” if $result<exit-code> ≠ 0;
+                $output ~= “ «exit signal = {Signal($result<signal>)} ($result<signal>)»” if $result<signal> ≠ 0;
+                return $output if $result<exit> ≠ 0 or $result<signal> ≠ 0
             }
         }
         if $output {

Whateverable.pm6

@@ -143,7 +143,7 @@ method get-similar($tag-or-hash, @other?) {
 
     # flat(@options, @tags, @commits).min: { sift4($_, $tag-or-hash, 5, 8) }
     my $ans = ‘HEAD’;
-    my $ans_min = Inf;
+    my $ans_min = ∞;
 
     for flat @options, @tags, @commits {
         my $dist = sift4 $_, $tag-or-hash, $cutoff;
@@ -160,7 +160,7 @@ method run-smth($full-commit-hash, $code, :$backend=‘rakudo-moar’) {
     my $archive-path = “{ARCHIVES-LOCATION}/$backend/$full-commit-hash.zst”;
     # lock on the destination directory to make
     # sure that other bots will not get in our way.
-    while run(‘mkdir’, ‘--’, $build-path).exitcode != 0 {
+    while run(‘mkdir’, ‘--’, $build-path).exitcode ≠ 0 {
         sleep 0.5;
         # Uh, wait! Does it mean that at the same time we can use only one
         # specific build? Yes, and you will have to wait until another bot
@@ -203,14 +203,14 @@ method get-commits($config) {
         @commits = $config.split: ‘,’;
     } elsif $config ~~ /^ $<start>=\S+ ‘..’ $<end>=\S+ $/ {
         chdir RAKUDO; # goes back in LEAVE
-        if run(:out(Nil), ‘git’, ‘rev-parse’, ‘--verify’, $<start>).exitcode != 0 {
+        if run(:out(Nil), ‘git’, ‘rev-parse’, ‘--verify’, $<start>).exitcode ≠ 0 {
             return “Bad start, cannot find a commit for “$<start>””;
         }
-        if run(:out(Nil), ‘git’, ‘rev-parse’, ‘--verify’, $<end>).exitcode   != 0 {
+        if run(:out(Nil), ‘git’, ‘rev-parse’, ‘--verify’, $<end>).exitcode   ≠ 0 {
             return “Bad end, cannot find a commit for “$<end>””;
         }
         my $result = self.get-output: ‘git’, ‘rev-list’, “$<start>^..$<end>”; # TODO unfiltered input
-        return ‘Couldn't find anything in the range’ if $result<exit-code> != 0;
+        return ‘Couldn't find anything in the range’ if $result<exit-code> ≠ 0;
         @commits = $result<output>.lines;
         my $num-commits = @commits.elems;
         return “Too many commits ($num-commits) in range, you're only allowed {COMMITS-LIMIT}” if $num-commits > COMMITS-LIMIT
@@ -250,12 +250,12 @@ method to-full-commit($commit, :$short = False) {
     chdir RAKUDO;
     LEAVE chdir $old-dir;
 
-    return if run(:out(Nil), ‘git’, ‘rev-parse’, ‘--verify’, $commit).exitcode != 0; # make sure that $commit is valid
+    return if run(:out(Nil), ‘git’, ‘rev-parse’, ‘--verify’, $commit).exitcode ≠ 0; # make sure that $commit is valid
 
     my $result = self.get-output: |(‘git’, ‘rev-list’, ‘-1’, # use rev-list to handle tags
                                   ($short ⁇ ‘--abbrev-commit’ ‼ Empty), $commit);
 
-    return if     $result<exit-code> != 0;
+    return if     $result<exit-code> ≠ 0;
     return unless $result<output>;
     $result<output>
 }

t/benchable.t

@@ -90,11 +90,11 @@ $t.test(‘specific commit’,
 $t.test(‘the benchmark time makes sense’,
         ‘bench: HEAD sleep 2’,
         /^ <me($t)>‘, starting to benchmark the ’ \d+ ‘ given commit’ ‘s’? $/,
-        /^ <me($t)>‘, ¦HEAD: «’ (\d+)\.\d+ <?{ $0 >= 2 }> ‘»’ $/,
+        /^ <me($t)>‘, ¦HEAD: «’ (\d+)\.\d+ <?{ $0 ≥ 2 }> ‘»’ $/,
         :30timeout);
 
 $t.test(‘“compare” query’,
-        ‘bench: compare HEAD say "hi" ||| say "bye"’,
+        ‘bench: compare HEAD say ‘hi’ ||| say ‘bye’’,
         /^ <me($t)>‘, starting to benchmark the ’ \d+ ‘ given commit’ ‘s’? $/,
         “{$t.our-nick}, https://whatever.able/fakeupload”);
 

t/bisectable.t

@@ -88,13 +88,13 @@ $t.test(‘bisect by output’,
         “{$t.our-nick}, (2016-02-04) https://github.com/rakudo/rakudo/commit/241e6c06a9ec4c918effffc30258f2658aad7b79”);
 
 $t.test(‘bisect by exit signal’,
-        ‘bisect: old=2015.10 new=2015.12 Buf.new(0xFE).decode("utf8-c8") # RT 126756’,
+        ‘bisect: old=2015.10 new=2015.12 Buf.new(0xFE).decode(‘utf8-c8’) # RT 126756’,
         “{$t.our-nick}, Bisecting by exit signal (old=2015.10 new=2015.12). Old exit signal: 0 (None)”,
         “{$t.our-nick}, bisect log: https://whatever.able/fakeupload”,
         “{$t.our-nick}, (2015-11-09) https://github.com/rakudo/rakudo/commit/3fddcb57f66a44d1a8adb7ecee1a3b403ab9f5d8”);
 
 $t.test(‘inverted exit signal’,
-        ‘bisect: Buf.new(0xFE).decode("utf8-c8") # RT 126756’,
+        ‘bisect: Buf.new(0xFE).decode(‘utf8-c8’) # RT 126756’,
         /^ <me($t)>‘, Bisecting by exit signal (old=2015.12 new=’<sha>‘). Old exit signal: 11 (SIGSEGV)’ $/,
         “{$t.our-nick}, bisect log: https://whatever.able/fakeupload”,
         “{$t.our-nick}, (2016-04-01) https://github.com/rakudo/rakudo/commit/a87fb43b6c85a496ef0358197625b5b417a0d372”);
@@ -105,7 +105,7 @@ $t.test(‘nothing to bisect’,
         “{$t.our-nick}, Output on both points: «hello world»”);
 
 $t.test(‘nothing to bisect, segmentation fault everywhere’,
-        ‘bisect: old=2016.02 new=2016.03 Buf.new(0xFE).decode("utf8-c8")’,
+        ‘bisect: old=2016.02 new=2016.03 Buf.new(0xFE).decode(‘utf8-c8’)’,
         “{$t.our-nick}, On both starting points (old=2016.02 new=2016.03) the exit code is 0, exit signal is 11 (SIGSEGV) and the output is identical as well”,
         “{$t.our-nick}, Output on both points: «»”);
 

t/lib/Testable.pm6

@@ -59,7 +59,7 @@ class Testable {
             }
             @got.push: $message
         }
-        if @expected != @got or any(@got Z!~~ @expected) {
+        if @expected ≠ @got or any(@got Z!~~ @expected) {
             diag “expected: {@expected.perl}”; # RT #129192
             diag “     got: {@got.perl}”;
             my $frame = callframe(2);