Add basic tests for lfs

.travis.yml

@@ -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

Makefile.target

@@ -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
 

automation/tests/aegisub.cpp

@@ -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);

automation/tests/modules/lfs.moon

@@ -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'