?login_element?

Subversion Repositories NedoOS

Rev

Rev 539 | Blame | Compare with Previous | Last modification | View Log | Download

  1. ; warnings about emitting bytes with wrong LUA block modifier (should be "allpass")
  2. ; this test does test only the suppression mechanics
  3. ; In this special case of lua-byte-emit warning, the user can put the suppression mark
  4. ; both at the beginning and at the end of the lua->endlua block, so testing both here:
  5.  
  6. ;; verify the warnings still work (just quick test)
  7.     lua pass1
  8.         sj.add_byte(1)
  9.     endlua
  10.  
  11.     lua pass2
  12.         sj.add_byte(2)
  13.     endlua
  14.  
  15.     lua pass3
  16.         sj.add_byte(3)
  17.     endlua
  18.  
  19.     lua
  20.         sj.add_byte(4)
  21.     endlua
  22.  
  23. ;; test suppression at beginning of block
  24.  
  25.     lua pass1   ; luamc-ok - warning should be suppressed (even here at beginning of block)
  26.         sj.warning("but lua warning should work", 11)
  27.         sj.add_byte(11)
  28.     endlua
  29.  
  30.     lua pass2   ; luamc-ok - warning should be suppressed (even here at beginning of block)
  31.         sj.warning("but lua warning should work", 12)
  32.         sj.add_byte(12)
  33.     endlua
  34.  
  35.     lua pass3   ; luamc-ok - warning should be suppressed (even here at beginning of block)
  36.         sj.warning("but lua warning should work", 13)
  37.         sj.add_byte(13)
  38.     endlua
  39.  
  40.     lua         ; luamc-ok - warning should be suppressed (even here at beginning of block)
  41.         sj.warning("but lua warning should work", 14)
  42.         sj.add_byte(14)
  43.     endlua
  44.  
  45. ;; test suppression at end of block
  46.  
  47.     lua pass1
  48.         sj.warning("but lua warning should work", 21)
  49.         sj.add_byte(21)
  50.     endlua      ; luamc-ok
  51.  
  52.     lua pass2
  53.         sj.warning("but lua warning should work", 22)
  54.         sj.add_byte(22)
  55.     endlua      ; luamc-ok
  56.  
  57.     lua pass3
  58.         sj.warning("but lua warning should work", 23)
  59.         sj.add_byte(23)
  60.     endlua      ; luamc-ok
  61.  
  62.     lua
  63.         sj.warning("but lua warning should work", 24)
  64.         sj.add_byte(24)
  65.     endlua      ; luamc-ok
  66.