- Notifications
You must be signed in to change notification settings - Fork 194
/
Copy pathmapping.t
73 lines (61 loc) · 2.5 KB
/
mapping.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
use strict;
use warnings;
use lib 't/lib';
use MetaCPAN::Script::Mapping ();
use MetaCPAN::Server::Config ();
use Test::More;
my$config = MetaCPAN::Server::Config::config();
subtest 'create, delete index'=>sub {
subtest 'create index'=>sub {
my$smockindexjson = q({
"mock_index": {
"properties": {
"mock_field": {
"type": "string",
"ignore_above": 2048,
"index": "not_analyzed"
}
}
}
});
my%args = (
'--create_index'=>'mock_index',
'--patch_mapping'=>$smockindexjson,
);
local@ARGV = ( 'mapping', %args );
my$mapping = MetaCPAN::Script::Mapping->new_with_options($config);
ok( $mapping->run, "creation 'mock_index' succeeds" );
is( $mapping->exit_code, 0, "Exit Code '0' - No Error" );
};
subtest 'info shows new index'=>sub {
local@ARGV = ( 'mapping', '--show_cluster_info' );
my$mapping = MetaCPAN::Script::Mapping->new_with_options($config);
ok( $mapping->run, "show info succeeds" );
is( $mapping->exit_code, 0, "Exit Code '0' - No Error" );
ok( defined$mapping->indices_info, 'Index Info built' );
ok( defined$mapping->indices_info->{'mock_index'},
'Created Index printed' );
};
subtest 'delete index'=>sub {
local@ARGV = ( 'mapping', '--delete_index', 'mock_index' );
my$mapping = MetaCPAN::Script::Mapping->new_with_options($config);
ok( $mapping->run, "deletion 'mock_index' succeeds" );
is( $mapping->exit_code, 0, "Exit Code '0' - No Error" );
};
subtest 'info does not show deleted index'=>sub {
local@ARGV = ( 'mapping', '--show_cluster_info' );
my$mapping = MetaCPAN::Script::Mapping->new_with_options($config);
ok( $mapping->run, "show info succeeds" );
is( $mapping->exit_code, 0, "Exit Code '0' - No Error" );
ok( defined$mapping->indices_info, 'Index Info printed' );
ok( !defined$mapping->indices_info->{'mock_index'},
'Deleted Index not printed' );
};
};
subtest 'mapping verification succeeds'=>sub {
local@ARGV = ( 'mapping', '--verify', );
my$mapping = MetaCPAN::Script::Mapping->new_with_options($config);
ok( $mapping->run, "verification succeeds" );
is( $mapping->exit_code, 0, "Exit Code '0' - No Error" );
};
done_testing();