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;