[Bps-public-commit] r14519 - in Prophet/trunk: . t

[sartak at bestpractical.com]

Author: sartak
Date: Fri Jul 25 07:04:43 2008
New Revision: 14519

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/CLI.pm
   Prophet/trunk/t/search.t

Log:
 r65206 at onn:  sartak | 2008-07-25 07:01:42 -0400
 Support for "foo =~bar". I think I'm happy with search now. :)


Modified: Prophet/trunk/lib/Prophet/CLI.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/CLI.pm	(original)
+++ Prophet/trunk/lib/Prophet/CLI.pm	Fri Jul 25 07:04:43 2008
@@ -231,6 +231,10 @@
                 $cmp = $val;
                 $val = shift @ARGV;
             }
+            else {
+                # perhaps they said "foo =~bar"..
+                $cmp = $1 if $val =~ s/^($cmp_re)//;
+            }
         }
 
         if ($sep == 1) {

Modified: Prophet/trunk/t/search.t
==============================================================================
--- Prophet/trunk/t/search.t	(original)
+++ Prophet/trunk/t/search.t	Fri Jul 25 07:04:43 2008
@@ -50,21 +50,15 @@
         "found two tickets with status=~first|stalled",
     );
 
-    TODO: {
-        local $TODO = "regex comparisons not implemented yet";
-        run_output_matches('prophet', [qw(search --type Bug -- status !=new summary=~first|bad)],
-            [qr/bad ticket summary/],
-            "found two tickets with status=~first|bad",
-        );
-    };
+    run_output_matches('prophet', [qw(search --type Bug -- status !=new summary=~first|bad)],
+        [qr/bad ticket summary/],
+        "found two tickets with status=~first|bad",
+    );
 
-    TODO: {
-        local $TODO = "regex comparisons not implemented yet";
-        run_output_matches('prophet', [qw(search --type Bug -- status ne new summary =~ first|bad)],
-            [qr/bad ticket summary/],
-            "found two tickets with status=~first|bad",
-        );
-    };
+    run_output_matches('prophet', [qw(search --type Bug -- status ne new summary =~ first|bad)],
+        [qr/bad ticket summary/],
+        "found two tickets with status=~first|bad",
+    );
 
     run_output_matches('prophet', [qw(search --type Bug -- cmp ne)],
         [qr/bad ticket summary/],