mirror of https://github.com/status-im/NimYAML.git
113 lines
4.3 KiB
Nim
113 lines
4.3 KiB
Nim
# NimYAML - YAML implementation in Nim
|
|
# (c) Copyright 2016 Felix Krause
|
|
#
|
|
# See the file "copying.txt", included in this
|
|
# distribution, for details about the copyright.
|
|
|
|
import os, osproc, terminal, strutils, streams, macros, unittest
|
|
import testEventParser, commonTestUtils
|
|
import "../yaml"
|
|
|
|
const devKitFolder = "yaml-dev-kit"
|
|
|
|
proc echoError(msg: string) =
|
|
styledWriteLine(stdout, fgRed, "[error] ", fgWhite, msg, resetStyle)
|
|
|
|
proc ensureDevKitCloneCorrect(pwd: string) {.compileTime.} =
|
|
let absolutePath = pwd / devKitFolder
|
|
if dirExists(absolutePath):
|
|
var isCorrectClone = true
|
|
if dirExists(absolutePath / ".git"):
|
|
let remoteUrl =
|
|
staticExec("cd \"" & absolutePath & "\" && git remote get-url origin")
|
|
if remoteUrl != "https://github.com/ingydotnet/yaml-dev-kit.git":
|
|
isCorrectClone = false
|
|
let branches = staticExec("cd \"" & absolutePath & "\" && git branch")
|
|
if "* data" notin branches.splitLines():
|
|
isCorrectClone = false
|
|
if isCorrectClone:
|
|
let updateOutput = staticExec("cd \"" & absolutePath & "\" && git pull")
|
|
#if uError != 0:
|
|
# echo "could not update yaml-dev-kit! please fix this problem and compile again."
|
|
# echo "output:\n"
|
|
# echo "$ git pull"
|
|
# echo updateOutput
|
|
# quit 1
|
|
else:
|
|
echo devKitFolder, " exists, but is not in expected state. Make sure it is a git repo,"
|
|
echo "cloned from https://github.com/ingydotnet/yaml-dev-kit.git, and the data branch"
|
|
echo "is active. Alternatively, delete the folder " & devKitFolder & '.'
|
|
quit 1
|
|
else:
|
|
let cloneOutput = staticExec("cd \"" & pwd &
|
|
"\" && git clone https://github.com/ingydotnet/yaml-dev-kit.git -b data")
|
|
#if cError != 0:
|
|
if not(dirExists(absolutePath)) or not(dirExists(absolutePath / ".git")) or
|
|
not(dirExists(absolutePath / "229Q")):
|
|
echo "could not clone https://github.com/ingydotnet/yaml-dev-kit.git. Make sure"
|
|
echo "you are connected to the internet and your proxy settings are correct. output:\n"
|
|
echo "$ git clone https://github.com/ingydotnet/yaml-dev-kit.git"
|
|
echo cloneOutput
|
|
quit 1
|
|
|
|
proc parserTest(path: string): bool =
|
|
var
|
|
tagLib = initExtendedTagLibrary()
|
|
parser = newYamlParser(tagLib)
|
|
actualIn = newFileStream(path / "in.yaml")
|
|
actual = parser.parse(actualIn)
|
|
expectedIn = newFileStream(path / "test.event")
|
|
expected = parseEventStream(expectedIn, tagLib)
|
|
defer:
|
|
actualIn.close()
|
|
expectedIn.close()
|
|
var i = 1
|
|
try:
|
|
while not actual.finished():
|
|
let actualEvent = actual.next()
|
|
if expected.finished():
|
|
echoError("At token #" & $i & ": Expected stream end, got " &
|
|
$actualEvent.kind)
|
|
return false
|
|
let expectedEvent = expected.next()
|
|
if expectedEvent != actualEvent:
|
|
printDifference(expectedEvent, actualEvent)
|
|
echoError("At token #" & $i &
|
|
": Actual tokens do not match expected tokens")
|
|
return false
|
|
i.inc()
|
|
if not expected.finished():
|
|
echoError("Got fewer tokens than expected, first missing " &
|
|
"token: " & $expected.next().kind)
|
|
return false
|
|
except:
|
|
let e = getCurrentException()
|
|
if e.parent of YamlParserError:
|
|
let pe = (ref YamlParserError)(e.parent)
|
|
echo "line ", pe.line, ", column ", pe.column, ": ", pe.msg
|
|
echo pe.lineContent
|
|
else: echo e.msg
|
|
echoError("Catched an exception at token #" & $i &
|
|
" test was not successful")
|
|
return false
|
|
result = true
|
|
|
|
macro genTests(): untyped =
|
|
let
|
|
pwd = staticExec("pwd")
|
|
absolutePath = '"' & (pwd / devKitFolder) & '"'
|
|
echo "[tparser] Generating tests from " & absolutePath
|
|
ensureDevKitCloneCorrect(pwd)
|
|
result = newStmtList()
|
|
# walkDir for some crude reason does not work with travis build
|
|
let dirItems = staticExec("ls -1d " & absolutePath / "*")
|
|
for dirPath in dirItems.splitLines():
|
|
if dirPath[^4..^1] in [".git", "name", "tags", "meta"]: continue
|
|
let title = slurp(dirPath / "===")
|
|
result.add(newCall("test",
|
|
newLit(strip(title) & " [" &
|
|
dirPath[^4..^1] & ']'), newCall("doAssert", newCall("parserTest",
|
|
newLit(dirPath)))))
|
|
result = newCall("suite", newLit("Parser Tests (from yaml-dev-kit)"), result)
|
|
|
|
genTests() |