1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
package org.perl8.test.tap
object Producer {
import org.perl8.test._
def result (
cond: Boolean,
num: Int,
desc: Message = NoMessage,
todo: Message = NoMessage
): String =
join(
(if (!cond) Some("not") else None),
Some("ok"),
Some(num),
desc,
todo.map(t => "# TODO " + t)
)
def skip (num: Int, reason: Message = NoMessage): String =
join(
Some("ok"),
Some(num),
Some("# skip"),
reason
)
def comment (message: String): String =
message.split("\n").map(m => "# " + m).mkString("\n")
def plan (plan: Plan): String =
join(
Some("1.." + plan.plan),
(if (plan.skipAll || plan.message.isDefined) Some("#") else None),
(if (plan.skipAll) Some("SKIP") else None),
plan.message
)
def bailOut (message: Message = NoMessage) =
join(Some("Bail out!"), message)
private def join (strings: Option[Any]*): String =
strings.flatMap(x => x).mkString(" ")
}
|