! This tests the Getting Started Lab 3.
!
startmacro
  ! Step 1
  get env.user /res=user
  env get user userRef
  assert/text="get env.user" "^user" EQS "^userRef"

  ! Step 2
  get reg.handlers.file.jpeg
  assert/text="value of reg.handlers.file.jpeg" reg.handlers.file.jpeg EQS "nxm.sys.lib.ImageFile"

  ! Step 3
  set FILE_TYPE PRM
  assert/text="value of FILE_TYPE" FILE_TYPE EQS "PRM"

  ! Step 4
  say "^{reg.handlers.file.^{FILE_TYPE}}"
  assert/text="value of ^{reg.handlers.file.^^{FILE_TYPE}}" ^{reg.handlers.file.^{FILE_TYPE}} EQS "nxm.sys.lib.DataFile"

  ! Step 5
  set people {}
  set people.john {AGE=32,HEIGHT={FEET=5,INCHES=9}}
  set people.linda {AGE=30,HEIGHT={FEET=5,INCHES=2}}
  get people
  table people equals {john={AGE=32,HEIGHT={FEET=5,INCHES=9}}, linda={AGE=30,HEIGHT={FEET=5,INCHES=2}}} equal
  assert/text="people table" equal isTrue

  ! Step 6
  calc height people.john.height.feet 12 * people.john.height.inches +
  assert/text="value of height" height EQ 69.0

endmacro

