Sync OUTPUT with style in docs

Resolves issue #101, tests changed accordingly.

Committable will now show exit code in a funny way (with nested
«»). This has to be changed in the future.

Author: AlexDaniel

Bisectable.p6

@@ -199,7 +199,7 @@ method process($msg, $code is copy, $old, $new) {
         } 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”
         }
-        return “Output on both points: $old-result<output>” # will be gisted automatically if required
+        return “Output on both points: «$old-result<output>»” # will be gisted automatically if required
     }
 
     my $dir = tempdir :!unlink;

Committable.p6

@@ -111,8 +111,8 @@ method process($msg, $config is copy, $code is copy) {
     }
 
     my $short-str = @result == 1 && @result[0]<commits> > 3 && $config.chars < 20
-    ⁇ “¦«{$config} ({+@result[0]<commits>} commits)»: {@result[0]<output>}”
-    ‼ ‘¦’ ~ @result.map({ “«{.<commits>.join(‘,’)}»: {.<output>}” }).join: ‘ ¦’;
+    ⁇ “¦{$config} ({+@result[0]<commits>} commits): «{@result[0]<output>}»”
+    ‼ ‘¦’ ~ @result.map({ “{.<commits>.join(‘,’)}: «{.<output>}»” }).join: ‘ ¦’;
 
     my $long-str  = ‘¦’ ~ @result.map({ “«{.<commits>.join(‘,’)}»: {.<output>}” }).join: “\n¦”;
     return $short-str but ProperStr($long-str);

Evalable.p6

@@ -84,7 +84,7 @@ method process($message, $code is copy) {
         }
     }
 
