! Tests to see if global switches are properly propogated to other macros, and
! tests to see that local switches are not.
!
! This should always be called with level=0 (the default).
!
! @author  J. Czechowski IV
! @version $Id: test_global_switch.mm,v 1.1 2004/10/14 16:51:50 jxc Exp $
!
startmacro L:level[0]
  
  if level le 0 then
    %test_global_switch/LOCAL 1 /GLOBAL

  elseif level eq 1 then
    ASSERT/TEXT="Global switch present at level ^level" /GLOBAL isTrue
    ASSERT/TEXT="Local  switch present at level ^level" /LOCAL  isTrue

    %test_global_switch (level + 1)

  elseif level le 4 then
    ASSERT/TEXT="Global switch present at level ^level" /GLOBAL isTrue
    ASSERT/TEXT="Local  switch present at level ^level" /LOCAL  isFalse

    %test_global_switch (level + 1)
  endif

endmacro
