Generate full Perl tests for simple-cipher

Author: m-dango

exercises/practice/simple-cipher/.meta/solutions/Cipher.pm

@@ -0,0 +1,24 @@
+package SimpleCipher;
+
+use Moo;
+use feature qw<say>;
+
+has key => (
+    is => 'lazy',
+);
+
+sub encode {
+    my ($self) = @_;
+    return undef;
+}
+
+sub decode {
+    my ($self) = @_;
+    return undef;
+}
+
+sub _build_key {
+    return undef;
+}
+
+1;

exercises/practice/simple-cipher/.meta/solutions/SimpleCipher.pm

@@ -0,0 +1 @@
+requires 'Moo';

exercises/practice/simple-cipher/.meta/solutions/cipher.t

@@ -0,0 +1 @@
+../../simple-cipher.t

exercises/practice/simple-cipher/.meta/solutions/cpanfile

@@ -0,0 +1,126 @@
+methods: key encode decode
+moo: true
+tests: |
+    my $cipher;
+properties:
+  key:
+    test: |-
+      use Data::Dmp;
+      sprintf(<<~'END', $case->{expected}{match}, dmp($case->{description}));
+      $cipher = SimpleCipher->new;
+      like(
+          $cipher->key,
+          qr/%s/,
+          %s,
+      );
+      END
+      
+  encode:
+    test: |-
+      use Data::Dmp;
+      use List::Util qw<any>;
+      if ($case->{input}{key}) {
+          sprintf(<<~'END', map {dmp($_)} @{$case->{input}}{qw<key plaintext>}, @{$case}{qw<expected description>});
+          $cipher = SimpleCipher->new(key => %s);
+          is(
+              $cipher->encode(%s),
+              %s,
+              %s,
+          );
+          END
+      }
+      else {
+          sprintf(<<~'END', dmp($case->{input}{plaintext}), length($case->{input}{plaintext}), dmp($case->{description}));
+          $cipher = SimpleCipher->new;
+          is(
+              $cipher->encode(%s),
+              substr( $cipher->key, 0, %u ),
+              %s,
+          );
+          END
+      }
+
+  decode:
+    test: |-
+      use Data::Dmp;
+      use List::Util qw<any>;
+      if ($case->{input}{key}) {
+          if ($case->{input}{plaintext}) {
+              sprintf(<<~'END', map {dmp($_)} @{$case->{input}}{qw<key plaintext>}, @{$case}{qw<expected description>});
+              $cipher = SimpleCipher->new( key => %s );
+              is(
+                  $cipher->decode($cipher->encode(%s)),
+                  %s,
+                  %s,
+              );
+              END
+          }
+          else {
+              sprintf(<<~'END', map {dmp($_)} @{$case->{input}}{qw<key ciphertext>}, @{$case}{qw<expected description>});
+              $cipher = SimpleCipher->new( key => %s );
+              is(
+                  $cipher->decode(%s),
+                  %s,
+                  %s,
+              );
+              END
+          }
+      }
+      elsif ($case->{input}{plaintext}) {
+          sprintf(<<~'END', map {dmp($_)} $case->{input}{plaintext}, @{$case}{qw<expected description>});
+          $cipher = SimpleCipher->new;
+          is(
+              $cipher->decode($cipher->encode(%s)),
+              %s,
+              %s,
+          );
+          END
+      }
+      else {
+          sprintf(<<~'END', length($case->{expected}), map {dmp($_)} @{$case}{qw<expected description>});
+          $cipher = SimpleCipher->new;
+          is(
+              $cipher->decode( substr( $cipher->key, 0, %u ) ),
+              %s,
+              %s,
+          );
+          END
+      }
+
+example: |-
+  has key => (
+      is => 'lazy',
+  );
+  
+  sub encode {
+      my ($self) = @_;
+      return undef;
+  }
+  
+  sub decode {
+      my ($self) = @_;
+      return undef;
+  }
+  
+  sub _build_key {
+      return undef;
+  }
+
+stub: |-
+  has key => (
+      is => 'lazy',
+  );
+  
+  sub encode {
+      my ($self) = @_;
+      return undef;
+  }
+  
+  sub decode {
+      my ($self) = @_;
+      return undef;
+  }
+  
+  sub _build_key {
+      return undef;
+  }

exercises/practice/simple-cipher/.meta/solutions/simple-cipher.t

@@ -0,0 +1,24 @@
+package SimpleCipher;
+
+use Moo;
+use feature qw<say>;
+
+has key => (
+    is => 'lazy',
+);
+
+sub encode {
+    my ($self) = @_;
+    return undef;
+}
+
+sub decode {
+    my ($self) = @_;
+    return undef;
+}
+
+sub _build_key {
+    return undef;
+}
+
+1;

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

@@ -0,0 +1,5 @@
+recommends 'Moo';       # https://perldoc.pl/Moo
+suggests 'Mo';          # https://perldoc.pl/Mo
+suggests 'Moose';       # https://perldoc.pl/Moose
+suggests 'Object::Pad'; # https://perldoc.pl/Object::Pad
+suggests 'Class::Tiny'; # https://perldoc.pl/Class::Tiny#Why-this-instead-of-Moose-or-Moo?