trackler 2.0.3.2 → 2.0.3.3

data/tracks/ocaml/tools/test-generator/test/sample-suite-template.txt

@@ -0,0 +1,16 @@
+open Core.Std
+open OUnit2
+open Difference_of_squares
+
+let ae exp got _test_ctxt = assert_equal exp got
+
+let (* SUITE *)$(suite_name)_tests = [
+(* TEST
+   "$description" >::
+     ae $expected ($suite-name $number);
+   END TEST *)
+]
+(* END SUITE *)
+
+let () =
+  run_test_tt_main ("difference of squares tests" >::: List.concat [(* suite-all-names *)])

data/tracks/ocaml/tools/test-generator/test/sample_template.txt

@@ -5,9 +5,9 @@ open Hello_world
 let ae exp got _test_ctxt = assert_equal ~printer:String.to_string exp got
 
 let tests = [
-  (* GENERATED-CODE
+  (* TEST
 code
-     END GENERATED-CODE *)
+     END TEST *)
 ]
 
 let () =

data/tracks/ocaml/tools/test-generator/test/special_cases_test.ml

@@ -15,7 +15,7 @@ let stringify = function
 
 let special_cases_tests = [
   "for a non special cased slug convert the parameter to a string" >:: (fun _ctx ->
-      assert_equal ~printer:Fn.id "stringified" @@ fixup ~stringify ~slug:"some-slug" ~key:"key" ~value:(Bool true)
+      assert_equal ~printer:Fn.id "stringified" @@ edit_expected ~stringify ~slug:"some-slug" ~value:(Bool true)
     );
 
   "an optional int parameter is converted to none if it matches the special value" >:: (fun _ctx ->

data/tracks/ocaml/tools/test-generator/test/template_test.ml

@@ -4,23 +4,57 @@ open Codegen
 open Template
 
 let printer = Option.value_map ~f:show ~default:"None"
+let int_option_printer = Option.value_map ~f:Int.to_string ~default:"None"
 
 let template_tests = [
-  "if there is no generated code marker in a string then find_template returns None" >:: (fun _ctx ->
+  "if there is no test marker in a string then find_template returns None" >:: (fun _ctx ->
       assert_equal None @@ find_template ~template_text:"some code block"
     );
 
-  "if there is generated code marker in a string then find_template returns where it is" >:: (fun _ctx ->
+  "if there is a test marker in a string then find_template returns where it is" >:: (fun _ctx ->
       let template_text = In_channel.read_all "test/sample_template.txt" in
-      assert_equal ~printer (Some {start=7; finish=9; file_text=template_text; template="code"}) @@ find_template ~template_text
+      assert_equal ~printer (Some {start=7; finish=9;
+                                   file_text=template_text; template="code";
+                                   suite_name_line= None;
+                                   suite_end = None;
+                                   suite_all_names_line = None}) @@ find_template ~template_text
+    );
+
+  "if there is a suite description line then find_template returns where it is" >:: (fun _ctx ->
+      let template_text = In_channel.read_all "test/sample-suite-template.txt" in
+      let template = find_template ~template_text in
+      match template with
+      | None -> assert_failure "Could not find a template at all"
+      | Some template -> assert_equal ~printer:int_option_printer (Some 6) template.suite_name_line
+    );
+
+  "if there is a suite all descriptions line then find_template returns where it is" >:: (fun _ctx ->
+      let template_text = In_channel.read_all "test/sample-suite-template.txt" in
+      let template = find_template ~template_text in
+      match template with
+      | None -> assert_failure "Could not find a template at all"
+      | Some template -> assert_equal ~printer:int_option_printer (Some 15) template.suite_all_names_line
     );
 
   "fills in lines of a template" >:: (fun _ctx ->
       let template_text = In_channel.read_all "test/sample_template.txt" in
-      let template = {start=7; finish=9; file_text=template_text;template="code"} in
-      let filled = fill template [Subst "line1"; Subst "line2"] in
-      let pattern = "  (* GENERATED-CODE\ncode\n     END GENERATED-CODE *)" in
+      let template = {start=7; finish=9; file_text=template_text;template="code";
+                      suite_name_line= None; suite_end = None; suite_all_names_line = None} in
+      let filled = fill_tests template [Subst "line1"; Subst "line2"] in
+      let pattern = "  (* TEST\ncode\n     END TEST *)" in
       let expected = (String.substr_replace_all ~pattern ~with_:"line1\nline2" template_text) in
       assert_equal ~printer:Fn.id expected (filled ^ "\n")
     );
+
+  "fills in a single suite in a suite template" >:: (fun _ctx ->
+      let template_text = In_channel.read_all "test/sample-suite-template.txt" in
+      let template = {start=7; finish=9; file_text=template_text;template="code";
+                      suite_name_line=Some 6; suite_end = Some 14; suite_all_names_line = None} in
+      let subst = ("tests1", [Subst "line1"; Subst "line2"]) in
+      let filled = fill_single_suite template subst in
+      assert_equal ~printer:Bool.to_string true (String.substr_index filled ~pattern:"let tests1_tests = [" |> Option.is_some);
+      assert_equal ~printer:Bool.to_string true (String.substr_index filled ~pattern:"line1" |> Option.is_some);
+      assert_equal ~printer:Bool.to_string true (String.substr_index filled ~pattern:"line2" |> Option.is_some);
+      assert_equal ~printer:Int.to_string 6 (String.count ~f:(fun ch -> ch = '\n') filled);
+    );
 ]

data/tracks/perl6/.travis.yml

@@ -5,6 +5,9 @@ perl6:
   - latest
   - '2016.10'
   - '2016.07'
+install:
+  - rakudobrew build-panda
+  - panda install JSON::Tiny
 before_script:
   - bin/fetch-configlet
 script:

data/tracks/perl6/docs/RESOURCES.md

@@ -1,3 +1,3 @@
 # Resources
 
-* [The Perl6 site](https://perl6.org/) has a [resources](https://perl6.org/resources/) page containing variety of information on the language, such as guides for newcomers, documentation, and screencasts.
+[The Perl6 site](https://perl6.org/) has a [resources](https://perl6.org/resources/) page containing variety of information on the language, such as guides for newcomers, documentation, and screencasts.

data/tracks/perl6/exercises/accumulate/accumulate.t

@@ -3,14 +3,10 @@ use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;
 
-plan 8;
-
 BEGIN {
-  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Accumulate';
-  EVAL("use $module")
-};
-
-pass 'Load module';
+  plan 8;
+  eval-lives-ok %*ENV<EXERCISM>.so ?? 'use Example' !! 'use Accumulate', 'Module loaded';
+}
 
 ok Accumulate.can('accumulate'), 'Accumulate class has accumulate() method';
 

data/tracks/perl6/exercises/anagram/anagram.t

@@ -3,14 +3,10 @@ use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;
 
-plan 11;
-
 BEGIN {
-  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Anagram';
-  EVAL("use $module")
-};
-
-pass 'Load module';
+  plan 11;
+  eval-lives-ok %*ENV<EXERCISM>.so ?? 'use Example' !! 'use Anagram', 'Module loaded';
+}
 
 ok Anagram.can('match'), 'Class Anagram has match method';
 

data/tracks/perl6/exercises/binary/binary.t

@@ -3,14 +3,10 @@ use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;
 
-plan 10;
-
 BEGIN {
-  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Binary';
-  EVAL("use $module")
-};
-
-pass 'Load module';
+  plan 10;
+  eval-lives-ok %*ENV<EXERCISM>.so ?? 'use Example' !! 'use Binary', 'Module loaded';
+}
 
 ok Binary.can('to_decimal'), 'Class Binary has to_decimal method';
 

data/tracks/perl6/exercises/bob/bob.t

@@ -3,14 +3,10 @@ use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;
 
-plan 21;
-
-BEGIN { 
-    my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Bob';
-    EVAL("use $module");
-}; 
-
-pass 'Load module';
+BEGIN {
+  plan 21;
+  eval-lives-ok %*ENV<EXERCISM>.so ?? 'use Example' !! 'use Bob', 'Module loaded';
+}
 
 ok Bob.can('hey'), 'Class Bob has hey() method';
 

data/tracks/perl6/exercises/grains/grains.t

@@ -3,14 +3,10 @@ use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;
 
-plan 11;
-
 BEGIN {
-  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Grains';
-  EVAL("use $module")
-};
-
-pass 'Load module';
+  plan 11;
+  eval-lives-ok %*ENV<EXERCISM>.so ?? 'use Example' !! 'use Grains', 'Module loaded';
+}
 
 ok Grains.can('square'), 'Grains class has square method';
 ok Grains.can('total'), 'Grains class has total method';

data/tracks/perl6/exercises/leap/leap.t

@@ -3,14 +3,10 @@ use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;
 
-plan 8;
-
 BEGIN {
-    my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Leap';
-    EVAL("use $module");
-};
-
-pass 'Load module';
+  plan 8;
+  eval-lives-ok %*ENV<EXERCISM>.so ?? 'use Example' !! 'use Leap', 'Module loaded';
+}
 
 ok Leap.can('is_leap'), 'Leap class has is_leap() method';
 

data/tracks/perl6/exercises/rna-transcription/rna_transcription.t

@@ -3,14 +3,10 @@ use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;
 
-plan 7;
-
-BEGIN { 
-    my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'RNA_Transcription';
-    EVAL("use $module");
-}; 
-
-pass 'Load module';
+BEGIN {
+  plan 7;
+  eval-lives-ok %*ENV<EXERCISM>.so ?? 'use Example' !! 'use RNA_Transcription', 'Module loaded';
+}
 
 ok RNA_Transcription.can('to_rna'), 'Class RNA_Transcription has to_rna() method';
 

data/tracks/perl6/exercises/robot-name/robot.t

@@ -3,14 +3,10 @@ use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;
 
-plan 7;
-
-BEGIN { 
-    my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Robot';
-    EVAL("use $module");
-}; 
-
-pass 'Load module';
+BEGIN {
+  plan 7;
+  eval-lives-ok %*ENV<EXERCISM>.so ?? 'use Example' !! 'use Robot', 'Module loaded';
+}
 
 ok Robot.can('name'), 'Robot class has name attribute';
 ok Robot.can('reset_name'), 'Robot class has reset_name method';

data/tracks/perl6/exercises/scrabble-score/scrabble_score.t

@@ -3,14 +3,10 @@ use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;
 
-plan 10;
-
 BEGIN {
-  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Scrabble';
-  EVAL("use $module")
-};
-
-pass 'Load module';
+  plan 10;
+  eval-lives-ok %*ENV<EXERCISM>.so ?? 'use Example' !! 'use Scrabble', 'Module loaded';
+}
 
 ok Scrabble.can('score'), 'Scrabble class has score() method';
 

