Make sure it is possible to add a comment after URLs

Adds tests for issue #75.

Author: AlexDaniel

t/benchable.t

@@ -145,6 +145,18 @@ $t.test(‘fetching code from urls’,
         /^ <me($t)>‘, starting to benchmark the ’ \d+ ‘ given commit’ ‘s’? $/,
         /^ <me($t)>‘, ¦HEAD: «’ \d+\.\d+ ‘»’ $/);
 
+$t.test(‘comment after a url’,
+        ‘bench: HEAD https://gist.githubusercontent.com/AlexDaniel/147bfa34b5a1b7d1ebc50ddc32f95f86/raw/9e90da9f0d95ae8c1c3bae24313fb10a7b766595/test.p6 # this is a comment’,
+        “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
+        /^ <me($t)>‘, starting to benchmark the ’ \d+ ‘ given commit’ ‘s’? $/,
+        /^ <me($t)>‘, ¦HEAD: «’ \d+\.\d+ ‘»’ $/);
+
+$t.test(‘comment after a url (without #)’,
+        ‘bench: HEAD https://gist.githubusercontent.com/AlexDaniel/147bfa34b5a1b7d1ebc50ddc32f95f86/raw/9e90da9f0d95ae8c1c3bae24313fb10a7b766595/test.p6 ← like this!’,
+        “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
+        /^ <me($t)>‘, starting to benchmark the ’ \d+ ‘ given commit’ ‘s’? $/,
+        /^ <me($t)>‘, ¦HEAD: «’ \d+\.\d+ ‘»’ $/);
+
 $t.test(‘wrong url’,
         ‘bench: HEAD http://github.org/sntoheausnteoahuseoau’,
         “{$t.our-nick}, It looks like a URL, but for some reason I cannot download it (HTTP status line is 404 Not Found).”);

t/bisectable.t

@@ -186,6 +186,18 @@ $t.test(‘fetching code from urls’,
         /^ <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.test(‘comment after a url’,
+        ‘bisect: https://gist.githubusercontent.com/AlexDaniel/147bfa34b5a1b7d1ebc50ddc32f95f86/raw/9e90da9f0d95ae8c1c3bae24313fb10a7b766595/test.p6 # this is a comment’,
+        “{$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.test(‘comment after a url (without #)’,
+        ‘bisect: https://gist.githubusercontent.com/AlexDaniel/147bfa34b5a1b7d1ebc50ddc32f95f86/raw/9e90da9f0d95ae8c1c3bae24313fb10a7b766595/test.p6 ← like this!’,
+        “{$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.test(‘wrong url’,
         ‘bisect: http://github.org/sntoheausnteoahuseoau’,
         “{$t.our-nick}, It looks like a URL, but for some reason I cannot download it (HTTP status line is 404 Not Found).”);

t/committable.t

@@ -215,6 +215,16 @@ $t.test(‘fetching code from urls’,
         “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
         /^ <me($t)>‘, ¦HEAD(’<sha>‘): «url test»’ $/);
 
+$t.test(‘comment after a url’,
+        ‘commit: HEAD https://gist.githubusercontent.com/AlexDaniel/147bfa34b5a1b7d1ebc50ddc32f95f86/raw/9e90da9f0d95ae8c1c3bae24313fb10a7b766595/test.p6 # this is a comment’,
+        “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «url test»’ $/);
+
+$t.test(‘comment after a url (without #)’,
+        ‘commit: HEAD https://gist.githubusercontent.com/AlexDaniel/147bfa34b5a1b7d1ebc50ddc32f95f86/raw/9e90da9f0d95ae8c1c3bae24313fb10a7b766595/test.p6 ← like this!’,
+        “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
+        /^ <me($t)>‘, ¦HEAD(’<sha>‘): «url test»’ $/);
+
 $t.test(‘wrong url’,
         ‘commit: HEAD http://github.org/sntoheausnteoahuseoau’,
         “{$t.our-nick}, It looks like a URL, but for some reason I cannot download it (HTTP status line is 404 Not Found).”);

t/evalable.t

@@ -167,6 +167,16 @@ $t.test(‘fetching code from urls’,
         “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
         /^ <me($t)>‘, rakudo-moar ’<sha>‘: OUTPUT: «url test»’ $/);
 
+$t.test(‘comment after a url’,
+        ‘eval: https://gist.githubusercontent.com/AlexDaniel/147bfa34b5a1b7d1ebc50ddc32f95f86/raw/9e90da9f0d95ae8c1c3bae24313fb10a7b766595/test.p6 # this is a comment’,
+        “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
+        /^ <me($t)>‘, rakudo-moar ’<sha>‘: OUTPUT: «url test»’ $/);
+
+$t.test(‘comment after a url (without #)’,
+        ‘eval: https://gist.githubusercontent.com/AlexDaniel/147bfa34b5a1b7d1ebc50ddc32f95f86/raw/9e90da9f0d95ae8c1c3bae24313fb10a7b766595/test.p6 ← like this!’,
+        “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
+        /^ <me($t)>‘, rakudo-moar ’<sha>‘: OUTPUT: «url test»’ $/);
+
 $t.test(‘wrong url’,
         ‘eval: http://github.org/sntoheausnteoahuseoau’,
         “{$t.our-nick}, It looks like a URL, but for some reason I cannot download it (HTTP status line is 404 Not Found).”);

t/unicodable.t

@@ -139,6 +139,18 @@ $t.test(‘fetching code from urls’,
         “{$t.our-nick}, U+1F4A9 PILE OF POO [So] (💩)”,
         “{$t.our-nick}, U+0021 EXCLAMATION MARK [Po] (!)”);
 
+$t.test(‘comment after a url’,
+        ‘u: https://gist.githubusercontent.com/AlexDaniel/1892f93da146cb6057e6f3ca38fb1e56/raw/3d007a9ec3782f756054a322e8710656e2e4e7c6/test # this is a comment’,
+        “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
+        “{$t.our-nick}, U+1F4A9 PILE OF POO [So] (💩)”,
+        “{$t.our-nick}, U+0021 EXCLAMATION MARK [Po] (!)”);
+
+$t.test(‘comment after a url (without #)’,
+        ‘u: https://gist.githubusercontent.com/AlexDaniel/1892f93da146cb6057e6f3ca38fb1e56/raw/3d007a9ec3782f756054a322e8710656e2e4e7c6/test ← like this!’,
+        “{$t.our-nick}, Successfully fetched the code from the provided URL.”,
+        “{$t.our-nick}, U+1F4A9 PILE OF POO [So] (💩)”,
+        “{$t.our-nick}, U+0021 EXCLAMATION MARK [Po] (!)”);
+
 $t.test(‘wrong url’,
         ‘u: http://github.org/sntoheausnteoahuseoau’,
         “{$t.our-nick}, It looks like a URL, but for some reason I cannot download it (HTTP status line is 404 Not Found).”);