function test_expparts

% For test expparts.m
%
% See also expparts.m
%
% There are two sets of test NAMEs. The set 't' consists of the
% NAMEs used as example in the TvE document, the set 's' is a
% somewhat more comprehensive set. The set to be tested is
% hardcoded near the end of this file, edit as appropriate.
%
% 18-Jun-2001 Jm

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%===================
% Set t
%===================

t{1} = 'tau0@42m';
t{2} = 'cp1lt@uhf';
t{3} = 'cp1lk@kir';
t{4} = 'cp1lt_cp2@uhf';
t{5} = 'gup2_cp1l_Reduced_scan@32m';
t{6} = 'cp4bv_UK@vhf0';
t{7} = 'tau1v_CLUSTER_mode_3P@vhf0';
t{8} = 'tau0_cp1l_Longest_comment_SP@32m';

t{9} = 'SP-UK-UNKNOWN';								% Illegal
t{10}= 'tau0';										% Illegal
t{11}= 'gup3_modified@42m';
t{12}= 'gup3_slow_scan_for_XYZ@uhf'; 				% Illegal
t{13}= 'gup3_slow_tomography_scan_for_XYZ@uhf';  	% Illegal

%===================
% Set s
%===================

% Legal names

s{1} = 'pulse@uhf';
s{2} = 'pulse_scan@uhf';
s{3} = 'pulse_Comment@kir';
s{4} = 'pulse_EI@sod';
s{5} = 'pulse_ei@sod';        % not recommended, 'ei' parsed as a SCAN
s{6} = 'pulse_Fr@uhf';        % not recommended, 'Fr' parsed as a COMMENT
s{7} = 'pulse_scan_EI@32m';
s{8} = 'pulse_Comment_EI@42m';
s{9} = 'pulse_scan_Comment@uhf';
s{10}= 'pulse_scan_Comment_UK@uhf';

s{11}= 'pulse_My_comment@uhf';
s{12}= 'pulse_My_Comment@32m';
s{13}= 'pulse_My_comment_NI@vhf2';
s{14}= 'pulse_scan_My_comment@uhf';

s{15}= 'pulse_scan_My_comment_CP@uhf'; 
s{16}= 'pulse_scan_My comment_SP@vhf1'; 

% Illegal names

s{17} = 'pulse@33m';
s{18} = 'pulse@32M';
s{19} = 'pulse';
s{20} = '@32m';
s{21} = 'pulse_scan_comment@32m';
s{22} = 'pulse_my_scan_Comment@32m';
s{23} = 'pulse_my_scan@32m';
s{24} = 'tau0_scan_2_FI@32m';
s{25} = 'pulse_@32m';
s{26} = 'pulse_1@uhf';
s{27} = 'pulse__EI@uhf';
s{28} = 'Mypulse_C@mment@uhf';
s{29} = '__@32m';
s{30} = 'pulse@';

%=================================
% Select the set to be tested here
%=================================

u = t;

%==============
% Run the test
%==============

for k = 1:length(u)
    [msg,PULSE,SCAN,COMMENT,TYPE,ANTENNA] = expparts(u{k});
    fprintf(1,'(%2d)    =%s\n',k,u{k});
    fprintf(1,'PULSE   =%s\n',PULSE);
    fprintf(1,'SCAN    =%s\n',SCAN);
    fprintf(1,'COMMENT =%s\n',COMMENT);
    fprintf(1,'TYPE    =%s\n',TYPE);
    fprintf(1,'ANTENNA =%s\n',ANTENNA);
    fprintf(1,'msg     =%s\n\n',msg);
end

