report duration to appveyor runner
This commit is contained in:
parent
b418153899
commit
582c5054a1
1 changed files with 5 additions and 3 deletions
|
|
@ -12,7 +12,7 @@
|
||||||
import
|
import
|
||||||
parseutils, strutils, pegs, os, osproc, streams, parsecfg, json,
|
parseutils, strutils, pegs, os, osproc, streams, parsecfg, json,
|
||||||
marshal, backend, parseopt, specs, htmlgen, browsers, terminal,
|
marshal, backend, parseopt, specs, htmlgen, browsers, terminal,
|
||||||
algorithm, compiler/nodejs, re
|
algorithm, compiler/nodejs, re, times
|
||||||
|
|
||||||
const
|
const
|
||||||
resultsFile = "testresults.html"
|
resultsFile = "testresults.html"
|
||||||
|
|
@ -47,6 +47,7 @@ type
|
||||||
options: string
|
options: string
|
||||||
target: TTarget
|
target: TTarget
|
||||||
action: TTestAction
|
action: TTestAction
|
||||||
|
startTime: float
|
||||||
|
|
||||||
# ----------------------------------------------------------------------------
|
# ----------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
@ -143,6 +144,7 @@ proc `$`(x: TResults): string =
|
||||||
proc addResult(r: var TResults, test: TTest,
|
proc addResult(r: var TResults, test: TTest,
|
||||||
expected, given: string, success: TResultEnum) =
|
expected, given: string, success: TResultEnum) =
|
||||||
let name = test.name.extractFilename & test.options
|
let name = test.name.extractFilename & test.options
|
||||||
|
let duration = epochTime() - test.startTime
|
||||||
backend.writeTestResult(name = name,
|
backend.writeTestResult(name = name,
|
||||||
category = test.cat.string,
|
category = test.cat.string,
|
||||||
target = $test.target,
|
target = $test.target,
|
||||||
|
|
@ -172,7 +174,7 @@ proc addResult(r: var TResults, test: TTest,
|
||||||
("Skipped", "")
|
("Skipped", "")
|
||||||
else:
|
else:
|
||||||
("Failed", "Expected:\n" & expected & "\n\n" & "Gotten:\n" & given)
|
("Failed", "Expected:\n" & expected & "\n\n" & "Gotten:\n" & given)
|
||||||
discard execProcess("appveyor", args=["AddTest", test.name & test.options, "-FileName", test.cat.string, "-Outcome", outcome, "-ErrorMessage", msg], options={poStdErrToStdOut, poUsePath})
|
discard execProcess("appveyor", args=["AddTest", test.name & test.options, "-FileName", test.cat.string, "-Outcome", outcome, "-ErrorMessage", msg, "-Duration", $(duration*1000).int], options={poStdErrToStdOut, poUsePath})
|
||||||
|
|
||||||
proc cmpMsgs(r: var TResults, expected, given: TSpec, test: TTest) =
|
proc cmpMsgs(r: var TResults, expected, given: TSpec, test: TTest) =
|
||||||
if strip(expected.msg) notin strip(given.msg):
|
if strip(expected.msg) notin strip(given.msg):
|
||||||
|
|
@ -366,7 +368,7 @@ proc makeTest(test, options: string, cat: Category, action = actionCompile,
|
||||||
target = targetC, env: string = ""): TTest =
|
target = targetC, env: string = ""): TTest =
|
||||||
# start with 'actionCompile', will be overwritten in the spec:
|
# start with 'actionCompile', will be overwritten in the spec:
|
||||||
result = TTest(cat: cat, name: test, options: options,
|
result = TTest(cat: cat, name: test, options: options,
|
||||||
target: target, action: action)
|
target: target, action: action, startTime: epochTime())
|
||||||
|
|
||||||
include categories
|
include categories
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue