From 3e58453693805c7cea035e06918ebaf67807d3b2 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Sun, 14 Aug 2011 00:42:39 -0400
Subject: [PATCH] Unit Tests - filter-prefix.t

- I had forgotten to remove the unit tests for the ~ inversion modifier.
  This feature, though well implemented, is removed because enhancements
  to filtering are going to be added to the new expressions.  Attribute
  modifiers will continue to be supported, but not enhanced beyond 1.9.4
  functionality..
---
 test/filter-prefix.t | 33 +--------------------------------
 1 file changed, 1 insertion(+), 32 deletions(-)

diff --git a/test/filter-prefix.t b/test/filter-prefix.t
index 705995369..6e6900237 100755
--- a/test/filter-prefix.t
+++ b/test/filter-prefix.t
@@ -28,7 +28,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 85;
+use Test::More tests => 61;
 
 # Create the rc file.
 if (open my $fh, '>', 'filter.rc')
@@ -88,16 +88,6 @@ like   ($output, qr/six/,   'd6');
 unlike ($output, qr/seven/, 'd7');
 unlike ($output, qr/eight/, 'd8');
 
-$output = qx{../src/task rc:filter.rc list project.~startswith:bar};
-like   ($output, qr/one/,   'e1');
-like   ($output, qr/two/,   'e2');
-like   ($output, qr/three/, 'e3');
-unlike ($output, qr/four/,  'e4');
-unlike ($output, qr/five/,  'e5');
-unlike ($output, qr/six/,   'e6');
-like   ($output, qr/seven/, 'e7');
-like   ($output, qr/eight/, 'e8');
-
 $output = qx{../src/task rc:filter.rc list project:ba};
 unlike ($output, qr/one/,   'f1');
 unlike ($output, qr/two/,   'f2');
@@ -118,16 +108,6 @@ unlike ($output, qr/six/,   'g6');
 unlike ($output, qr/seven/, 'g7');
 unlike ($output, qr/eight/, 'g8');
 
-$output = qx{../src/task rc:filter.rc list project.~startswith:ba};
-like   ($output, qr/one/,   'h1');
-like   ($output, qr/two/,   'h2');
-like   ($output, qr/three/, 'h3');
-unlike ($output, qr/four/,  'h4');
-unlike ($output, qr/five/,  'h5');
-unlike ($output, qr/six/,   'h6');
-unlike ($output, qr/seven/, 'h7');
-unlike ($output, qr/eight/, 'h8');
-
 $output = qx{../src/task rc:filter.rc list description.has:foo};
 like   ($output, qr/one/,   'i1');
 unlike ($output, qr/two/,   'i2');
@@ -138,17 +118,6 @@ like   ($output, qr/six/,   'i6');
 like   ($output, qr/seven/, 'i7');
 like   ($output, qr/eight/, 'i8');
 
-$output = qx{../src/task rc:filter.rc list description.~has:foo};
-unlike ($output, qr/one/,   'j1');
-like   ($output, qr/two/,   'j2');
-like   ($output, qr/three/, 'j3');
-like   ($output, qr/four/,  'j4');
-like   ($output, qr/five/,  'j5');
-unlike ($output, qr/six/,   'j6');
-unlike ($output, qr/seven/, 'j7');
-unlike ($output, qr/eight/, 'j8');
-
-
 # Cleanup.
 unlink 'pending.data';
 ok (!-r 'pending.data', 'Removed pending.data');