data/tracks/perl6/exercises/word-count/word_count.t

@@ -3,15 +3,10 @@ use v6;
 use Test;
 use lib IO::Path.new($?FILE).parent.path;
 
-plan 8;
-
 BEGIN {
-  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Word_Counter';
-  EVAL("use $module")
-};
-
-pass 'Load module';
-
+  plan 8;
+  eval-lives-ok %*ENV<EXERCISM>.so ?? 'use Example' !! 'use Word_Counter', 'Module loaded';
+}
 
 ok Word_Counter.can('count_words'), 'Class Word_Counter has count_words method';
 

data/tracks/r/config.json

@@ -44,6 +44,16 @@
       "difficulty": 1,
       "slug": "word-count",
       "topics": []
+    },
+    {
+      "difficulty": 1,
+      "slug": "difference-of-squares",
+      "topics": []
+    },
+    {
+      "difficulty": 1,
+      "slug": "hamming",
+      "topics": []
     }
   ]
 }

data/tracks/r/docs/ABOUT.md

@@ -0,0 +1,14 @@
+R is a free, open source, programming language and software environment for statistical computing and graphics developed at Bell Laboratories as a GNU project. It is designed as a true computer language, and is written in C, Fortran and R.
+
+R provides a wide variety of statistical (linear and nonlinear modelling, classical statistical tests, time-series analysis, classification, clustering, etc) and graphical techniques, and is highly extensible.
+
+One of its strengths is the ease with which well-designed publication-quality plots can be produced, including mathematical symbols and formulae where needed. Great care has been taken over the defaults for the minor design choices in graphics, but the user retains full control. Along with this, for computationally-intensive tasks, C, C++ and Fortran can be linked and called at runtime or one can even write C code to manipulate R objects directly.
+
+The R software suite includes:
+* An effective data handling and storage facility,
+* A suite of operators for calculations on arrays, in particular matrices,
+* A large, coherent, integrated collection of intermediate tools for data analysis,
+* graphical facilities for data analysis and display either on-screen or on hardcopy, and
+* A well-developed, simple and effective programming language which includes conditionals, loops, user-defined recursive functions and input and output facilities.
+* The term “environment” is intended to characterize it as a fully planned and coherent system, rather than an incremental accretion of very specific and inflexible tools, as is frequently the case with other data analysis software.
+* R can be extended (easily) via packages. There are about eight packages supplied with the R distribution and many more are available through the CRAN family of Internet sites covering a very wide range of modern statistics.

