!
!  Purpose: Test the PARSE intrinsic
!   Author: Matthew Harrell
!  Version: $Id: test_parse.mm,v 1.4 2003/11/11 15:26:38 harrellm Exp $
!------------------------------------------------------------------------------ 
startmacro

  ! Test parse by parsing the PARSE command
  parse parse sup=sup name=name opt=opt 

  ! sup doesn't get set correctly
  assert/text="^reg.main.name: parsed PARSE command" &
                  name EQS "PARSE" AND &
                  opt EQS "SYS" AND &
                  sup EQS "I"
endmacro
