$title Simple gdxRename test (GDXRENAME2,SEQ=869)

$onText
This test checks various gdxRename behavior.

Contributor: Michael Bussieck, May 2021
$offText

$onEchoV > c.gms
set p / %e% /;
$offEcho

set map / a.1, b.3, c.2 /;
$hiddenCall gams c.gms lo=0 --e="a,b,c" gdx=abc
$callTool.checkErrorLevel gdxservice.gdxRename abc.gdx map

$hiddenCall gams c.gms lo=0 --e="1,2,3" gdx=123
$callTool.checkErrorLevel gdxservice.gdxRename 123.gdx map reverse=1 

* Not a 1-1 map
set map2 / a.1, a.3, c.2 /;
$hiddenCall gams c.gms lo=0 --e="a,b,c" gdx=abc
$callTool gdxservice.gdxRename abc.gdx map2
$if not errorLevel 1 $abort 'expect errors'

* Not a 1-1 map
set map3 / a.1, b.1, c.2 /;
$hiddenCall gams c.gms lo=0 --e="a,b,c" gdx=abc
$callTool gdxservice.gdxRename abc.gdx map3
$if not errorLevel 1 $abort 'expect errors'

* Renaming UEL "c" already present in GDX file
set map4 / a.1, b.c /;
$hiddenCall gams c.gms lo=0 --e="a,b,c" gdx=abc
$callTool gdxservice.gdxRename abc.gdx map4
$if not errorLevel 1 $abort 'expect errors'

* Transitive renaming not allowed
set map5 / a.d, d.1 /;
$hiddenCall gams c.gms lo=0 --e="a,b,c" gdx=abc
$callTool gdxservice.gdxRename abc.gdx map5
$if not errorLevel 1 $abort 'expect errors'

* map not a set
parameter map6 / a.1 1, b.2 2 /;
$hiddenCall gams c.gms lo=0 --e="a,b,c" gdx=abc
$callTool gdxservice.gdxRename abc.gdx map6
$if not errorLevel 1 $abort 'expect errors'

* map not 2-dimensional
set map7 / a.1.1, b.2.2 /;
$hiddenCall gams c.gms lo=0 --e="a,b,c" gdx=abc
$callTool gdxservice.gdxRename abc.gdx map7
$if not errorLevel 1 $abort 'expect errors'