use Test::Class::Sugar;

testclass exercises Test::Class {
    my $test;
    startup >> 1 {
        ok $test->subject;
      }

      test autonaming {
        ok $test->subject;
    }

    test the naming of parts {
        ok $test->current_method, 'score';
    }

    test multiple assertions >> 2 {
        ok ref($test), 'Test::Class::Bowling';
          ok $test->current_method, 'test_multiple_assertions';
      } sub score {
        my $game           = Bowling->new;
        my @rolls          = (2) x 20;
        my $expected_score = 40;
    }
}

Test::Class->runtests;