?login_element?

Subversion Repositories NedoOS

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1.     DEVICE none
  2.  
  3.     lua
  4.         -- should fail, because no device is set (but it fails silently :/ )
  5.         assert(not sj.set_page(1))
  6.     endlua
  7.  
  8.     DEVICE zxspectrum128
  9.  
  10.     lua
  11.         assert(not sj.set_page(233))
  12.         assert(not sj.set_page(-1))
  13.         assert(sj.set_page(6))
  14.     endlua
  15.  
  16.     ASSERT(7 == $$)     ; slot 0 should be still default page 7
  17.     ORG 0xC000
  18.     ASSERT(6 == $$)     ; default slot 3 should be page 6 set by lua
  19.  
  20.     lua pass3 ; wrong arguments
  21.         sj.set_page(233, 2)
  22.     endlua
  23.