trackler 2.0.6.31 → 2.0.6.32

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: ce72cb821d80518789fa621475071a4dbb30197a
-  data.tar.gz: b7b14debc8e89d780f361c1419aea892a3bca8c8
+  metadata.gz: 9f6e3f97fb0442bba06845f093f9ab9ea5d92a79
+  data.tar.gz: cbb479cfd8d79e854facf50b3e114d21e76e637f
 SHA512:
-  metadata.gz: fe5a09839008c9ec917ea7410db0a82a41afba57c16e986e928817cec9dbff96377c07d1cc9604915519e20c689ae431c54c9b33550bbedc5efed724d738b132
-  data.tar.gz: a5647458958f9a1540c0320b5eb0dce76e98a8010c76a73fddb6f8bc90298490c836b00bbd5f4eed81795d9084a72b1cdc650474921364023956d3202844bbc4
+  metadata.gz: 0f08eba9a5d7e964a238e50dc854d66444bd8f05d21e3263f4e8e272312cbb1ad46f628883621a181bdf23e4f7156bdfdb6eaf0312be81020061e927fea4d8c2
+  data.tar.gz: 7e7956710060f07e599ef66a935d2759340ab4a1598139b7314879db60fc6d863f9714ff36a88c3377ddc51130ba442d195b8769ffa7ac1b295b5a7d06b06786

data/lib/trackler/version.rb

@@ -1,3 +1,3 @@
 module Trackler
-  VERSION = "2.0.6.31"
+  VERSION = "2.0.6.32"
 end

data/tracks/go/exercises/allergies/allergies_test.go

@@ -23,10 +23,13 @@ var allergiesTests = []struct {
 	{[]string{"eggs", "shellfish", "strawberries", "tomatoes", "chocolate", "pollen", "cats"}, 509},
 }
 
