From b54c647633213e998eb9d217322627693293e84a Mon Sep 17 00:00:00 2001
From: kyle <kyle@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Mon, 26 Oct 2009 16:58:07 +0000
Subject: [PATCH] [t/spec] Tests for RT #70007

git-svn-id: http://svn.pugscode.org/pugs@28900 c213334d-75ef-0310-aa23-eaa082d1ae64
---
 S05-match/capturing-contexts.t | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/S05-match/capturing-contexts.t b/S05-match/capturing-contexts.t
index a7279ec164..b0ef110b10 100644
--- a/S05-match/capturing-contexts.t
+++ b/S05-match/capturing-contexts.t
@@ -1,8 +1,8 @@
 use v6;
-
 use Test;
-
-plan 21;
+BEGIN { @*INC.push('t/spec/packages/') };
+use Test::Util;
+plan *;
 
 if !eval('("a" ~~ /a/)') {
   skip_rest "skipped tests - rules support appears to be missing";
@@ -81,4 +81,17 @@ if !eval('("a" ~~ /a/)') {
        'Match coerced to Hash says match exists';
 }
 
+#?rakudo skip 'RT 70007'
+nok 'aa' ~~ /(.)$1/, 'match with non-existent capture does not match';
+#?rakudo todo 'RT 70007'
+is_run( q{'aa' ~~ /(.)$1/},
+        {
+            status => 0,
+            out    => '',
+            err    => rx/\S/,
+        },
+        'match with non-existent capture emits a warning' );
+
+done_testing;
+
 # vim: ft=perl6