$title 'Test GDXCOPY utility with -V6C and V6u options' (GDXCOPY2,SEQ=350)

$onText

Gdxcopy should write a version 6 GDX file
(i.e. one compatible with Distribution 22.5) if the -v6c or -v6u
flags are used.

Contributor: Steve Dirkse
$offText

$ifI %system.platform% == DEX $exit No V6 GDX exists for this platform
$ifI %system.platform% == DAX $exit No V6 GDX exists for this platform
$ifI %system.platform% == LAX $exit No V6 GDX exists for this platform

* so many timing issues with directories, use separate ones
$set subdirC gdxcopyC.dir
$set subdirU gdxcopyU.dir

$onEcho > makegdx.gms
set I / 1 * 10 /;
parameter c(I);
c(I) = ord(I);
positive variable x(I);
x.up(I) = 2 * c(I);
x.l(I)  = c(I);
x.m(I) = 3 * c(I);
$offEcho

$call =gams makegdx.gms lo=%GAMS.lo% gdx=tcopy.gdx

$if dexist %subdirC% $call rm -r %subdirC%
$if dexist %subdirC% $abort directory %subdirC% still exists!
$call gdxcopy -v6c tcopy.gdx %subdirC%
$if not dexist %subdirC%                      $abort directory %subdirC% should exist after gdxdopy call
$if not  exist %subdirC%%system.dirsep%tcopy.gdx $abort file %subdirC%%system.dirsep%tcopy.gdx should exist after gdxdopy call
$call gdxdiff tcopy.gdx %subdirC%%system.dirsep%tcopy.gdx > %system.nullfile%
$if errorlevel 1 $abort "Files differ: bad gdxcopy -v6c or gdxdiff"

$if dexist %subdirU% $call rm -r %subdirU%
$if dexist %subdirU% $abort directory %subdirU% still exists!
$call gdxcopy -v6u tcopy.gdx %subdirU%
$if not dexist %subdirU%                      $abort directory %subdirU% should exist after gdxdopy call
$if not  exist %subdirU%%system.dirsep%tcopy.gdx $abort file %subdirU%%system.dirsep%tcopy.gdx should exist after gdxdopy call
$call gdxdiff tcopy.gdx %subdirU%%system.dirsep%tcopy.gdx > %system.nullfile%
$if errorlevel 1 $abort "Files differ: bad gdxcopy -v6u or gdxdiff"

$log All done: the test passed