From 67321fc7c67265d1a4bd529e9c57413587d564f6 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 26 Feb 2013 23:43:36 -0600 Subject: generate plan and result events ignore comments and subtests completely for now --- src/main/scala/org/perl8/test/tap/Parser.scala | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/main/scala/org/perl8/test/tap/Parser.scala b/src/main/scala/org/perl8/test/tap/Parser.scala index d66c2c7..27f085a 100644 --- a/src/main/scala/org/perl8/test/tap/Parser.scala +++ b/src/main/scala/org/perl8/test/tap/Parser.scala @@ -47,13 +47,19 @@ class Parser private ( } private def plan: Parser[Plan] = - planLine ^^ { _.plan } + planLine ^^ { p => + cb(PlanEvent(p.plan)) + p.plan + } private def result: Parser[TestResult] = simpleResult | subtestResult private def simpleResult: Parser[TestResult] = - resultLine ^^ { _.result } + resultLine ^^ { r => + cb(ResultEvent(r.result)) + r.result + } private def subtestResult: Parser[TestResult] = subtest ~ simpleResult ^^ { case subtest ~ simpleResult => @@ -72,7 +78,7 @@ class Parser private ( // type (the path dependent type associated with the new Parser instance // we create here, rather than the path dependent type associated with // this) - val subParser = new org.perl8.test.tap.Parser(cb, in.first.indent) + val subParser = new org.perl8.test.tap.Parser(e => (), in.first.indent) subParser.tap(in) match { case subParser.Success(p, rest) => Success(p, rest) case subParser.Failure(m, rest) => Failure(m, rest) -- cgit v1.2.3-54-g00ecf