bindings: Add a lua test file and compile with lua5.1 for luajit compatibility.

1 files changed, 88 insertions, 0 deletions

diff --git a/bindings/lua/test_selfplay.lua b/bindings/lua/test_selfplay.lua
new file mode 100644
index 0000000..4be6c28
--- /dev/null
+++ b/bindings/lua/test_selfplay.lua
@@ -0,0 +1,88 @@
+require 'quackle'
+
+function startUp(lexicon, alphabet, datadir)
+
+    local lexicon = lexicon and lexicon or 'twl06'
+    local alphabet = alphabet and alphabet or 'english'
+    local datadir = datadir and datadir or '../../data'
+
+    -- Set up the data manager
+    local dm = quackle.DataManager()
+    dm:setComputerPlayers(quackle.ComputerPlayerCollection.fullCollection())
+    dm:setBackupLexicon(lexicon)
+    dm:setAppDataDirectory(datadir)
+
+    -- Set up the alphabet
+    local abc = quackle.AlphabetParameters.findAlphabetFile(alphabet)
+    local abc2 = quackle.Util.stdStringToQString(abc) --convert to qstring
+    local fa = quackle.FlexibleAlphabetParameters()
+
+    assert(fa:load(abc2))
+    dm:setAlphabetParameters(fa)
+
+    -- Set up the board
+    local board = quackle.BoardParameters()
+    dm:setBoardParameters(board)
+
+    -- Find the lexicon
+    local dawg = quackle.LexiconParameters.findDictionaryFile(lexicon .. '.dawg')
+    local gaddag = quackle.LexiconParameters.findDictionaryFile(lexicon .. '.gaddag')
+    dm:lexiconParameters():loadDawg(dawg)
+    dm:lexiconParameters():loadGaddag(gaddag)
+
+    dm:strategyParameters():initialize(lexicon)
+    return dm
+
+end
+
+
+function getComputerPlayer(dm, name)
+
+    local name = name and name or 'Speedy Player'
+    local player, found = dm:computerPlayers():playerForName(name)
+    assert(found)
+    player = player:computerPlayer()
+    return player
+
+end
+
+dm = startUp()
+
+p1 = getComputerPlayer(dm)
+p2 = getComputerPlayer(dm)
+
+-- Create computer players
+player1 = quackle.Player('Compy1', quackle.Player.ComputerPlayerType, 0)
+player1:setComputerPlayer(p1)
+print(player1:name())
+
+player2 = quackle.Player('Compy2', quackle.Player.ComputerPlayerType, 1)
+player2:setComputerPlayer(p2)
+print(player2:name())
+
+dm:seedRandomNumbers(42)
+
+game = quackle.Game()
+players = quackle.PlayerList()
+
+players:push_back(player1)
+players:push_back(player2)
+
+game:setPlayers(players)
+game:associateKnownComputerPlayers()
+game:addPosition()
+
+for i=1, 50 do
+    if game:currentPosition():gameOver() then
+        print "GAME OVER"
+        break
+    end
+
+    player = game:currentPosition():currentPlayer()
+    move = game:haveComputerPlay()
+    --print("Player: " .. player:name())
+    print("Rack : " .. player:rack():toString())
+    print('Move: ' .. move:toString())
+    print('Board: \n' .. game:currentPosition():board():toString())
+
+end