add method to search stats rows by perl maturity

Refs cpan-testers/cpantesters-api#24

Author: preaction

lib/CPAN/Testers/Schema/ResultSet/Stats.pm

@@ -21,6 +21,7 @@ L<CPAN::Testers::Schema>
 
 use CPAN::Testers::Schema::Base 'ResultSet';
 use Log::Any '$LOG';
+use Carp ();
 
 =method since
 
@@ -36,6 +37,24 @@ sub since( $self, $date ) {
     return $self->search( { fulldate => { '>=', $fulldate } } );
 }
 
+=method perl_maturity
+
+    $rs = $rs->perl_maturity( 'stable' ) # or 'dev'
+
+Restrict the resultset to reports submitted for either C<stable> or
+C<dev> Perl versions.
+
+=cut
+
+sub perl_maturity( $self, $maturity ) {
+    my $devel = $maturity eq 'stable' ? 0 : $maturity eq 'dev' ? 1
+        : Carp::croak "Unknown maturity: $maturity; Must be one of: 'stable', 'dev'";
+    return $self->search(
+        { 'perl_version.devel' => $devel },
+        { join => 'perl_version' },
+    );
+}
+
 =method insert_test_report
 
     my $stat = $rs->insert_test_report( $report );

t/resultset/stats.t

@@ -130,6 +130,40 @@ subtest 'since' => sub {
             or diag explain [ $rs->all ];
 };
 
+subtest 'perl_maturity' => sub {
+    my $perl_devel = $schema->resultset( 'PerlVersion' )->create({ version => '5.25.0' });
+    my $perl_stable = $schema->resultset( 'PerlVersion' )->create({ version => '5.22.2' });
+
+    my $devel_stat = $schema->resultset( 'Stats' )->create({
+        'dist' => 'Sorauta-SVN-AutoCommit',
+        'fulldate' => '201705071643',
+        'guid' => '00000000-3343-11e7-b830-917e22bfee97',
+        'id' => 2,
+        'osname' => 'linux',
+        'osvers' => '4.8.0-2-amd64',
+        'perl' => '5.25.0',
+        'platform' => 'x86_64-linux',
+        'postdate' => 201705,
+        'state' => 'pass',
+        'tester' => '"Andreas J. Koenig" <[email protected]>',
+        'type' => 2,
+        'uploadid' => 169497,
+        'version' => '0.02',
+    });
+
+    my $dev_rs = $schema->resultset( 'Stats' )->perl_maturity( 'dev' );
+    my @dev_rows = $dev_rs->all;
+    is scalar @dev_rows, 1, '1 test reported for a devel perl';
+    is $dev_rows[0]->guid, '00000000-3343-11e7-b830-917e22bfee97',
+        'correct guid for devel perl';
+
+    my $stable_rs = $schema->resultset( 'Stats' )->perl_maturity( 'stable' );
+    my @stable_rows = $stable_rs->all;
+    is scalar @stable_rows, 1, '1 test reported for a stable perl';
+    is $stable_rows[0]->guid, 'd0ab4d36-3343-11e7-b830-917e22bfee97',
+        'correct guid for stable perl';
+};
+
 done_testing;