-func TestAllergies(t *testing.T) {
+func TestTestVersion(t *testing.T) {
 	if testVersion != targetTestVersion {
 		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
 	}
+}
+
+func TestAllergies(t *testing.T) {
 	for _, test := range allergiesTests {
 		actual := Allergies(test.input)
 		sort.Strings(actual)

data/tracks/go/exercises/anagram/anagram_test.go

@@ -6,6 +6,8 @@ import (
 	"testing"
 )
 
+const targetTestVersion = 1
+
 var testCases = []struct {
 	subject     string
 	candidates  []string
@@ -138,6 +140,12 @@ func equal(a []string, b []string) bool {
 	return fmt.Sprintf("%v", a) == fmt.Sprintf("%v", b)
 }
 
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 func TestDetectAnagrams(t *testing.T) {
 	for _, tt := range testCases {
 		actual := Detect(tt.subject, tt.candidates)

data/tracks/go/exercises/anagram/example.go

@@ -5,6 +5,8 @@ import (
 	"strings"
 )
 
+const testVersion = 1
+
 func Detect(subject string, candidates []string) []string {
 	subject = strings.ToLower(subject)
 	var matches []string

data/tracks/go/exercises/atbash-cipher/atbash_cipher_test.go

@@ -2,6 +2,8 @@ package atbash
 
 import "testing"
 
+const targetTestVersion = 1
+
 var tests = []struct {
 	expected string
 	s        string
@@ -17,6 +19,12 @@ var tests = []struct {
 	{"gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt", "The quick brown fox jumps over the lazy dog."},
 }
 
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 func TestAtbash(t *testing.T) {
 	for _, test := range tests {
 		actual := Atbash(test.s)

data/tracks/go/exercises/atbash-cipher/example.go

@@ -5,6 +5,8 @@ import (
 	"strings"
 )
 
+const testVersion = 1
+
 var alphabet = "abcdefghijklmnopqrstuvwxyz"
 
 func Atbash(s string) string {

data/tracks/ocaml/tools/test-generator/Makefile

@@ -1,13 +1,13 @@
 test: test_gen.native
 	@./all_tests.native
 
-canonical_data_checker.native: all_tests.native src/*.ml interfaces/*.mli test/*.ml
+canonical_data_checker.native: all_tests.native src/*.ml test/*.ml
 	@ocamlbuild -use-ocamlfind -tag thread -tag short_paths -cflags -strict-sequence -r -pkg core -pkg yojson -pkg ppx_deriving -pkg ppx_deriving.eq -pkg ppx_deriving.show -Is src,interfaces canonical_data_checker.native
 
-test_gen.byte: all_tests.native src/*.ml interfaces/*.mli test/*.ml
+test_gen.byte: all_tests.native src/*.ml test/*.ml
 	@ocamlbuild -use-ocamlfind -tag thread -tag short_paths -cflags -strict-sequence -r -pkg core -pkg yojson -pkg ppx_deriving -pkg ppx_deriving.eq -pkg ppx_deriving.show -Is src,interfaces test_gen.byte
 
-test_gen.native: all_tests.native src/*.ml interfaces/*.mli test/*.ml
+test_gen.native: all_tests.native src/*.ml test/*.ml
 	@ocamlbuild -use-ocamlfind -tag thread -tag short_paths -cflags -strict-sequence -r -pkg core -pkg yojson -pkg ppx_deriving -pkg ppx_deriving.eq -pkg ppx_deriving.show -Is src,interfaces test_gen.native
 
 all_tests.native: src/*.ml test/*.ml

data/tracks/perl6/SETUP.md

@@ -7,7 +7,7 @@ examples if you get stuck.
 ## Running the tests
 
 There is a test script included with the exercise; a file with the extension
-`.t`. You can run the test script for the exercise with the following commands:
-
-  - `prove -ve perl6 .`
-  - `perl6 example.t` (replacing `example.t` with the included `.t` file.)
+`.t`. You can run the test script for the exercise by executing the command
+`prove . --exec=perl6` in the exercise directory. You can also add the `-v` flag
+e.g. `prove . --exec=perl6 -v` to display all tests, including any optional
+tests marked as 'TODO'.

data/tracks/r/config.json

@@ -54,6 +54,21 @@
       "difficulty": 1,
       "slug": "hamming",
       "topics": []
+    },
+    {
+      "difficulty": 1,
+      "slug": "leap",
+      "topics": []
+    },
+    {
+      "difficulty": 1,
+      "slug": "raindrops",
+      "topics": []
+    },
+    {
+      "difficulty": 1,
+      "slug": "sum-of-multiples",
+      "topics": []
     }
   ]
 }

data/tracks/r/exercises/hello-world/test_hello-world.R

@@ -1,4 +1,4 @@
-source('./hello_world.R')
+source('./hello-world.R')
 suppressPackageStartupMessages({ require(testthat) })
 
 test_that("no name", {

data/tracks/r/exercises/leap/example.R

@@ -0,0 +1,6 @@
+leap <- function(year) {
+  # on every year that is evenly divisible by 4
+  # except every year that is evenly divisible by 100
+  # unless the year is also evenly divisible by 400
+  year %% 400 == 0 || (year %% 100 != 0 & year %% 4 == 0)
+}

data/tracks/r/exercises/leap/leap.R

@@ -0,0 +1,3 @@
+leap <- function(year) {
+  
+}

data/tracks/r/exercises/leap/test_leap.R

@@ -0,0 +1,24 @@
+source('./leap.R')
+suppressPackageStartupMessages({ require(testthat) })
+
+test_that("year not divisible by 4: common year", {
+  year <- 2015
+  expect_equal(leap(year), FALSE)
+})
+
+test_that("year divisible by 4, not divisible by 100: leap year", {
+  year <- 2016
+  expect_equal(leap(year), TRUE)
+})
+
+test_that("year divisible by 100, not divisible by 400: common year", {
+  year <- 2100
+  expect_equal(leap(year), FALSE)
+})
+
+test_that("year divisible by 400: leap year", {
+  year <- 2000
+  expect_equal(leap(year), TRUE)
+})
+
+print("All tests passed!")

data/tracks/r/exercises/raindrops/example.R

@@ -0,0 +1,28 @@
+raindrops <- function(number) {
+  
+  Pling <- ''
+  Plang <- ''
+  Plong <- ''
+  
+  # If the number has 3 as a factor, output 'Pling'.
+  if (number %% 3 == 0) {
+    Pling <- 'Pling'
+  }
+  # If the number has 5 as a factor, output 'Plang'.
+  if (number %% 5 == 0) {
+    Plang <- 'Plang'
+  }
+  # If the number has 7 as a factor, output 'Plong'.
+  if (number %% 7 == 0) {
+    Plong <- 'Plong'
+  }
+  
+  PlingPlangPlong <- paste(Pling, Plang, Plong, sep = "")
+  
+  # If the number does not have 3, 5, or 7 as a factor, just pass the number's digits straight through.
+  if (PlingPlangPlong == "") {
+    PlingPlangPlong = as.character(number)
+  }
+  
+  PlingPlangPlong
+}

data/tracks/r/exercises/raindrops/raindrops.R

@@ -0,0 +1,3 @@
+raindrops <- function(number) {
+  
+}

data/tracks/r/exercises/raindrops/test_raindrops.R

@@ -0,0 +1,94 @@
+source('./raindrops.R')
+suppressPackageStartupMessages({ require(testthat) })
+
+test_that("the sound for 1 is 1", {
+  number <- 1
+  expect_equal(raindrops(number), "1")
+})
+
+test_that("the sound for 3 is Pling", {
+  number <- 3
+  expect_equal(raindrops(number), "Pling")
+})
+
+test_that("the sound for 5 is Plang", {
+  number <- 5
+  expect_equal(raindrops(number), "Plang")
+})
+
+test_that("the sound for 7 is Plong", {
+  number <- 7
+  expect_equal(raindrops(number), "Plong")
+})
+
+test_that("the sound for 6 is Pling as it has a factor 3", {
+  number <- 6
+  expect_equal(raindrops(number), "Pling")
+})
+
+test_that("2 to the power 3 does not make a raindrop sound as 3 is the exponent not the base", {
+  number <- 8
+  expect_equal(raindrops(number), "8")
+})
+
+test_that("the sound for 9 is Pling as it has a factor 3", {
+  number <- 9
+  expect_equal(raindrops(number), "Pling")
+})
+
+test_that("the sound for 10 is Plang as it has a factor 5", {
+  number <- 10
+  expect_equal(raindrops(number), "Plang")
+})
+
+test_that("the sound for 14 is Plong as it has a factor of 7", {
+  number <- 14
+  expect_equal(raindrops(number), "Plong")
+})
+
+test_that("the sound for 15 is PlingPlang as it has factors 3 and 5", {
+  number <- 15
+  expect_equal(raindrops(number), "PlingPlang")
+})
+
+test_that("the sound for 21 is PlingPlong as it has factors 3 and 7", {
+  number <- 21
+  expect_equal(raindrops(number), "PlingPlong")
+})
+
+test_that("the sound for 25 is Plang as it has a factor 5", {
+  number <- 25
+  expect_equal(raindrops(number), "Plang")
+})
+
+test_that("the sound for 27 is Pling as it has a factor 3", {
+  number <- 27
+  expect_equal(raindrops(number), "Pling")
+})
+
+test_that("the sound for 35 is PlangPlong as it has factors 5 and 7", {
+  number <- 35
+  expect_equal(raindrops(number), "PlangPlong")
+})
+
+test_that("the sound for 49 is Plong as it has a factor 7", {
+  number <- 49
+  expect_equal(raindrops(number), "Plong")
+})
+
+test_that("the sound for 52 is 52", {
+  number <- 52
+  expect_equal(raindrops(number), "52")
+})
+
+test_that("the sound for 105 is PlingPlangPlong as it has factors 3, 5 and 7", {
+  number <- 105
+  expect_equal(raindrops(number), "PlingPlangPlong")
+})
+
+test_that("the sound for 3125 is Plang as it has a factor 5", {
+  number <- 3125
+  expect_equal(raindrops(number), "Plang")
+})
+
+print("All tests passed!")

data/tracks/r/exercises/sum-of-multiples/example.R

@@ -0,0 +1,16 @@
+sum_of_multiples <- function(factors, limit) {
+  
+  get_mults <- function(factor) {
+    
+    max_mult <- ceiling(limit / factor) - 1
+    if (max_mult > 0) {
+      new_multiples <- factor * 1:max_mult
+    }
+    
+  }
+  
+  multiples <- unique(unlist(lapply(factors, FUN = get_mults)))
+  
+  return(sum(as.numeric(multiples)))
+  
+}

data/tracks/r/exercises/sum-of-multiples/sum-of-multiples.R

@@ -0,0 +1,3 @@
+sum_of_multiples <- function(factors, limit) {
+  
+}

data/tracks/r/exercises/sum-of-multiples/test_sum-of-multiples.R

@@ -0,0 +1,52 @@
+source('./sum_of_multiples.R')
+suppressPackageStartupMessages({ require(testthat) })
+
+test_that("Case 1", {
+  expect_equal(sum_of_multiples(c(3,5), 1), 0)
+})
+
+test_that("Case 2", {
+  expect_equal(sum_of_multiples(c(3,5), 4), 3)
+})
+
+test_that("Case 3", {
+  expect_equal(sum_of_multiples(c(3,5), 10), 23)
+})
+
+test_that("Case 4", {
+  expect_equal(sum_of_multiples(c(3,5), 100), 2318)
+})
+
+test_that("Case 5", {
+  expect_equal(sum_of_multiples(c(3,5), 1000), 233168)
+})
+
+test_that("Case 6", {
+  expect_equal(sum_of_multiples(c(7,13,17), 20), 51)
+})
+
+test_that("Case 7", {
+  expect_equal(sum_of_multiples(c(4,6), 15), 30)
+})
+
+test_that("Case 8", {
+  expect_equal(sum_of_multiples(c(5,6,8), 150), 4419)
+})
+
+test_that("Case 9", {
+  expect_equal(sum_of_multiples(c(5,25), 51), 275)
+})
+
+test_that("Case 10", {
+  expect_equal(sum_of_multiples(c(43,47), 10000), 2203160)
+})
+
+test_that("Case 11", {
+  expect_equal(sum_of_multiples(c(1), 100), 4950)
+})
+
+test_that("Case 12", {
+  expect_equal(sum_of_multiples(c(), 10000), 0)
+})
+
+print("All tests passed!")

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: trackler
 version: !ruby/object:Gem::Version
-  version: 2.0.6.31
+  version: 2.0.6.32
 platform: ruby
 authors:
 - Katrina Owen
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2017-02-04 00:00:00.000000000 Z
+date: 2017-02-05 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rubyzip
@@ -5412,12 +5412,6 @@ files:
 - tracks/ocaml/tools/test-generator/Makefile
 - tracks/ocaml/tools/test-generator/README.md
 - tracks/ocaml/tools/test-generator/_tags
-- tracks/ocaml/tools/test-generator/interfaces/codegen.mli
-- tracks/ocaml/tools/test-generator/interfaces/controller.mli
-- tracks/ocaml/tools/test-generator/interfaces/parser.mli
-- tracks/ocaml/tools/test-generator/interfaces/special_cases.mli
-- tracks/ocaml/tools/test-generator/interfaces/template.mli
-- tracks/ocaml/tools/test-generator/interfaces/utils.mli
 - tracks/ocaml/tools/test-generator/src/canonical_data_checker.ml
 - tracks/ocaml/tools/test-generator/src/codegen.ml
 - tracks/ocaml/tools/test-generator/src/controller.ml
@@ -6164,12 +6158,21 @@ files:
 - tracks/r/exercises/hello-world/example.R
 - tracks/r/exercises/hello-world/hello-world.R
 - tracks/r/exercises/hello-world/test_hello-world.R
+- tracks/r/exercises/leap/example.R
+- tracks/r/exercises/leap/leap.R
+- tracks/r/exercises/leap/test_leap.R
 - tracks/r/exercises/luhn/example.R
 - tracks/r/exercises/luhn/luhn.R
 - tracks/r/exercises/luhn/test_luhn.R
+- tracks/r/exercises/raindrops/example.R
+- tracks/r/exercises/raindrops/raindrops.R
+- tracks/r/exercises/raindrops/test_raindrops.R
 - tracks/r/exercises/space-age/example.R
 - tracks/r/exercises/space-age/space-age.R
 - tracks/r/exercises/space-age/test_space-age.R
+- tracks/r/exercises/sum-of-multiples/example.R
+- tracks/r/exercises/sum-of-multiples/sum-of-multiples.R
+- tracks/r/exercises/sum-of-multiples/test_sum-of-multiples.R
 - tracks/r/exercises/word-count/example.R
 - tracks/r/exercises/word-count/test_word-count.R
 - tracks/r/exercises/word-count/word-count.R

data/tracks/ocaml/tools/test-generator/interfaces/codegen.mli

@@ -1,13 +0,0 @@
-open Core.Std
-
-open Model
-
-type edit_expected_function = value: parameter -> string
-
-type edit_parameters_function = (string * string) list -> (string * string) list
-
-type subst = Subst of string
-
-val subst_to_string : subst -> string
-
-val fill_in_template : edit_expected_function -> edit_parameters_function -> string -> case list -> (subst list, string) Result.t

data/tracks/ocaml/tools/test-generator/interfaces/controller.mli

@@ -1,3 +0,0 @@
-open Core.Std
-
-val run : templates_folder: string -> canonical_data_folder: string -> output_folder: string -> unit

data/tracks/ocaml/tools/test-generator/interfaces/parser.mli

@@ -1,15 +0,0 @@
-open Core.Std
-open Model
-
-type error = TopLevelMustHaveKeyCalledCases | ExpectingListOfCases |
-             ExpectingMapForCase | BadDescription | BadExpected
-
-type test = {name: string; cases: case list} [@@deriving eq, show]
-
-type tests =
-  | Single of case list
-  | Suite of test list [@@deriving eq, show]
-
-val parse_json_text : string -> (tests, error) Result.t
-
-val show_error : error -> string

data/tracks/ocaml/tools/test-generator/interfaces/special_cases.mli

@@ -1,7 +0,0 @@
-open Core.Std
-
-open Model
-
-val edit_expected : stringify:(parameter -> string) -> slug:string -> key:string -> value:parameter -> string
-
-val edit_parameters : slug: string -> (string * string) list -> (string * string) list

data/tracks/ocaml/tools/test-generator/interfaces/template.mli

@@ -1,11 +0,0 @@
-open Core.Std
-
-open Codegen
-
-type t = {start: int; finish: int; file_text: string; template: string}
-
-val fill : int -> int -> template: string -> subst list -> string
-
-val find_template : template_text: string -> (int * int * string) option
-
-val show : t -> string

data/tracks/ocaml/tools/test-generator/interfaces/utils.mli

@@ -1,22 +0,0 @@
-open Core.Std
-open Yojson.Safe
-
-val map2 : ('a -> 'b -> 'c) -> ('a, 'e) Result.t -> ('b, 'e) Result.t -> ('c, 'e) Result.t
-
-val sequence : (('a, 'e) Result.t) list -> (('a list), 'e) Result.t
-
-val to_list_option : json -> json list option
-
-val to_list_note : 'e -> json -> ((json list, 'e) Result.t)
-
-val to_assoc_note : 'e -> json -> ((json list, 'e) Result.t)
-
-val to_string_note : 'e -> json -> ((string, 'e) Result.t)
-
-val member_note : 'e -> string -> json -> ((json, 'e) Result.t)
-
-val safe_to_int_option : json -> int option
-
-val find_arrayi : ?start:int -> 'a array -> f:('a -> bool) -> (int * 'a) option
-
-val (>>) : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b