-    my $reply-start = “rakudo-moar $short-commit: OUTPUT«$extra”;
+    my $reply-start = “rakudo-moar $short-commit: OUTPUT: «$extra”;
     my $reply-end = ‘»’;
     if MESSAGE-LIMIT >= ($reply-start, $output, $reply-end).map(*.encode.elems).sum {
         return $reply-start ~ $output ~ $reply-end

t/bisectable.t

@@ -102,12 +102,12 @@ $t.test(‘inverted exit signal’,
 $t.test(‘nothing to bisect’,
         ‘bisect: say ‘hello world’; exit 42’,
         /^ <me($t)>‘, On both starting points (old=2015.12 new=’<sha>‘) the exit code is 42 and the output is identical as well’ $/,
-        “{$t.our-nick}, Output on both points: hello world”);
+        “{$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")’,
         “{$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.our-nick}, Output on both points: «»”);
 
 $t.test(‘large output is uploaded’,
         ‘bisect: .say for ^1000; exit 5’,
@@ -146,21 +146,21 @@ $t.test(‘swapped old and new revisions’,
 $t.test(‘special characters’,
         ‘bisect: say (.chr for ^128).join’,
         /^ <me($t)>‘, On both starting points (old=2015.12 new=’<sha>‘) the exit code is 0 and the output is identical as well’ $/,
-        “{$t.our-nick}, Output on both points: ” ~ ‘␀␁␂␃␄␅␆␇␈␉␤␋␌␍␎␏␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~␡’);
+        “{$t.our-nick}, Output on both points: ” ~ ‘«␀␁␂␃␄␅␆␇␈␉␤␋␌␍␎␏␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~␡»’);
 }
 
 $t.test(‘␤ works like an actual newline’,
         ‘bisect: # newline test ␤ say ‘hello world’; exit 42’,
         /^ <me($t)>‘, On both starting points (old=2015.12 new=’<sha>‘) the exit code is 42 and the output is identical as well’ $/,
-        “{$t.our-nick}, Output on both points: hello world”);
+        “{$t.our-nick}, Output on both points: «hello world»”);
 
 # URLs
 
 $t.test(‘fetching code from urls’,
         ‘bisect: https://gist.githubusercontent.com/AlexDaniel/147bfa34b5a1b7d1ebc50ddc32f95f86/raw/9e90da9f0d95ae8c1c3bae24313fb10a7b766595/test.p6’,
         “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
         /^ <me($t)>‘, On both starting points (old=2015.12 new=’<sha>‘) the exit code is 0 and the output is identical as well’ $/,
-        “{$t.our-nick}, Output on both points: url test”);
+        “{$t.our-nick}, Output on both points: «url test»”);
 
 $t.test(‘wrong url’,
         ‘bisect: http://github.org/sntoheausnteoahuseoau’,

t/committable.t

@@ -48,27 +48,27 @@ $t.test(‘source link’,
 
 $t.test(‘basic “nick:” query’,
         “{$t.bot-nick}: HEAD say ‘hello’”,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: hello’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «hello»’ $/);
 
 $t.test(‘basic “nick,” query’,
         “{$t.bot-nick}, HEAD say ‘hello’”,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: hello’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «hello»’ $/);
 
 $t.test(‘“commit:” shortcut’,
         ‘commit: HEAD say ‘hello’’,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: hello’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «hello»’ $/);
 
 $t.test(‘“commit,” shortcut’,
         ‘commit, HEAD say ‘hello’’,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: hello’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «hello»’ $/);
 
 $t.test(‘“commit6:” shortcut’,
         ‘commit6: HEAD say ‘hello’’,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: hello’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «hello»’ $/);
 
 $t.test(‘“commit6,” shortcut’,
         ‘commit6, HEAD say ‘hello’’,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: hello’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «hello»’ $/);
 
 $t.test(‘“commit” shortcut does not work’,
         ‘commit HEAD say ‘hello’’);
@@ -78,7 +78,7 @@ $t.test(‘“commit6” shortcut does not work’,
 
 $t.test(‘specific commit’,
         ‘commit: f583f22 say $*PERL.compiler.version’,
-        “{$t.our-nick}, ¦«f583f22»: v2016.06.183.gf.583.f.22”);
+        “{$t.our-nick}, ¦f583f22: «v2016.06.183.gf.583.f.22»”);
 
 $t.test(‘too long output is uploaded’,
         ‘commit: HEAD .say for ^1000’,
@@ -88,67 +88,67 @@ $t.test(‘too long output is uploaded’,
 
 $t.test(‘exit code’,
         ‘commit: 2015.12 say ‘foo’; exit 42’,
-        “{$t.our-nick}, ¦«2015.12»: foo «exit code = 42»”);
+        “{$t.our-nick}, ¦2015.12: «foo «exit code = 42»»”);
 
 $t.test(‘exit signal’,
         ‘commit: 2016.03 say ^1000 .grep: -> $n {([+] ^$n .grep: -> $m {$m and $n %% $m}) == $n }’,
-        “{$t.our-nick}, ¦«2016.03»:  «exit signal = SIGSEGV (11)»”);
+        “{$t.our-nick}, ¦2016.03: « «exit signal = SIGSEGV (11)»»”);
 
 # STDIN
 
 $t.test(‘stdin’,
         ‘commit: HEAD say lines[0]’,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: ♥🦋 ꒛㎲₊⼦🂴⧿⌟ⓜ≹℻ 😦⦀🌵 🖰㌲⎢➸ 🐍💔 🗭𐅹⮟⿁ ⡍㍷⽐’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «♥🦋 ꒛㎲₊⼦🂴⧿⌟ⓜ≹℻ 😦⦀🌵 🖰㌲⎢➸ 🐍💔 🗭𐅹⮟⿁ ⡍㍷⽐»’ $/);
 
 $t.test(‘set custom stdin’,
         ‘commit: stdIN custom string␤another line’,
         “{$t.our-nick}, STDIN is set to «custom string␤another line»”);
 
 $t.test(‘test custom stdin’,
         ‘committable6: HEAD dd lines’,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: ("custom string", "another line").Seq’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «("custom string", "another line").Seq»’ $/);
 
 $t.test(‘reset stdin’,
         ‘commit: stdIN rESet’,
         “{$t.our-nick}, STDIN is reset to the default value”);
 
 $t.test(‘test stdin after reset’,
         ‘commit: HEAD say lines[0]’,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: ♥🦋 ꒛㎲₊⼦🂴⧿⌟ⓜ≹℻ 😦⦀🌵 🖰㌲⎢➸ 🐍💔 🗭𐅹⮟⿁ ⡍㍷⽐’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «♥🦋 ꒛㎲₊⼦🂴⧿⌟ⓜ≹℻ 😦⦀🌵 🖰㌲⎢➸ 🐍💔 🗭𐅹⮟⿁ ⡍㍷⽐»’ $/);
 
 $t.test(‘stdin line count’,
         ‘commit: HEAD say +lines’,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: 10’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «10»’ $/);
 
 $t.test(‘stdin word count’,
         ‘commit: HEAD say +$*IN.words’,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: 100’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «100»’ $/);
 
 $t.test(‘stdin char count’,
         ‘commit: HEAD say +slurp.chars’,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: 500’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «500»’ $/);
 
 # Ranges and multiple commits
 
 $t.test(‘“releases” query’,
         ‘commit: releases say $*PERL’,
-        /^ <{$t.our-nick}> ‘, ¦«releases (’\d+‘ commits)»: Perl 6 (6.c)’ $/);
+        /^ <{$t.our-nick}> ‘, ¦releases (’\d+‘ commits): «Perl 6 (6.c)»’ $/);
 
 $t.test(‘“v6c” query’,
         ‘commit: v6c say $*PERL’,
-        /^ <{$t.our-nick}> ‘, ¦«v6c (’\d+‘ commits)»: Perl 6 (6.c)’ $/);
+        /^ <{$t.our-nick}> ‘, ¦v6c (’\d+‘ commits): «Perl 6 (6.c)»’ $/);
 
 $t.test(‘“6.c” query’,
         ‘commit: 6.c say $*PERL’,
-        /^ <{$t.our-nick}> ‘, ¦«6.c (’\d+‘ commits)»: Perl 6 (6.c)’ $/);
+        /^ <{$t.our-nick}> ‘, ¦6.c (’\d+‘ commits): «Perl 6 (6.c)»’ $/);
 
 $t.test(‘“6c” query’,
         ‘commit: 6c say $*PERL’,
-        /^ <{$t.our-nick}> ‘, ¦«6c (’\d+‘ commits)»: Perl 6 (6.c)’ $/);
+        /^ <{$t.our-nick}> ‘, ¦6c (’\d+‘ commits): «Perl 6 (6.c)»’ $/);
 
 $t.test(‘“all” query (same output everywhere)’,
         ‘commit: all say 'hi'’, # ASCII quotes because they are supported everywhere
-        /^ <{$t.our-nick}> ‘, ¦«all (’\d+‘ commits)»: hi’ $/,
+        /^ <{$t.our-nick}> ‘, ¦all (’\d+‘ commits): «hi»’ $/,
         :20timeout);
 
 $t.test(‘“all” query (different output everywhere)’,
@@ -158,37 +158,37 @@ $t.test(‘“all” query (different output everywhere)’,
 
 $t.test(‘multiple commits separated by comma’,
         “commit: 2016.02,2016.03,9ccd848,HEAD say ‘hello’”,
-        /^ <me($t)>‘, ¦«2016.02,2016.03,9ccd848,HEAD(’<sha>‘)»: hello’ $/);
+        /^ <me($t)>‘, ¦2016.02,2016.03,9ccd848,HEAD(’<sha>‘): «hello»’ $/);
 
 $t.test(‘commit~num syntax’,
         ‘commit: 2016.04~100,2016.04 say $*PERL.compiler.version’,
-        “{$t.our-nick}, ¦«2016.04~100»: v2016.03.1.g.7.cc.37.b.3 ¦«2016.04»: v2016.04”);
+        “{$t.our-nick}, ¦2016.04~100: «v2016.03.1.g.7.cc.37.b.3» ¦2016.04: «v2016.04»”);
 
 $t.test(‘commit^^^ syntax’,
         ‘commit: 2016.03^^^,2016.03^^,2016.03^,2016.03 say 42’,
-        “{$t.our-nick}, ¦«2016.03^^^,2016.03^^,2016.03^,2016.03»: 42”);
+        “{$t.our-nick}, ¦2016.03^^^,2016.03^^,2016.03^,2016.03: «42»”);
 
 $t.test(‘commit..commit range syntax’,
         ‘commit: 2016.07~73..2016.07~72 say ‘a’ x 9999999999999999999’,
-        /^ <{$t.our-nick}> ‘, ¦«8ea2ae8,586f784»:  ¦«87e8067»: repeat count (-8446744073709551617) cannot be negative␤  in block <unit> at /tmp/’ \w+ ‘ line 1␤ «exit code = 1»’ $/);
+        /^ <{$t.our-nick}> ‘, ¦8ea2ae8,586f784: «» ¦87e8067: «repeat count (-8446744073709551617) cannot be negative␤  in block <unit> at /tmp/’ \w+ ‘ line 1␤ «exit code = 1»»’ $/);
 
 # Special characters
 #`{ What should we do with colors?
 $t.test(‘special characters’,
         ‘commit: HEAD say (.chr for ^128).join’,
-        $t.our-nick ~ ‘, ¦«HEAD(’<sha>‘)»: ␀␁␂␃␄␅␆␇␈␉␤␋␌␍␎␏␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~␡’);
+        $t.our-nick ~ ‘, ¦HEAD(’<sha>‘): «␀␁␂␃␄␅␆␇␈␉␤␋␌␍␎␏␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~␡»’);
 
 $t.test(‘␤ works like an actual newline’,
         ‘commit: HEAD # This is a comment ␤ say ｢hello world!｣’,
-        “{$t.our-nick}, ¦«HEAD(’<sha>‘)»: hello world!”);
+        “{$t.our-nick}, ¦HEAD(’<sha>‘): «hello world!»”);
 }
 
 # URLs
 
 $t.test(‘fetching code from urls’,
         ‘commit: HEAD https://gist.githubusercontent.com/AlexDaniel/147bfa34b5a1b7d1ebc50ddc32f95f86/raw/9e90da9f0d95ae8c1c3bae24313fb10a7b766595/test.p6’,
         “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: url test’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «url test»’ $/);
 
 $t.test(‘wrong url’,
         ‘commit: HEAD http://github.org/sntoheausnteoahuseoau’,
@@ -202,7 +202,7 @@ $t.test(‘wrong mime type’,
 
 $t.test(‘last basic query, just in case’, # keep it last in this file
         “{$t.bot-nick}: HEAD say ‘hello’”,
-        /^ <me($t)>‘, ¦«HEAD(’<sha>‘)»: hello’ $/);
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «hello»’ $/);
 
 done-testing;
 END $t.end;