Clean up unused options in templates, pass test array directly into template (#733)

Author: m-dango

bin/README.md

@@ -15,13 +15,6 @@ If it finds a `canonical-data.json` file for the exercise in question (via `bin/
 
 Example of a yaml file:
 ```yaml
-modules:
-  - use: Data::Dump
-  - use: Foo::Bar
-
-# For class methods
-methods: 'foo bar'
-
 # This is a string containing Raku code, to be inserted before any properties
 tests: |-
   my $baz;

exercises/practice/affine-cipher/.meta/template-data.yaml

@@ -1,4 +1,3 @@
-methods: encode decode
 properties:
   encode:
     test: |-
@@ -42,6 +41,7 @@ properties:
       }
 
 unit: class
+
 example: |-
   constant @alphabet = 'a'..'z';
   constant $m        = @alphabet.elems;

exercises/practice/clock/.meta/template-data.yaml

@@ -1,4 +1,3 @@
-methods: time add subtract
 properties:
   create:
     test: |-
@@ -54,6 +53,7 @@ properties:
       }
 
 unit: class
+
 example: |-
   has Int:D $.hour   = 0;
   has Int:D $.minute = 0;
@@ -76,6 +76,7 @@ example: |-
       $!hour = ($!hour + $!minute div 60) % 24;
       $!minute %= 60;
   }
+
 stub: |-
   has $.hour;
   has $.minute;

exercises/practice/grade-school/.meta/template-data.yaml

@@ -1,6 +1,6 @@
-methods: add roster
 tests: |
   my GradeSchool $grade-school;
+
 properties:
   add:
     test: |-

exercises/practice/linked-list/.meta/template-data.yaml

@@ -1,4 +1,3 @@
-methods: push pop shift unshift count delete
 properties:
   list:
     test: |-
@@ -27,6 +26,7 @@ properties:
       }).join("\n") ~ "\n};\n";
 
 unit: class
+
 example: |-
   class Node {
       has Node ( $.head, $.tail ) is rw;

exercises/practice/queen-attack/.meta/template-data.yaml

@@ -1,7 +1,8 @@
 package: Queen
-methods: can-attack
+
 tests: |
   my Queen %queen;
+
 properties:
   create:
     test: |-

exercises/practice/robot-name/.meta/template-data.yaml

@@ -1,6 +1,6 @@
 package: Robot
-methods: name reset-name
-tests: |-
+
+tests: |
   srand 1; # begin: 1
   my Robot:D $robot := Robot.new;
   my Str:D @robot-names = $robot.name;

lib/Exercism/Generator.rakumod

@@ -78,10 +78,10 @@ submethod build-property-tests {
         @output[0].=trim-trailing;
         @output[0] ~= " # begin: %case<uuid>\n";
       }
-      @tests.push(@output.join.trim-trailing ~ ' # ' ~ (@output > 1 ?? 'end' !! 'case') ~ ": %case<uuid>\n");
+      @tests.push(@output.join.trim-trailing ~ ' # ' ~ (@output > 1 ?? 'end' !! 'case') ~ ": %case<uuid>");
     }
     else {
-      @tests.push("flunk; # case: %case<uuid>\n")
+      @tests.push("flunk; # case: %case<uuid>")
     }
   }
   return @tests;
@@ -112,12 +112,10 @@ method examples ( --> Hash() ) {
 
 method !render ( Str $module_file? --> Str:D ) {
   my %data = %.data;
-  %data<cases>   //= $.json-tests;
   %data<package> //= $.package;
   %data<unit>    //= 'module';
   if %data<properties> {
-    %data<tests> ~= ("\n" if %data<tests>) ~ self.property-tests.join("\n").trim;
-    %data<cases> = Nil;
+    %data<property_tests> = self.property-tests;
   }
 
   Template::Mustache.render(

t/generator/methods.rakutest

@@ -37,7 +37,7 @@ subtest '1 case UUID' => {
         :uuid<af9ffe10-dc13-42d8-a742-e7bdafac449d>,
       ).item], 'Case taken from UUID';
 
-      is-deeply .property-tests.Array, ["Hello, World! # case: af9ffe10-dc13-42d8-a742-e7bdafac449d\n"];
+      is-deeply .property-tests.Array, ['Hello, World! # case: af9ffe10-dc13-42d8-a742-e7bdafac449d'];
 
       is .json-tests, q:to/JSON/.trim, 'Cases converted to JSON array';
         [

t/generator/renders.rakutest

@@ -3,8 +3,6 @@ use lib ( my $base-dir = $?FILE.IO.resolve.parent(3) ).add('lib');
 use Exercism::Generator;
 
 subtest 'Rendered test files' => {
-  plan 5;
-
   given new-generator() {
     is .test, q:to/TEST/, 'No data';
       #!/usr/bin/env raku
@@ -16,17 +14,7 @@ subtest 'Rendered test files' => {
       TEST
  }
 
-  given new-generator( :data(:plan(1)) ) {
-    is .test, q:to/TEST/, 'A plan';
-      #!/usr/bin/env raku
-      use Test;
-      use lib $?FILE.IO.parent(2).add('lib');
-      use TestExercise;
-      plan 1;
-      TEST
- }
-
-  given new-generator( :data(:tests('ok True;')) ) {
+  given new-generator( :data(:tests("ok True;\n")) ) {
     is .test, q:to/TEST/, 'A test';
       #!/usr/bin/env raku
       use Test;
@@ -38,48 +26,6 @@ subtest 'Rendered test files' => {
       done-testing;
       TEST
   }
-
-  given new-generator( :json-tests<[]> ) {
-    is .test, q:to/TEST/, 'JSON tests';
-      #!/usr/bin/env raku
-      use Test;
-      use JSON::Fast;
-      use lib $?FILE.IO.parent(2).add('lib');
-      use TestExercise;
-
-      my @test-cases = from-json($=pod[*-1].contents).List;
-
-      done-testing;
-
-      =head2 Test Cases
-      =begin code
-      []
-      =end code
-      TEST
-  }
-
-  given new-generator(
-    :data(:tests('ok $_ for @test-cases;')),
-    :json-tests<[true]>,
-  ) {
-    is .test, q:to/TEST/, 'Tests with JSON';
-      #!/usr/bin/env raku
-      use Test;
-      use JSON::Fast;
-      use lib $?FILE.IO.parent(2).add('lib');
-      use TestExercise;
-
-      my @test-cases = from-json($=pod[*-1].contents).List;
-      ok $_ for @test-cases;
-
-      done-testing;
-
-      =head2 Test Cases
-      =begin code
-      [true]
-      =end code
-      TEST
-  }
 }
 
 done-testing;