1package main;
2
3use strict;
4use warnings;
5
6use lib qw{ inc };
7
8use My::Module::Test;
9
10use constant TEST_SOAP	=> $ENV{ASTRO_SIMBAD_CLIENT_USE_SOAP};
11
12TEST_SOAP
13    or plan skip_all => 'SOAP tests disabled.';
14
15access();
16
17TODO: {
18    local $TODO = 'SOAP vo queries are deprecated';
19    local $SIG{__WARN__} = sub {};	# Ignore warnings.
20
21    echo( <<'EOD' );
22
23Test individual format effectors of the web services (SOAP) interface
24EOD
25
26    load_data( 't/canned.data' );
27
28    call( set => type => 'txt' );
29    call( set => parser => 'txt=' );
30
31
32    call( set => format => 'txt=%IDLIST(NAME|1)' );
33    call( query => id => 'Arcturus' );
34    test( canned( arcturus => 'name' ), 'query id Arcturus -- %IDLIST(NAME|1)' );
35
36
37    call( set => format => 'txt=%OTYPE' );
38    call( query => id => 'Arcturus' );
39    test( canned( arcturus => 'type' ), 'query id Arcturus -- %OTYPE' );
40
41
42    call( set => format => 'txt=%OTYPELIST' );
43    call( query => id => 'Arcturus' );
44    test( canned( arcturus => 'long' ), 'query id Arcturus -- %OTYPELIST' );
45
46
47    call( set => format => 'txt=%COO(d;A)' );
48    call( query => id => 'Arcturus' );
49    test( canned( arcturus => 'ra' ), 'query id Arcturus -- %COO(d;A)' );
50
51
52    call( set => format => 'txt=%COO(d;D)' );
53    call( query => id => 'Arcturus' );
54    test( canned( arcturus => 'dec' ), 'query id Arcturus -- %COO(d;D)' );
55
56
57    call( set => format => 'txt=%PLX(V)' );
58    call( query => id => 'Arcturus' );
59    test( canned( arcturus => 'plx' ), 'query id Arcturus -- %PLX(V)' );
60
61
62    call( set => format => 'txt=%PM(A)' );
63    call( query => id => 'Arcturus' );
64    test( canned( arcturus => 'pmra' ), 'query id Arcturus -- %PM(A)' );
65
66
67    call( set => format => 'txt=%PM(D)' );
68    call( query => id => 'Arcturus' );
69    test( canned( arcturus => 'pmdec' ), 'query id Arcturus -- %PM(D)' );
70
71
72    call( set => format => 'txt=%RV(V)' );
73    call( query => id => 'Arcturus' );
74    test( canned( arcturus => 'radial' ), 'query id Arcturus -- %RV(V)' );
75
76
77    call( set => format => 'txt=%RV(Z)' );
78    call( query => id => 'Arcturus' );
79    test( canned( arcturus => 'redshift' ), 'query id Arcturus -- %RV(Z)' );
80
81
82    call( set => format => 'txt=%SP(S)' );
83    call( query => id => 'Arcturus' );
84    test( canned( arcturus => 'spec' ), 'query id Arcturus -- %SP(S)' );
85
86
87    call( set => format => 'txt=%FLUXLIST(B)[%flux(F)]' );
88    call( query => id => 'Arcturus' );
89    test( canned( arcturus => 'bmag' ),
90	'query id Arcturus -- %FLUXLIST(B)[%flux(F)]' );
91
92
93    call( set => format => 'txt=%FLUXLIST(V)[%flux(F)]' );
94    call( query => id => 'Arcturus' );
95    test( canned( arcturus => 'vmag' ),
96	'query id Arcturus -- %FLUXLIST(V)[%flux(F)]' );
97
98}
99
100end();
101
1021;
103
104# ex: set filetype=perl textwidth=72 :
105