Contents

exercise: Clock
version: 1
methods: time add-minutes
plan: 54
tests: |
  for @($c-data<cases>) {
    for @(.<cases>) -> $case {
      given $case<property> {
        when 'create' {
          is ::($exercise).new(hour => $case<hour>, minute => $case<minute>).?time, |$case<expected description>;
        }
        when 'add' {
          my $clock = ::($exercise).new(hour => $case<hour>, minute => $case<minute>);
          $clock.?add-minutes($case<add>);
          is $clock.?time, |$case<expected description>;
        }
        when 'equal' {
          is ::($exercise).new(hour => $case<clock1><hour>, minute => $case<clock1><minute>).?time eq
             ::($exercise).new(hour => $case<clock2><hour>, minute => $case<clock2><minute>).?time,
             |$case<expected description>;
        }
        when %*ENV<EXERCISM>.so { bail-out "no case for property '$case<property>'" }
      }
    }
  }
  
  todo 'optional test' unless %*ENV<EXERCISM>;
  is ::($exercise).new(:0hour,:0minute).?add-minutes(65).?time, '01:05', 'add-minutes method can be chained';

unit: class
example: |
  has Int:D $.hour = 0;
  has Int:D $.minute = 0;
  
  method time {
    sprintf '%02d:%02d', ($!hour + $!minute div 60) % 24, $!minute % 60;
  }
  
  method add-minutes (Int:D $min) {
    $!minute += $min and return self;
  }
stub: |
  has $.hour;
  has $.minute;

Version data entries

82 entries across 82 versions & 1 rubygems

Version	Path
trackler-2.2.1.13	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.12	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.11	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.10	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.9	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.8	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.7	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.6	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.5	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.4	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.3	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.2	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.1	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.1.0	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.0.6	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.0.5	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.0.4	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.0.3	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.0.2	tracks/perl6/exercises/clock/example.yaml
trackler-2.2.0.1	tracks/perl6/exercises/clock/example.yaml