diff options
author | Grzegorz Adam Hankiewicz <gradha@imap.cc> | 2013-06-11 16:49:04 +0200 |
---|---|---|
committer | Grzegorz Adam Hankiewicz <gradha@imap.cc> | 2013-06-11 16:49:04 +0200 |
commit | 41c51a11d3a9edcc4e5fbc2d3bc3e0e0b357f6ff (patch) | |
tree | cc19ed06a994bdebe2e23ef34180cbf5fd317cb3 | |
parent | fe18117fb28df5ffee28e2e4d720452ddfc89fff (diff) | |
download | Nim-41c51a11d3a9edcc4e5fbc2d3bc3e0e0b357f6ff.tar.gz |
Adds $TESTNIM and $MODULE as variables to test cases.
-rw-r--r-- | tests/caas/compile-suggest.txt | 2 | ||||
-rw-r--r-- | tests/caas/compile-then-def.txt | 4 | ||||
-rw-r--r-- | tests/caas/def-def-compile.txt | 4 | ||||
-rw-r--r-- | tests/caas/def-then-compile.txt | 2 | ||||
-rw-r--r-- | tests/caas/idetools_api.txt | 52 | ||||
-rw-r--r-- | tests/caas/issue_416_template_shift.txt | 10 | ||||
-rw-r--r-- | tests/caas/issue_452_export_shift.txt | 16 | ||||
-rw-r--r-- | tests/caas/suggest-compile.txt | 2 | ||||
-rw-r--r-- | tests/caasdriver.nim | 32 |
9 files changed, 69 insertions, 55 deletions
diff --git a/tests/caas/compile-suggest.txt b/tests/caas/compile-suggest.txt index f90fc5aa1..55d3f8733 100644 --- a/tests/caas/compile-suggest.txt +++ b/tests/caas/compile-suggest.txt @@ -2,7 +2,7 @@ main.nim > c SuccessX # Ugh, undocumented trackDirty, how is it supposed to work? Fails in proc mode. -> idetools --trackDirty:main_dirty.nim,main.nim,12,7 --suggest +> idetools --trackDirty:main_dirty.nim,$TESTNIM,12,7 --suggest CaasRun skField\tx CaasRun skField\ty diff --git a/tests/caas/compile-then-def.txt b/tests/caas/compile-then-def.txt index 839ca1532..66ff29346 100644 --- a/tests/caas/compile-then-def.txt +++ b/tests/caas/compile-then-def.txt @@ -1,9 +1,9 @@ main.nim > c SuccessX -> idetools --track:main.nim,5,18 --def +> idetools --track:$TESTNIM,5,18 --def strutils.toUpper ! SuccessX -> idetools --track:main.nim,5,18 --def +> idetools --track:$TESTNIM,5,18 --def strutils.toUpper ! SuccessX diff --git a/tests/caas/def-def-compile.txt b/tests/caas/def-def-compile.txt index 05ea5a1aa..12ba7e993 100644 --- a/tests/caas/def-def-compile.txt +++ b/tests/caas/def-def-compile.txt @@ -1,8 +1,8 @@ main.nim -> idetools --track:main.nim,5,18 --def +> idetools --track:$TESTNIM,5,18 --def strutils.toUpper ! SuccessX -> idetools --track:main.nim,5,18 --def +> idetools --track:$TESTNIM,5,18 --def strutils.toUpper ! SuccessX > c diff --git a/tests/caas/def-then-compile.txt b/tests/caas/def-then-compile.txt index 7e755cff2..e44af7f63 100644 --- a/tests/caas/def-then-compile.txt +++ b/tests/caas/def-then-compile.txt @@ -1,5 +1,5 @@ main.nim -> idetools --track:main.nim,5,18 --def +> idetools --track:$TESTNIM,5,18 --def strutils.toUpper ! SuccessX > c diff --git a/tests/caas/idetools_api.txt b/tests/caas/idetools_api.txt index f2b513481..bc1dc6a5f 100644 --- a/tests/caas/idetools_api.txt +++ b/tests/caas/idetools_api.txt @@ -1,44 +1,44 @@ idetools_api.nim > c SuccessX -> idetools --track:idetools_api.nim,4,11 --def +> idetools --track:$TESTNIM,4,11 --def def\tskType\tsystem.TFile\tTFile -> idetools --track:idetools_api.nim,5,7 --def +> idetools --track:$TESTNIM,5,7 --def def\tskProc\tsystem.Open\tproc \(var TFile, string, TFileMode, int\): bool -> idetools --track:idetools_api.nim,5,21 --def +> idetools --track:$TESTNIM,5,21 --def def\tskProc\tsystem.\&\tproc \(string, string\): string\{.noSideEffect.\} -> idetools --track:idetools_api.nim,5,38 --def +> idetools --track:$TESTNIM,5,38 --def def\tskEnumField\tsystem.TFileMode.fmWrite\tTFileMode -> idetools --track:idetools_api.nim,7,6 --def +> idetools --track:$TESTNIM,7,6 --def def\tskProc\tsystem.Close\tproc \(TFile\) -> idetools --track:idetools_api.nim,12,23 --def +> idetools --track:$TESTNIM,12,23 --def def\tskIterator\tunicode.runes\titerator \(string\): TRune -> idetools --track:idetools_api.nim,12,15 --def +> idetools --track:$TESTNIM,12,15 --def def\tskTemplate\tsequtils.toSeq\tproc \(expr\): expr -> idetools --track:idetools_api.nim,15,7 --def +> idetools --track:$TESTNIM,15,7 --def # ProcRun mode will fail the next line, because the type is returned empty. -def\tskConst\tidetools_api.SOME_SEQUENCE\tseq\[int\]\t -> idetools --track:idetools_api.nim,15,23 --def +def\tskConst\t$MODULE.SOME_SEQUENCE\tseq\[int\]\t +> idetools --track:$TESTNIM,15,23 --def def\tskProc\tsystem.@\tproc \(array\[IDX, T\]\): seq\[T\]\{.noSideEffect.\} -> idetools --track:idetools_api.nim,17,3 --def +> idetools --track:$TESTNIM,17,3 --def # ProcRun mode will fail the next line, because the type is returned empty. -def\tskType\tidetools_api.bad_string\tbad_string\t -> idetools --track:idetools_api.nim,11,24 --def -def\tskParam\tidetools_api.test_iterators.filename\tstring -> idetools --track:idetools_api.nim,6,5 --def -def\tskVar\tidetools_api.test_enums.o\tTFile -> idetools --track:idetools_api.nim,12,34 --def -def\tskLet\tidetools_api.test_iterators.input\tTaintedString -> idetools --track:idetools_api.nim,13,35 --def -def\tskForVar\tidetools_api.test_iterators.letter\tTRune -> idetools --track:idetools_api.nim,23,3 --def -def\tskResult\tidetools_api.adder.result\tint -> idetools --track:idetools_api.nim,19,6 --def +def\tskType\t$MODULE.bad_string\tbad_string\t +> idetools --track:$TESTNIM,11,24 --def +def\tskParam\t$MODULE.test_iterators.filename\tstring +> idetools --track:$TESTNIM,6,5 --def +def\tskVar\t$MODULE.test_enums.o\tTFile +> idetools --track:$TESTNIM,12,34 --def +def\tskLet\t$MODULE.test_iterators.input\tTaintedString +> idetools --track:$TESTNIM,13,35 --def +def\tskForVar\t$MODULE.test_iterators.letter\tTRune +> idetools --track:$TESTNIM,23,3 --def +def\tskResult\t$MODULE.adder.result\tint +> idetools --track:$TESTNIM,19,6 --def # ProcRun mode will fail the next line, because the type is returned empty. -def\tskField\tidetools_api.TPerson.name\tbad_string\t +def\tskField\t$MODULE.TPerson.name\tbad_string\t -> idetools --track:idetools_api.nim,43,7 --def -def\tskMethod\tidetools_api.eval\tproc \(PPlusExpr\): int\t +> idetools --track:$TESTNIM,43,7 --def +def\tskMethod\t$MODULE.eval\tproc \(PPlusExpr\): int\t diff --git a/tests/caas/issue_416_template_shift.txt b/tests/caas/issue_416_template_shift.txt index 3a494bd57..951a21612 100644 --- a/tests/caas/issue_416_template_shift.txt +++ b/tests/caas/issue_416_template_shift.txt @@ -1,14 +1,14 @@ issue_416_template_shift.nim > c SuccessX -> idetools --track:issue_416_template_shift.nim,12,28 --def +> idetools --track:$TESTNIM,12,28 --def def\tskType\tsystem.string\tstring -> idetools --track:issue_416_template_shift.nim,12,35 --def -def\tskLet\tissue_416_template_shift.failtest.input\tTaintedString +> idetools --track:$TESTNIM,12,35 --def +def\tskLet\t$MODULE.failtest.input\tTaintedString # The following fail because they seem shifted one colum to the right. -> idetools --track:issue_416_template_shift.nim,12,16 --def +> idetools --track:$TESTNIM,12,16 --def def\tskTemplate\tsequtils.toSeq\tproc \(expr\): expr -> idetools --track:issue_416_template_shift.nim,12,22 --def +> idetools --track:$TESTNIM,12,22 --def def\tskIterator\tunicode.runes\titerator \(string\): TRune diff --git a/tests/caas/issue_452_export_shift.txt b/tests/caas/issue_452_export_shift.txt index 02ba053f1..56ba0b74f 100644 --- a/tests/caas/issue_452_export_shift.txt +++ b/tests/caas/issue_452_export_shift.txt @@ -1,11 +1,11 @@ issue_452_export_shift.nim > c SuccessX -> idetools --track:issue_452_export_shift.nim,2,2 --def -def\tskConst\tissue_452_export_shift.VERSION_STR1\tstring -> idetools --track:issue_452_export_shift.nim,3,2 --def -def\tskConst\tissue_452_export_shift.VERSION_STR2\tstring -> idetools --track:issue_452_export_shift.nim,7,5 --def -def\tskProc\tissue_452_export_shift.forward1\tproc \(\): string\t -> idetools --track:issue_452_export_shift.nim,8,5 --def -def\tskProc\tissue_452_export_shift.forward2\tproc \(\): string\t +> idetools --track:$TESTNIM,2,2 --def +def\tskConst\t$MODULE.VERSION_STR1\tstring +> idetools --track:$TESTNIM,3,2 --def +def\tskConst\t$MODULE.VERSION_STR2\tstring +> idetools --track:$TESTNIM,7,5 --def +def\tskProc\t$MODULE.forward1\tproc \(\): string\t +> idetools --track:$TESTNIM,8,5 --def +def\tskProc\t$MODULE.forward2\tproc \(\): string\t diff --git a/tests/caas/suggest-compile.txt b/tests/caas/suggest-compile.txt index a74d4dc21..45e391548 100644 --- a/tests/caas/suggest-compile.txt +++ b/tests/caas/suggest-compile.txt @@ -1,6 +1,6 @@ main.nim # Ugh, undocumented trackDirty, how is it supposed to work? Fails in proc mode. -> idetools --trackDirty:main_dirty.nim,main.nim,12,7 --suggest +> idetools --trackDirty:main_dirty.nim,$TESTNIM,12,7 --suggest skField\tx skField\ty > c diff --git a/tests/caasdriver.nim b/tests/caasdriver.nim index 87360ed34..d4838dc39 100644 --- a/tests/caasdriver.nim +++ b/tests/caasdriver.nim @@ -22,7 +22,12 @@ import osproc, streams, os, strutils, re ## only in that mode. ## ## The rest of the line is treated as a regular expression, so be careful -## escaping metacharacters like parenthesis. +## escaping metacharacters like parenthesis. Before the line is processed as a +## regular expression, some basic variables are searched for and replaced in +## the tests. The variables which will be replaced are: +## +## - $TESTNIM: filename specified in the first line of the script. +## - $MODULE: like $TESTNIM but without extension, useful for expected output. ## ## You can optionally pass parameters at the command line to modify the ## behaviour of the test suite. By default only tests which fail will be echoed @@ -46,26 +51,35 @@ type nim: PProcess # Holds the open process for CaasRun sessions, nil otherwise. mode: TRunMode # Stores the type of run mode the session was started with. lastOutput: string # Preserves the last output, needed for ProcRun mode. - filename: string # Appended to each command starting with '>'. + filename: string # Appended to each command starting with '>'. Also a var. + modname: string # Like filename but without extension. -const modes = [CaasRun, ProcRun] +const + modes = [CaasRun, ProcRun] + filenameReplaceVar = "$TESTNIM" + moduleReplaceVar = "$MODULE" var TesterDir = getAppDir() NimrodBin = TesterDir / "../bin/nimrod" +proc replaceVars(session: var TNimrodSession, text: string): string = + result = text.replace(filenameReplaceVar, session.filename) + result = result.replace(moduleReplaceVar, session.modname) + proc startNimrodSession(project: string, mode: TRunMode): TNimrodSession = - let (dir, name) = project.SplitPath + let (dir, name, ext) = project.splitFile result.mode = mode result.lastOutput = "" - result.filename = name + result.filename = name & ext + result.modname = name if mode == CaasRun: result.nim = startProcess(NimrodBin, workingDir = dir, args = ["serve", "--server.type:stdin", name]) proc doCaasCommand(session: var TNimrodSession, command: string): string = assert session.mode == CaasRun - session.nim.inputStream.write(command & "\n") + session.nim.inputStream.write(session.replaceVars(command) & "\n") session.nim.inputStream.flush result = "" @@ -83,7 +97,7 @@ proc doProcCommand(session: var TNimrodSession, command: string): string = assert session.mode == ProcRun except: result = "FAILED TO EXECUTE: " & command & "\n" & result var - process = startProcess(NimrodBin, args = command.split) + process = startProcess(NimrodBin, args = session.replaceVars(command).split) stream = outputStream(process) line = TaintedString("") @@ -141,9 +155,9 @@ proc doScenario(script: string, output: PStream, mode: TRunMode): bool = output.writeln line, "\n", s.lastOutput else: var expectMatch = true - var pattern = line + var pattern = s.replaceVars(line) if line.startsWith("!"): - pattern = line.substr(1).strip + pattern = pattern.substr(1).strip expectMatch = false let actualMatch = |