We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8fd475b commit 835fec3Copy full SHA for 835fec3
t/00_setup.t
@@ -147,6 +147,18 @@ subtest 'Cover Indexing' => sub {
147
"Found cover data for HTML-Parser-3.83" );
148
};
149
150
+subtest 'River Indexing' => sub {
151
+ my $river_script = $d_bin->child('river.pl');
152
+ my $river_file = $d_test->child('river-of-cpan.json');
153
+
154
+ # run the river indexing script
155
+ `perl $river_script -json $river_file`;
156
157
+ my $es_distribution = MetaCPAN::ES->new( index => 'distribution' );
158
+ my $dist = $es_distribution->get( id => 'HTML-Parser' );
159
+ ok( exists $dist->{_source}{river}, "Found River entry" );
160
+};
161
162
subtest 'Contributor Indexing' => sub {
163
my $contributor_script = $d_bin->child('contributor.pl');
164
0 commit comments