# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1374510718 -14400
# Node ID 03975bffc3682babd2729baffae98d08ba8c6d48
# Parent  eb6f293b512b7c089f38ef71b6844e1ae299290e
Tests: add missing TODO.

diff --git a/sub_filter_perl.t b/sub_filter_perl.t
--- a/sub_filter_perl.t
+++ b/sub_filter_perl.t
@@ -115,12 +115,17 @@ like(http_get('/multi?a=aa&b=aaaab'), qr
 
 # full backtracking
 
+TODO: {
+local $TODO = 'not yet';
+
 like(http_get('/multi?a=aa&b=xaaab'), qr/^aaxa_replaced$/m, 'aab in aa + xaaab');
 like(http_get('/multi?a=aa&b=axaaab'), qr/^aaaxa_replaced$/m,
 	'aab in aa + axaaab');
 like(http_get('/multi?a=aa&b=aaxaaab'), qr/^aaaaxa_replaced$/m,
 	'aab in aa + aaxaaab');
 
+}
+
 # short pattern
 
 like(http_get('/short?a=a&b=b'), qr/^_replaced$/m, 'ab in a + b');