$TITLE 'Test expert level Delphi (function) API to read and write GDX' (DCEX1,SEQ=6) $ontext Contributor: Lutz Westermann, October 2012 $offtext $set srcRoot %gams.sysdir%apifiles%system.dirsep%Delphi%system.dirsep% $if not set dcomp $set dcomp MSBuild $if %system.platform% == WEX $if not set flags $set flags -t:rebuild -p:Configuration=Release -p:Platform="Win64" $call rm -rf demanddata.gdx $call %dcomp% "%srcRoot%xp_example1.dproj" %flags% $if errorlevel 1 $abort 'Problem compiling xp_example1.dpr' $call ="%srcRoot%xp_example1" "%gams.sysdir%." $if errorlevel 1 $abort 'Problem executing xp_example1 writing GDX file' $call gdxdiff demanddata.gdx demandwant.gdx $if errorlevel 1 $abort 'Demanddata not as expected' $call ="%srcRoot%xp_example1" "%gams.sysdir%." trnsport.gdx $if errorlevel 1 $abort 'Problem executing xp_example1 reading GDX file'