Description
Contributor: Michael Bussieck, January 2023
Small Model of Type : GAMS
Category : GAMS Test library
Main file : embgms06.gms
$title 'Test domain check/filtered when loading data from embedded code' (EMBGMS06,SEQ=930)
$onText
Contributor: Michael Bussieck, January 2023
$offText
Set universe / i1 /
s(universe);
$onMultiR
$onEmbeddedCode GAMS:
set s /I2/;
$offEmbeddedCode s
$if not errorFree $abort 'No error expected'
$ifE card(s)<>0 $abort 'Expected empty s'
$onFiltered
$onEmbeddedCode GAMS:
set s /I2/;
$offEmbeddedCode s
$if not errorFree $abort 'No error expected'
$ifE card(s)<>0 $abort 'Expected empty s'
$offFiltered
$onEmbeddedCode GAMS:
set s /I2/;
$offEmbeddedCode s
$if errorFree $abort 'Error expected'
$clearErrors
* At execution time we always read filtered
option clear=s;
EmbeddedCode GAMS:
set s /I2/;
endEmbeddedCode s
if (execError, abort 'No error expected');
abort$card(s) 's should be empty',s;
* This should be just empty but not cause a problem
Display s;