! This tests the primlab4 command.
!
startmacro
  ! For each type of file copy it and then check to see that the copy matches the origional.

  primlab4 nxm.sys.dat.sinewave.prm temp_test_primlab4.prm
  assert/text="Copy of a Type 1000 file" nxm.sys.dat.sinewave.prm FEQ temp_test_primlab4.prm
  erase temp_test_primlab4.prm

  primlab4 nxm.sys.dat.apenny.prm temp_test_primlab4.prm
  assert/text="Copy of a Type 2000 file" nxm.sys.dat.apenny.prm FEQ temp_test_primlab4.prm
  erase temp_test_primlab4.prm

  primlab4 nxm.sys.dat.testxy3000.prm temp_test_primlab4.prm
  assert/text="Copy of a Type 3000 file" nxm.sys.dat.testxy3000.prm FEQ temp_test_primlab4.prm
  erase temp_test_primlab4.prm

  primlab4 nxm.sys.dat.cities.prm temp_test_primlab4.prm
  assert/text="Copy of a Type 5000 file" nxm.sys.dat.cities.prm FEQ temp_test_primlab4.prm
  erase temp_test_primlab4.prm
  
endmacro
