t/00_setup.t - first draft

Author: mickeyn

t/00_setup.t

@@ -0,0 +1,99 @@
+use strict;
+use warnings;
+use lib 't/lib';
+
+use Test::More 0.96;
+
+use MetaCPAN::ES;
+use MetaCPAN::Mapper;
+use MetaCPAN::Ingest qw< home >;
+
+my $es = MetaCPAN::ES->new( mode => 'test' );
+my $mapper = MetaCPAN::Mapper->new( mode => 'test' );
+
+my $home = home();
+
+my $test_dir = $home->child('test_data/fakecpan/')
+    or die "Missing test data directory.\n";
+
+my $bin = $home->child('bin');
+
+my $authors = $test_dir->child('authors');
+my $modules = $test_dir->child('modules');
+
+# === Files
+
+my @files = qw<
+    00whois.xml
+    02packages.details.txt
+    06perms.txt
+>;
+
+subtest 'Check Files' => sub {
+    ok( $authors->child('00whois.xml'), "Found 00whois.xml" );
+    ok( $modules->child('02packages.details.txt'), "Found 02packages.details.txt" );
+    ok( $modules->child('06perms.txt'), "Found 06perms.txt" );
+};
+
+my @packages = qw<
+    id/O/OA/OALDERS/HTML-Parser-3.83.tar.gz
+>;
+
+subtest 'Check Packages' => sub {
+    ok( $authors->child('id/O/OA/OALDERS/HTML-Parser-3.83.tar.gz'), "Found HTML-Parser-3.83.tar.gz" );
+};
+
+# === Mapping
+
+my @indices = qw<
+    author
+    contributor
+    cover
+    cve
+    distribution
+    favorite
+    file
+    mirror
+    package
+    permission
+    release
+>;
+
+for my $i ( @indices ) {
+    $mapper->index_delete($i, 'skip_exists');
+    $mapper->index_create($i);
+}
+
+subtest 'Check Mappings' => sub {
+    for my $i ( @indices ) {
+        ok( $mapper->index_exists($i), "Index '$i' exists" );
+    }
+};
+
+# === Index
+
+# run the author indexing script in test mode
+my $author_script = $bin->child('author.pl');
+my $whois_file = $authors->child('00whois.xml');
+`perl $author_script -whois_file $whois_file --mode test`;
+
+subtest 'Author Indexing' => sub {
+    my $es_author = MetaCPAN::ES->new( index => 'author', mode => 'test' );
+    ok( $es_author->exists( index => 'author', id => 'OALDERS' ), "Found author OALDERS" );
+};
+
+
+
+
+# check test data directory
+#       - check all distros for test are there
+#       - check all other data sources are there to test all indices
+# set ES object with (elasticsearch_test)
+#       - check object's config
+
+# $server->set_latest;
+# $server->set_first;
+# $server->prepare_user_test_data;
+
+
+done_testing;