!******************************************************************************!
! Tests the LAYER command.
!
! Arguments: None
!******************************************************************************!
startmacro
  switch INTERACTIVE interAct GET DEF=TRUE  SDEF=TRUE  ! for normal interactive test(s)
  switch BASELINE    baseline GET DEF=FALSE SDEF=TRUE  ! for defects or more obscure test case(s)

  ! Create a layer with a shorthand reference (nxm... is prepended)
  plot/bg/id=GPLOT world
  set reg.GPLOT.display "ICON"
  layer Geo gl {NAME=GEO,TDOAMODE=CONTOUR} GPLOT

  assert/text="^reg.main.name: creation of GEO layer, short class name" &
    reg.GPLOT.layers.geo REXISTS AND gl REXISTS

  ! Create a layer with a full class name
  layer nxm.sys.libg.LayerGeo gl2 {NAME=GEO2,TDOAMODE=CONTOUR} GPLOT
  assert/text="^reg.main.name: creation GEO2 layer, full class name " &
      reg.GPLOT.layers.geo2 REXISTS AND gl2 REXISTS

  ! Exit the plot
  mess send GPLOT,,exit
endmacro