data/tracks/r/exercises/difference-of-squares/difference-of-squares.R

@@ -0,0 +1,5 @@
+# this is a stub function that takes a natural_number
+# and should return the difference-of-squares as described
+# in the README.md
+difference_of_squares <- function(natural_number) {
+}

data/tracks/r/exercises/difference-of-squares/example.R

@@ -0,0 +1,6 @@
+difference_of_squares <- function(natural_number) {
+  num_sequence <- seq_len(natural_number)
+  square_sums <- sum(num_sequence)^2
+  sum_squares <- sum(num_sequence^2)
+  sum(square_sums - sum_squares)
+}

data/tracks/r/exercises/difference-of-squares/test_difference-of-squares.R

@@ -0,0 +1,23 @@
+source('./difference-of-squares.R')
+suppressPackageStartupMessages({ require(testthat) })
+
+test_that("difference of squares 0", {
+  input <- 0
+  expect_equal(difference_of_squares(input), 0)
+})
+
+test_that("difference of squares 5", {
+  input <- 5
+  expect_equal(difference_of_squares(input), 170)
+})
+
+test_that("difference of squares 10", {
+  input <- 10
+  expect_equal(difference_of_squares(input), 2640)
+})
+
+test_that("difference of squares 100", {
+  input <- 100
+  expect_equal(difference_of_squares(input), 25164150)
+})
+

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

