add perl_version relationship to stats rows

This allows us to filter stats rows based on Perl maturity

Author: preaction

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

@@ -271,4 +271,14 @@ Get the related row in the `uploads` table. See L<CPAN::Testers::Schema::Result:
 
 belongs_to upload => 'CPAN::Testers::Schema::Result::Upload' => 'uploadid';
 
+=method perl_version
+
+Get the related metadata about the Perl version this report is for. See
+L<CPAN::Testers::Schema::Result::PerlVersion>.
+
+=cut
+
+might_have perl_version => 'CPAN::Testers::Schema::Result::PerlVersion' =>
+    { 'foreign.version' => 'self.perl' };
+
 1;

t/result/stats.t

@@ -11,17 +11,42 @@ L<CPAN::Testers::Schema>, L<DBIx::Class>
 
 use CPAN::Testers::Schema::Base 'Test';
 
+my $schema = prepare_temp_schema;
+my %upload = (
+    type => 'cpan',
+    dist => 'My-Dist',
+    version => '1.000',
+    author => 'PREACTION',
+    filename => 'My-Dist-1.000.tar.gz',
+    released => 1366237867,
+);
+my $upload = $schema->resultset( 'Upload' )->create( \%upload );
+
 subtest 'upload relationship' => sub {
-    my $schema = prepare_temp_schema;
-    my %upload = (
-        type => 'cpan',
+    my %stats = (
+        type => 2,
+        guid => '00000000-0000-0000-0000-000000000000',
+        state => 'pass',
+        postdate => '201607',
+        tester => '[email protected] (Doug Bell)',
         dist => 'My-Dist',
         version => '1.000',
-        author => 'PREACTION',
-        filename => 'My-Dist-1.000.tar.gz',
-        released => 1366237867,
+        platform => 'darwin-2level',
+        perl => '5.24.0',
+        osname => 'darwin',
+        osvers => '15.5.0',
+        fulldate => '201607141234',
+        uploadid => $upload->uploadid,
     );
-    my $upload = $schema->resultset( 'Upload' )->create( \%upload );
+    my $stats = $schema->resultset( 'Stats' )->create( \%stats );
+
+    ok $stats->upload, 'upload relationship exists';
+    is $stats->upload->uploadid, $upload->uploadid, 'correct upload is related';
+};
+
+subtest 'perl_version relationship' => sub {
+    my $schema = prepare_temp_schema;
+    my $version_row = $schema->resultset( 'PerlVersion' )->create({ version => '5.24.0' });
 
     my %stats = (
         type => 2,
@@ -40,8 +65,9 @@ subtest 'upload relationship' => sub {
     );
     my $stats = $schema->resultset( 'Stats' )->create( \%stats );
 
-    ok $stats->upload, 'upload relationship exists';
-    is $stats->upload->uploadid, $upload->uploadid, 'correct upload is related';
+    ok $stats->perl_version, 'perl_version relationship exists';
+    is $stats->perl_version->perl, '5.24.0', 'correct perl version is related';
+
 };
 
 done_testing;