From eb64e62fff3c17d1086f70b87ac91cf58fdd04d1 Mon Sep 17 00:00:00 2001
From: Federico Felici <federico.felici@epfl.ch>
Date: Fri, 19 Jul 2019 09:50:27 +0200
Subject: [PATCH] Delete old tests which are now part of run_gdat_tests.m
---
matlab/test_all_requestnames.m | 199 ---------------------------------
matlab/test_gdat_tcv_short.m | 15 ---
2 files changed, 214 deletions(-)
delete mode 100644 matlab/test_all_requestnames.m
delete mode 100644 matlab/test_gdat_tcv_short.m
diff --git a/matlab/test_all_requestnames.m b/matlab/test_all_requestnames.m
deleted file mode 100644
index e295a4ef..00000000
--- a/matlab/test_all_requestnames.m
+++ /dev/null
@@ -1,199 +0,0 @@
-function [pass,request_list,err,telaps,skipped,gdat_results] = test_all_requestnames(varargin)
-%
-% [pass,request_list,err,telaps,skipped,gdat_results] = test_all_requestnames(varargin);
-%
-% test function to run all requestnames
-% pass = test_all_requestnames; % default test
-% pass = test_all_requestnames('param1',value1,'param2',value2,...); %
-% INPUT PARAMETERS (optional)
-% machine: string of machine name (e.g. 'aug'). (default: gdat internal default)
-% testmode: depth of test: 'reduced' or 'full' (default: 'reduced') or cell array of requests to test
-% nverbose: 0 for silent, 1/11 for text, 2/12 for plots (default: 1) 1/2 will not write skipped signals, calling..., 11/12 will write all
-% OUTPUTS
-% pass: single boolean indicating pass/fail of test
-% pass means all error codes were zero
-% request_list: list of requests
-% err: error code of tested requests
-% telaps: elapsed time for tested requests
-% skipped: boolean flag indicating whether request was skipped
-%
-% Example for quick test:
-% [pass,request_list,err,telaps,skipped,gdat_results] = test_all_requestnames('machine','tcv','testmode',{'ip','q_rho'});
-%
-
-[machine,testmode,nverbose] = parse_inputs(varargin{:});
-
-%
-if nverbose>=2 && nverbose ~= 11
- doplot = true;
-else
- doplot = false;
-end
-
-%% get request list
-if isempty(machine)
- [gd0,gp0] = gdat;
-else
- [gd0,gp0] = gdat('machine',machine);
-end
-if isempty(machine)
- machine = gp0.machine;
-end
-request_list = gd0.gdat_request;
-
-%% get default test shot for each machine
-switch upper(machine)
- case 'AUG'
- shot = 30594;
- case 'TCV'
- shot = 48836;
-end
-
-%% possibly skip some since they take too long for a reduced test
-if iscell(testmode)
- skip = setdiff(request_list,testmode);
- testmode_not_in_list = setdiff(testmode,request_list);
- if ~isempty(testmode_not_in_list)
- if nverbose >= 1
- disp('***********************************************************************')
- warning(['following input requests nt in request_list: ' testmode_not_in_list{:}]);
- disp('***********************************************************************')
- end
- end
-else
- switch testmode
- case 'reduced'
- skip = skip_list(machine);
- case 'full'
- skip = ''; % skip none
- otherwise
- error('invalid testmode, should be ''reduced'' or ''full''');
- end
-end
-
-%% init
-Nreq = numel(gd0.gdat_request);
-err = zeros(Nreq,1);
-telaps = zeros(Nreq,1);
-skipped = false(Nreq,1);
-gdat_call = cell(Nreq,1);
-
-%% call gdat requests in a loop
-for ireq = 1:Nreq
- myrequest = request_list{ireq};
-
- if ~ismember(myrequest,skip)
- % build request string
- if strcmp(myrequest,'transp')
- shotfile_user='PUETTI';
- gdat_call{ireq} = sprintf(['gdat_' lower(machine) '(%d,''%s'',''doplot'',%d,''exp_name'',''%s'')'],shot,myrequest,doplot,shotfile_user);
- else
- gdat_call{ireq} = sprintf(['gdat_' lower(machine) '(%d,''%s'',''doplot'',%d)'],shot,myrequest,doplot);
- end
-
- % eval call
- [err(ireq),telaps(ireq),gdat_results{ireq}] = do_gdat_call(gdat_call{ireq},nverbose);
- skipped(ireq) = false;
- pause(0.1)
- else
- % skip
- err(ireq) = 0;
- telaps(ireq) = 0;
- skipped(ireq) = true;
- if nverbose>=11; fprintf('\n skipping gdat request ''%s''\n',myrequest); end
- end
-end
-
-pass = all(~err);
-
-%% Summary display
-if nverbose
- summary_display(request_list,telaps,err,gdat_call,skipped,nverbose)
-
- if pass
- fprintf('passed %s tests\n',mfilename());
- else
- fprintf('test FAILED: %s.m\n',mfilename());
- end
-end
-
-function [machine,testmode,verbose] = parse_inputs(varargin)
-p = inputParser;
-p.addOptional('machine','');
-p.addOptional('testmode','reduced');
-p.addOptional('nverbose',1);
-p.parse(varargin{:});
-
-machine = p.Results.machine;
-testmode = p.Results.testmode;
-verbose = p.Results.nverbose;
-
-function skip = skip_list(machine)
-switch upper(machine)
- case 'AUG'
- skip = {'cxrs','transp','te_rho','ne_rho','nete_rho','ece_rho','eced_rho','cxrs_rho','eqdsk','equil'};
- otherwise
- warning('no list to skip defined for machine ''%s''',machine);
- skip = '';
-end
-
-function [err,telaps,gdat_result] = do_gdat_call(gdat_call,nverbose)
-if nverbose >= 11
- fprintf('\n calling %s...\n',gdat_call);
-end
-
-tic
-try
- [gdat_result,~,err] = eval(gdat_call);
-catch ME
- err = -1;
- gdat_result.data = [];
- getReport(ME); %,'extended');
-end
-telaps = toc; % elapsed time
-
-function summary_display(request_list,telaps,err,gdat_call,skipped,nverbose)
-%%
-Nreq = numel(request_list);
-
-if any(err==0)
- fprintf('\n\n PASSED:\n')
- print_header();
- for ireq=1:Nreq
- if ~skipped(ireq) && ~err(ireq)
- print_result(request_list{ireq},telaps(ireq),err(ireq),gdat_call{ireq})
- end
- end
-end
-
-if any(skipped) && nverbose >= 11
- fprintf('\n\n SKIPPED:\n')
- print_header();
- for ireq=1:Nreq
- if skipped(ireq)
- fprintf(' %-20s%-20s\n',request_list{ireq},'skipped');
- end
- end
-end
-
-if any(err~=0)
- fprintf('\n\n FAILED:\n')
- print_header();
- for ireq=1:Nreq
- if ~skipped(ireq) && (err(ireq)~=0)
- print_result(request_list{ireq},telaps(ireq),err(ireq),gdat_call{ireq})
- end
- end
-end
-
-fprintf('\n\n total test time: %2.2f[s]\n\n',sum(telaps));
-
-
-function print_header()
-fprintf(' %-60s\n',char(repmat(int8('-'),1,60)))
-fprintf(' %-20s%-20s%-10s%-100s\n','request','time_elapsed[''s'']','errorcode','gdat call')
-fprintf(' %-60s\n',char(repmat(int8('-'),1,60)))
-
-
-function print_result(req,telaps,err,callstr)
-fprintf(' %-20s%-20.2f%-10d%-100s\n',req,telaps,err,callstr);
diff --git a/matlab/test_gdat_tcv_short.m b/matlab/test_gdat_tcv_short.m
deleted file mode 100644
index fb2b4472..00000000
--- a/matlab/test_gdat_tcv_short.m
+++ /dev/null
@@ -1,15 +0,0 @@
-function [pass] = test_gdat_tcv_short
-%
-% [pass] = test_gdat_tcv_short
-%
-% tests a few signals
-%
-% pass: single boolean indicating pass/fail of test
-%
-
-test_machine = 'tcv';
-test_signals = {'ip', 'q_rho'};
-[pass,request_list,err,telaps,skipped,gdat_results] = test_all_requestnames('machine',test_machine,'testmode',test_signals,'nverbose',0);
-
-%% test some TCV_IMAS things
-test_tcv_get_ids;
\ No newline at end of file
--
GitLab