lualibs-bundle/bundle_test.lua

--go@ mgit bundle-test

local ffi = require 'ffi'

io.stdout:setvbuf 'no'

local function test_load_all()
	require 'strict'
	local glue = require 'glue'
	local lp = require 'luapower'

	lp.luapower_dir = glue.bin .. '/../..'
	lp.auto_update_db = false
	lp.allow_update_db_locally = false

	--warming up the cache
	io.stdout:write 'loading module list... '
	for mod in pairs(lp.modules()) do
		lp.module_platforms(mod)
	end
	print 'ok'

	io.stdout:write 'loading modules... '
	local m = 0
	for mod in glue.sortedpairs(lp.modules()) do
		if lp.module_platforms(mod)[lp.current_platform()] then
			local ok, err = pcall(require, mod)
			if not ok then
				print(mod, err)
			else
				m = m + 1
			end
		end
	end
	print('ok (' .. m .. ')')
end

local platos = { Windows = 'mingw', Linux = 'linux', OSX = 'osx' }
local function current_platform()
	return platos[ffi.os] .. (ffi.abi '32bit' and '32' or '64')
end

local function test_blob()
	local bundle = require 'bundle'
	io.stdout:write 'loading blob... '
	local blobfile = '.bundle-test/' .. current_platform() .. '/big.blob'
	local filesize = 20 * 1024 * 1024 + #'header' + #'footer'

	local s = assert(bundle.load(blobfile))
	assert(#s == filesize)
	assert(s:find '^header')
	assert(s:sub(- #'footer') == 'footer')

	local f = assert(bundle.fs_open(blobfile))
	local buf = ffi.new 'char[6]'
	assert(f:seek(0) == 0)
	assert(f:read(buf, 6) == 6)
	assert(ffi.string(buf, 6) == 'header')
	assert(f:seek('end', -6) == filesize - 6)
	assert(f:read(buf, 6) == 6)
	assert(ffi.string(buf, 6) == 'footer')
	f:close()

	print('ok (' .. #s .. ' bytes)')
end

local function test_dir()
	local bundle = require 'bundle'
	print 'loading dir listing for .mgit...'
	for name, d in bundle.fs_dir '.mgit' do
		if not name then
			print('error: ' .. d)
			break
		else
			print(string.format("%-8s %-30s %s", d:attr 'type', d:name(), d:path()))
		end
	end
end

test_load_all()
test_blob()
test_dir()