view release on metacpan or  search on metacpan

lib/Test/Metrics/Any.pm  view on Meta::CPAN

ensure that new metrics added in code do not break existing tests that weren't
set up to expect them.

=cut

sub is_metrics
{
   my ( $expect, $testname ) = @_;
   my $tb = __PACKAGE__->builder;

   my %got = map { ( split m/\s*=\s*/, $_ )[0,1] } split m/\n/, Metrics::Any::Adapter::Test->metrics;

   foreach my $name ( sort keys %$expect ) {
      my $expectval = $expect->{$name};

      my $gotval = $got{$name};
      unless( defined $gotval ) {
         my $ret = $tb->ok( 0, $testname );
         $tb->diag( "Expected a metric called '$name' but didn't find one" );
         return $ret;
      }