$title Simple gdxrename test (GDXRENAME1,SEQ=868)

$onText
This test tests the gdxrename functionality on a simple example.

Contributor: Michael Bussieck, May 2021
$offText

Set c / r, g, b, y /;
Parameter A(c) / r 1, g 2, b 3, y 4 /;
$gdxOut color.gdx
$unLoad c A
$gdxOut

Set map(c,*) / r.red, g.green, b.blue, y.yellow /;
$callTool gdxservice.gdxRename color.gdx map

Set c_r / red, green, blue, yellow /;
Parameter A_r(c_r) / red 1, green 2, blue 3, yellow 4 /;
$gdxOut color_long.gdx
$unLoad c_r=c A_r=A
$gdxOut

$call.checkErrorLevel gdxdiff color.gdx color_long.gdx > %system.nullFile%