updated tests to be executed

This commit is contained in:
Arne Döring 2018-11-14 23:14:16 +01:00 • committed by Araq
commit e012eb1001
57 changed files with 341 additions and 90 deletions

View file

@ -1,18 +1,25 @@
discard """
outputsub: "is newer than"
"""
# test the new LastModificationTime() proc
let
file1 = "tests/testdata/data.csv"
file2 = "tests/testdata/doc1.xml"
import
os, times, strutils
proc main() =
var
a, b: Time
a = getLastModificationTime(paramStr(1))
b = getLastModificationTime(paramStr(2))
a = getLastModificationTime(file1)
b = getLastModificationTime(file2)
writeLine(stdout, $a)
writeLine(stdout, $b)
if a < b:
write(stdout, "$2 is newer than $1\n" % [paramStr(1), paramStr(2)])
write(stdout, "$2 is newer than $1\n" % [file1, file2])
else:
write(stdout, "$1 is newer than $2\n" % [paramStr(1), paramStr(2)])
write(stdout, "$1 is newer than $2\n" % [file1, file2])
main()