@@ -0,0 +1,8 @@
+hamming <- function(strand1,strand2) {
+  if (nchar(strand1) != nchar(strand2)) {
+    stop("undefined hamming distance")
+  }
+  strand1 <- strsplit(strand1,"")[[1]]
+  strand2 <- strsplit(strand2,"")[[1]]
+  length(strand1) - sum(strand1 == strand2)
+}

data/tracks/r/exercises/hamming/hamming.R

@@ -0,0 +1,4 @@
+# This is a stub function to take two strings
+# and calculate the hamming distance
+hamming <- function(strand1,strand2) {
+}

data/tracks/r/exercises/hamming/test_hamming.R

@@ -0,0 +1,87 @@
+source('./hamming.R')
+suppressPackageStartupMessages({ require(testthat) })
+
+test_that("identical strands", {
+  strand1 <-"A"
+  strand2 <- "A"
+  expect_equal(hamming(strand1, strand2), 0)
+})
+
+test_that("long identical strands", {
+  strand1 <-"GGACTGA"
+  strand2 <- "GGACTGA"
+  expect_equal(hamming(strand1, strand2), 0)
+})
+
+test_that("complete distance in single nucleotide strands", {
+  strand1 <-"A"
+  strand2 <- "G"
+  expect_equal(hamming(strand1, strand2), 1)
+})
+
+test_that("complete distance in small strands", {
+  strand1 <-"AG"
+  strand2 <- "CT"
+  expect_equal(hamming(strand1, strand2), 2)
+})
+
+test_that("small distance in small strands", {
+  strand1 <-"AT"
+  strand2 <- "CT"
+  expect_equal(hamming(strand1, strand2), 1)
+})
+
+test_that("small distance", {
+  strand1 <-"GGACG"
+  strand2 <- "GGTCG"
+  expect_equal(hamming(strand1, strand2), 1)
+})
+
+test_that("small distance in long strands", {
+  strand1 <-"ACCAGGG"
+  strand2 <- "ACTATGG"
+  expect_equal(hamming(strand1, strand2), 2)
+})
+
+test_that("non-unique character in first strand", {
+  strand1 <-"AGA"
+  strand2 <- "AGG"
+  expect_equal(hamming(strand1, strand2), 1)
+})
+
+test_that("non-unique character in second strand", {
+  strand1 <-"AGG"
+  strand2 <- "AGA"
+  expect_equal(hamming(strand1, strand2), 1)
+})
+
+test_that("same nucleotides in different positions", {
+  strand1 <-"TAG"
+  strand2 <- "GAT"
+  expect_equal(hamming(strand1, strand2), 2)
+})
+
+test_that("large distance", {
+  strand1 <-"GATACA"
+  strand2 <- "GCATAA"
+  expect_equal(hamming(strand1, strand2), 4)
+})
+
+test_that("empty strands", {
+  strand1 <-""
+  strand2 <- ""
+  expect_equal(hamming(strand1, strand2), 0)
+})
+
+test_that("disallow first strand longer", {
+  strand1 <-"AATG"
+  strand2 <- "AAA"
+  expect_error(hamming(strand1, strand2))
+})
+
+test_that("disallow second strand longer", {
+  strand1 <-"ATA"
+  strand2 <- "AGTG"
+  expect_error(hamming(strand1, strand2))
+})
+