like and unlike

1 files changed, 19 insertions, 0 deletions

diff --git a/src/main/scala/org/perl8/test/TestMore.scala b/src/main/scala/org/perl8/test/TestMore.scala
index e5e1105..2645828 100644
--- a/src/main/scala/org/perl8/test/TestMore.scala
+++ b/src/main/scala/org/perl8/test/TestMore.scala
@@ -3,6 +3,7 @@ package org.perl8.test
 import org.perl8.test.Utils._
 
 import java.io.OutputStream
+import scala.util.matching.Regex
 
 class TestMore (
   plan: Option[Plan],
@@ -51,6 +52,24 @@ class TestMore (
     cond
   }
 
+  def like (got: String, rx: Regex, desc: Message = NoMessage): Boolean = {
+    val cond = ok(rx.findFirstIn(got).nonEmpty, desc)
+    if (!cond) {
+      builder.diag("                  '" + got + "'")
+      builder.diag("    doesn't match '" + rx + "'")
+    }
+    cond
+  }
+
+  def unlike (got: String, rx: Regex, desc: Message = NoMessage): Boolean = {
+    val cond = ok(rx.findFirstIn(got).isEmpty, desc)
+    if (!cond) {
+      builder.diag("                  '" + got + "'")
+      builder.diag("          matches '" + rx + "'")
+    }
+    cond
+  }
+
   def diag (message: String) {
     builder.diag(message)
   }