trackler 2.0.6.33 → 2.0.6.34

data/tracks/kotlin/exercises/strain/build.gradle

@@ -20,3 +20,9 @@ dependencies {
   testCompile 'junit:junit:4.12'
   testCompile "org.jetbrains.kotlin:kotlin-test-junit:$kotlin_version"
 }
+test {
+  testLogging {
+    exceptionFormat = 'full'
+    events = ["passed", "failed", "skipped"]
+  }
+}

data/tracks/kotlin/exercises/strain/src/test/kotlin/StrainTest.kt

@@ -1,8 +1,10 @@
 import org.junit.Test
+import org.junit.Ignore
 import kotlin.test.assertEquals
 
 class StrainTest {
 
+
     @Test
     fun emptyKeep() {
         val input = emptyList<Int>()
@@ -10,6 +12,7 @@ class StrainTest {
         assertEquals(expectedOutput, Strain.keep(input, { it < 10 }))
     }
 
+    @Ignore
     @Test
     fun keepEverything() {
         val input = listOf(1, 2, 3)
@@ -17,6 +20,7 @@ class StrainTest {
         assertEquals(expectedOutput, Strain.keep(input, { it < 10 }))
     }
 
+    @Ignore
     @Test
     fun keepFirstAndLast() {
         val input = listOf(1, 2, 3)
@@ -24,6 +28,7 @@ class StrainTest {
         assertEquals(expectedOutput, Strain.keep(input, { it % 2 != 0 }))
     }
 
+    @Ignore
     @Test
     fun keepNeitherFirstNorLast() {
         val input = listOf(1, 2, 3, 4, 5)
@@ -31,6 +36,7 @@ class StrainTest {
         assertEquals(expectedOutput, Strain.keep(input, { it % 2 == 0 }))
     }
 
+    @Ignore
     @Test
     fun KeepStrings() {
         val words = "apple zebra banana zombies cherimoya zelot".split(" ")
@@ -39,6 +45,7 @@ class StrainTest {
                 Strain.keep(words, { it.startsWith("z") }))
     }
 
+    @Ignore
     @Test
     fun keepArrays() {
         val actual = listOf(
@@ -58,6 +65,7 @@ class StrainTest {
                 Strain.keep(actual, { col -> col.contains(5) }))
     }
 
+    @Ignore
     @Test
     fun emptyDiscard() {
         val input = emptyList<Int>()
@@ -65,6 +73,7 @@ class StrainTest {
         assertEquals(expectedOutput, Strain.discard(input, { it < 10 }))
     }
 
+    @Ignore
     @Test
     fun discardNothing() {
         val input = listOf(1, 2, 3)
@@ -72,6 +81,7 @@ class StrainTest {
         assertEquals(expectedOutput, Strain.discard(input, { it > 10 }))
     }
 
+    @Ignore
     @Test
     fun discardFirstAndLast() {
         val input = listOf(1, 2, 3)
@@ -80,6 +90,7 @@ class StrainTest {
 
     }
 
+    @Ignore
     @Test
     fun discardNeitherFirstNorLast() {
         val input = listOf(1, 2, 3, 4, 5)
@@ -87,6 +98,7 @@ class StrainTest {
         assertEquals(expectedOutput, Strain.discard(input, { it % 2 == 0 }))
     }
 
+    @Ignore
     @Test
     fun discardStrings() {
         val words = "apple zebra banana zombies cherimoya zelot".split(" ")
@@ -95,6 +107,7 @@ class StrainTest {
                 Strain.discard(words, { it.startsWith("z") }))
     }
 
+    @Ignore
     @Test
     fun discardArrays() {
         val actual = listOf(

data/tracks/kotlin/exercises/word-count/build.gradle

@@ -20,3 +20,9 @@ dependencies {
   testCompile 'junit:junit:4.12'
   testCompile "org.jetbrains.kotlin:kotlin-test-junit:$kotlin_version"
 }
+test {
+  testLogging {
+    exceptionFormat = 'full'
+    events = ["passed", "failed", "skipped"]
+  }
+}

data/tracks/kotlin/exercises/word-count/src/test/kotlin/WordCountTest.kt

@@ -1,8 +1,10 @@
 import org.junit.Test
+import org.junit.Ignore
 import kotlin.test.assertEquals
 
 class WordCountTest {
 
+
     @Test
     fun countOneWord() {
         val expectedWordCount = mapOf("word" to 1)
@@ -10,6 +12,7 @@ class WordCountTest {
         assertEquals(expectedWordCount, WordCount.phrase("word"))
     }
 
+    @Ignore
     @Test
     fun countOneOfEach() {
         val expectedWordCount = mapOf("one" to 1, "of" to 1, "each" to 1)
@@ -17,6 +20,7 @@ class WordCountTest {
         assertEquals(expectedWordCount, WordCount.phrase("one of each"))
     }
 
+    @Ignore
     @Test
     fun countMultipleOccurences() {
         val expectedWordCount = mapOf("one" to 1, "fish" to 4, "two" to 1, "red" to 1, "blue" to 1)
@@ -24,6 +28,7 @@ class WordCountTest {
         assertEquals(expectedWordCount, WordCount.phrase("one fish two fish red fish blue fish"))
     }
 
+    @Ignore
     @Test
     fun ignorePunctuation() {
         val expectedWordCount = mapOf("car" to 1, "carpet" to 1, "as" to 1, "java" to 1, "javascript" to 1)
@@ -32,6 +37,7 @@ class WordCountTest {
 
     }
 
+    @Ignore
     @Test
     fun includeNumbers() {
         val expectedWordCount = mapOf("testing" to 2, "1" to 1, "2" to 1)
@@ -39,6 +45,7 @@ class WordCountTest {
         assertEquals(expectedWordCount, WordCount.phrase("testing, 1, 2 testing"))
     }
 
+    @Ignore
     @Test
     fun normalizeCase() {
         val expectedWordCount = mapOf("go" to 3)
@@ -46,6 +53,7 @@ class WordCountTest {
         assertEquals(expectedWordCount, WordCount.phrase("go Go GO"))
     }
 
+    @Ignore
     @Test
     fun allowApostrophes() {
         val expectedWordCount = mapOf("first" to 1, "don't" to 2, "laugh" to 1, "then" to 1, "cry" to 1)

data/tracks/objective-c/circle.yml

@@ -3,4 +3,4 @@ machine:
     version: "8.2"
 test:
   override:
-    -echo 'i am working'
+    -xctool test -project 'xcodeProject/ObjectiveC.xcodeproj' -scheme 'xobjectivecTest' -sdk macosx10.11 -reporter json-compilation-database:compile_commands.json -reporter plain:plain-output.txt -reporter pretty

data/tracks/perl6/.travis.yml

@@ -2,8 +2,8 @@
 sudo: false
 language: perl6
 install:
-  - rakudobrew build-panda
-  - panda install JSON::Tiny
+  - rakudobrew build zef
+  - zef install JSON::Tiny
 before_script:
   - bin/fetch-configlet
 script:

data/tracks/perl6/config.json

@@ -110,6 +110,11 @@
       "difficulty": 1,
       "slug": "space-age",
       "topics": []
+    },
+    {
+      "difficulty": 1,
+      "slug": "linked-list",
+      "topics": []
     }
   ]
 }

data/tracks/perl6/docs/TESTS.md

@@ -2,44 +2,104 @@
 
 ## Run All Tests
 
-The test (`.t`) files are just Perl 6 scripts, so you can run them directly as any other script:
+There is a Perl 6 script with the extension `.t`, which will be used to test
+your solution. You can run through the tests by using the command:
 
-`perl6 bob.t`
+`prove . --exec=perl6`
 
-This will produce an output like:
+Before you start the exercise, the output will likely look something like:
 
-````
-1..2
-ok 1 - Load module
-ok 2 - Class Bob has hey() method
-````
+```
+./hello-world.t .. 1/6
+# Failed test 'No argument'
+# at ./hello-world.t line 28
+# expected: 'Hello, World!'
+#      got: (Nil)
 
-(this is called the [TAP - Test Anything Protocol](https://en.wikipedia.org/wiki/Test_Anything_Protocol) format)
+# Failed test 'Empty string'
+# at ./hello-world.t line 29
+# expected: 'Hello, World!'
+#      got: (Nil)
+./hello-world.t .. Dubious, test returned 2 (wstat 512, 0x200)
+Failed 2/6 subtests
+
+Test Summary Report
+-------------------
+./hello-world.t (Wstat: 512 Tests: 6 Failed: 2)
+  Failed tests:  3-4
+  Non-zero exit status: 2
+```
+You will either need to modify or create a module with the extension `.pm6`, and
+write a solution to pass the tests. Once the tests are passing, the output from
+the command above will likely look something like:
+
+```
+./hello-world.t .. ok
+All tests successful.
+Files=1, Tests=6,  0 wallclock secs ( 0.03 usr  0.00 sys +  0.37 cusr  0.04 csys =  0.44 CPU)
+Result: PASS
+```
+
+Some exercises may have optional tests. You can test for these by adding the
+flag `-v` (for 'verbose') to the above command, like so:
+
+`prove . --exec=perl6 -v`
+
+The output will likely look something like:
+
+```
+./hello-world.t ..
+1..6
+ok 1 - The module can be use-d ok
+    1..1
+    ok 1 - &hello
+ok 2 - Subroutine(s)
+ok 3 - No argument
+ok 4 - Empty string
+not ok 5 - Camelia # TODO optional test
+
+# Failed test 'Camelia'
+# at ./hello-world.t line 31
+# expected: 'Hello, Camelia!'
+#      got: 'Hello, World!'
+not ok 6 - Rakudo # TODO optional test
+
+# Failed test 'Rakudo'
+# at ./hello-world.t line 32
+# expected: 'Hello, 楽土!'
+#      got: 'Hello, World!'
+ok
+All tests successful.
+Files=1, Tests=6,  1 wallclock secs ( 0.03 usr  0.00 sys +  0.58 cusr  0.06 csys =  0.67 CPU)
+Result: PASS
+```
 
 ## Stop After First Failure
 
-If you have the `PERL6_TEST_DIE_ON_FAIL` environment variable set, the test runner will stop after the first failure. For example:
+If you have the `PERL6_TEST_DIE_ON_FAIL` environment variable set, the test
+runner will stop after the first failure. For example:
 
 In Linux / OS X:
 
-````bash
+```bash
 export PERL6_TEST_DIE_ON_FAIL=1
 # now all the follow up runs will stop at the first failure
-perl6 bob.t
+prove . --exec=perl6
 # until we do
 unset PERL6_TEST_DIE_ON_FAIL
 # or you can use it for one run like this:
-PERL6_TEST_DIE_ON_FAIL=1 perl6 bob.t
-````
+PERL6_TEST_DIE_ON_FAIL=1 prove . --exec=perl6
+```
 
 Or in Windows:
 
-````
+```
 SET PERL6_TEST_DIE_ON_FAIL=1
 REM now all the follow up runs will stop at the first failure
-perl6 bob.t
+prove . --exec=perl6
 REM until we do
 set PERL6_TEST_DIE_ON_FAIL=
-````
+```
 
-For more information see the [Testing chapter of the Perl 6 Documentation](https://docs.perl6.org/language/testing.html).
+For more information see the
+[Testing chapter of the Perl 6 Documentation](https://docs.perl6.org/language/testing.html).

data/tracks/perl6/exercises/allergies/allergies.t

@@ -5,13 +5,8 @@ use JSON::Tiny;
 
 use lib ( my $dir = IO::Path.new($?FILE).parent ).path;
 
-my $module_name = %*ENV<EXERCISM>.so ?? 'Example' !! 'Allergies';
-my @potential_module = <p6 pm6 pm>.map:  $module_name ~ '.' ~ *; 
-
-my $module = first { $dir.child($_).e }, |@potential_module
-    or die "No file '$module_name.p6' found\n";
-
-require $module <&allergic-to &list-allergies>;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Allergies';
+require ::($module) <&allergic-to &list-allergies>;
 
 plan 2;
 

data/tracks/perl6/exercises/atbash-cipher/cipher.t

@@ -5,13 +5,8 @@ use JSON::Tiny;
 
 use lib ( my $dir = IO::Path.new($?FILE).parent ).path;
 
-my $module_name = %*ENV<EXERCISM>.so ?? 'Example' !! 'Cipher';
-my @potential_module = <p6 pm6 pm>.map:  $module_name ~ '.' ~ *; 
-
-my $module = first { $dir.child($_).e }, |@potential_module
-    or die "No file '$module_name.p6' found\n";
-
-require $module <&encode &decode>;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Cipher';
+require ::($module) <&encode &decode>;
 
 plan 2;
 

data/tracks/perl6/exercises/linked-list/Example.pm6

@@ -0,0 +1,51 @@
+class ListNode {
+    has $.next     is rw;
+    has $.previous is rw;
+    has $.value;
+}
+
+class LinkedList is export {
+    has $!first;
+    has $!last;
+
+    method push($value) {
+        my $next = ListNode.new( value => $value, previous => $!last );
+        if ( $!last ) {
+            $!last = $!last.next= $next ;
+        }
+        else {
+            $!first = $!last = $next;
+        }
+    }
+
+    method unshift($value) {
+        my $next = ListNode.new( value => $value, next => $!first );
+        if ( $!first ) {
+            $!first = $!first.previous = $next ;
+        }
+        else {
+            $!first = $!last = $next;
+        }
+    }
+
+    method shift() {
+        my $f = $!first;
+
+        $!first = $!first.next;
+
+        unless $!first  { $!last = $!first }
+
+        return $f.value;
+    }
+
+    method pop() {
+        my $f = $!last;
+
+        $!last = $!last.previous;
+
+        unless $!.last  { $!first = $!last }
+
+        return $f.value;
+    }
+};
+

data/tracks/perl6/exercises/linked-list/linked-list.t

@@ -0,0 +1,91 @@
+#!/usr/bin/env perl6
+
+use Test;
+use JSON::Tiny;
+
+use lib IO::Path.new($?FILE).parent.path;
+
+my $module = %*ENV<EXERCISM> ?? 'Example' !! 'LinkedList';
+require ::($module) <LinkedList>;
+
+my @cases; # defined in INIT
+
+plan 0 + @cases;
+
+for @cases -> $c {
+    subtest $c.<name>, sub {
+        my $ll = LinkedList.new;
+        for  |$c.<set> -> %s {
+            for %s {
+                my $v = $_.value;
+                given $_.key  {
+                    when 'push'    { $ll.push( $v );    pass 'push ' ~ $v    }
+                    when 'unshift' { $ll.unshift( $v ); pass 'unshift ' ~ $v }
+                    when 'pop'     { is $ll.pop,   $v, 'pop'   }
+                    when 'shift'   { is $ll.shift, $v, 'shift' }
+                }
+            }
+        }
+    };
+}
+
+
+done-testing;
+
+INIT {
+  @cases := from-json ｢
+    [
+      {
+        "set" : [
+          { "push" : 10 },
+          { "push" : 20 },
+          { "pop"  : 20 },
+          { "pop"  : 10 }
+        ],
+        "name" : "push_pop"
+      },
+      {
+        "set" : [
+          { "push" : 10  },
+          { "push" : 20  },
+          { "shift" : 10 },
+          { "shift" : 20 }
+        ],
+        "name" : "push_shift"
+      },
+      {
+        "set" : [
+          { "unshift" : 10 },
+          { "unshift" : 20 },
+          { "shift"   : 20 },
+          { "shift"   : 10 }
+        ],
+        "name" : "unshift_shift"
+      },
+      {
+        "set" : [
+          { "unshift" : 10 },
+          { "unshift" : 20 },
+          { "pop"     : 10 },
+          { "pop"     : 20 }
+        ],
+        "name" : "unshift_pop"
+      },
+      {
+        "set" : [
+          { "push"    : 10 },
+          { "push"    : 20 },
+          { "pop"     : 20 },
+          { "push"    : 30 },
+          { "shift"   : 10 },
+          { "unshift" : 40 },
+          { "push"    : 50 },
+          { "shift"   : 40 },
+          { "pop"     : 50 },
+          { "shift"   : 30 }
+        ],
+        "name" : "example"
+      }
+    ]
+  ｣
+}