Permalink
Browse files

add simple automated test

  • Loading branch information...
1 parent eb131a9 commit 743b90165a662f7971c56acaa30a8f205f63346e @davidm davidm committed Apr 21, 2012
Showing with 18 additions and 0 deletions.
  1. +18 −0 test/test.lua
View
18 test/test.lua
@@ -0,0 +1,18 @@
+-- simple automated test of luamotif
+
+require 'motif'
+
+local function interval ()
+ print('Tick...OK')
+ app:SetExitFlag()
+ os.exit(0) -- improve?
+end
+
+button = PushButton { labelString = "test" }
+
+app, toplevel = Initialize("XLua")
+
+app:AddTimeOut(1000, interval)
+
+Realize(toplevel, button)
+app:MainLoop()

0 comments on commit 743b901

Please sign in to comment.