File: lfs.moon

package info (click to toggle)
aegisub 3.2.2%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 21,852 kB
  • sloc: cpp: 56,932; ansic: 16,422; asm: 3,618; sh: 3,582; makefile: 407; python: 350; perl: 274; cs: 205; xml: 196; objc: 47
file content (69 lines) | stat: -rw-r--r-- 2,111 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
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'