updated tests to be executed
This commit is contained in:
parent
8ea72bdcea
commit
e012eb1001
57 changed files with 341 additions and 90 deletions
|
|
@ -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()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue