Add basic tests for lfs

This commit is contained in:
Thomas Goyne 2014-07-04 09:30:46 -07:00
parent 9befa29707
commit 6fab17d860
4 changed files with 77 additions and 1 deletions

View file

@ -12,6 +12,7 @@ install:
- sudo apt-get install -y -qq libasound2-dev libfftw3-dev libhunspell-dev yasm libfribidi-dev libass-dev libffms2-dev libwxgtk3.0-dev libicu-dev luarocks
- sudo luarocks install busted 1.10.0 > /dev/null
- sudo luarocks install moonscript > /dev/null
- sudo luarocks install uuid > /dev/null
- git submodule --quiet init
- git submodule --quiet update vendor/googletest

View file

@ -1,5 +1,5 @@
ifneq (yes, $(INCLUDING_CHILD_MAKEFILES))
COMMANDS := all install clean distclean test depclean osx-bundle osx-dmg
COMMANDS := all install clean distclean test depclean osx-bundle osx-dmg test-automation
.PHONY: $(COMMANDS)
.DEFAULT_GOAL := all

View file

@ -18,6 +18,9 @@
#include <libaegisub/lua/script_reader.h>
#include <libaegisub/lua/utils.h>
#include <libaegisub/dispatch.h>
#include <libaegisub/log.h>
#include <cstdio>
#include <cstdlib>
@ -38,6 +41,9 @@ int main(int argc, char **argv) {
return 1;
}
agi::dispatch::Init([](agi::dispatch::Thunk f) { });
agi::log::log = new agi::log::LogSink;
// Init lua state
lua_State *L = lua_open();
agi::lua::preload_modules(L);

View file

@ -0,0 +1,69 @@
-- Copyright (c) 2014, Thomas Goyne <plorkyeran@aegisub.org>
--
-- Permission to use, copy, modify, and distribute this software for any
-- purpose with or without fee is hereby granted, provided that the above
-- copyright notice and this permission notice appear in all copies.
--
-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
lfs = require 'lfs'
uuid = require 'uuid'
uuid.randomseed os.time()
get_pwd = ->
pwd = io.popen 'pwd'
dir = pwd\read!
pwd.close!
dir
original_dir = get_pwd!
describe 'lfs', ->
after_each ->
lfs.chdir original_dir
describe 'currentdir', ->
it 'should give the same result as pwd', ->
dir = lfs.currentdir()
assert.is.equal dir, get_pwd!
describe 'chdir', ->
it 'should change the current directory', ->
dir = get_pwd!
lfs.chdir '/'
new_dir = get_pwd!
assert.is.equal '/', new_dir
lfs.chdir dir
assert.is.equal get_pwd!, dir
it 'should fail on an invalid path', ->
name = '/tmp/' .. uuid! .. '/' .. uuid!
res, msg = lfs.chdir name
assert.is.nil res
assert.is.not.nil msg
describe 'mkdir', ->
it 'should be able to create new directories', ->
name = '/tmp/' .. uuid!
lfs.mkdir name
assert.is.equal lfs.attributes(name, 'mode'), 'directory'
res, msg = lfs.rmdir name
assert.is.nil lfs.attributes name, 'mode'
describe 'touch', ->
it 'should create files if given a nonexistent filename', ->
name = '/tmp/' .. uuid!
lfs.touch name
assert.is.equal lfs.attributes(name).mode, 'file'
os.remove(name)
assert.is.nil lfs.attributes name, 'mode'