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