Changeset 6dba228

Timestamp:

Apr 26, 2010, 3:46:12 PM (14 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10, release-1.6, release-1.7, release-1.8, release-1.9

Children:

3001c11

Parents:

ae333f0

git-author:

David Benjamin <davidben@mit.edu> (04/26/10 12:54:14)

git-committer:

David Benjamin <davidben@mit.edu> (04/26/10 15:46:12)

Message:

Fix filter tests to account for new deleted syntax

Files:

• perl/lib/BarnOwl/Complete/Filter.pm (modified) (1 diff)
• t/completion.t (modified) (1 diff)

perl/lib/BarnOwl/Complete/Filter.pm

@@ -26 +26 @@
 ### Private
 
-my %filter_cmds = (
+# Exported for the tester
+our %filter_cmds = (
     sender    => \&BarnOwl::Complete::Zephyr::complete_user,
     recipient => \&BarnOwl::Complete::Zephyr::complete_user,

t/completion.t

@@ -266 +266 @@
 
 # Test the filter expression completer
+
+sub toplevel_filter_expect {
+    return [sort(keys %BarnOwl::Complete::Filter::filter_cmds, qw[( not true false])];
+}
+
 test_complete('', '',
-              [qw[( body class direction false filter hostname instance login not opcode perl realm recipient sender true type]],
+              toplevel_filter_expect(),
               \&complete_filter_expr);
 
 test_complete('not ', '',
-              [qw[( body class direction false filter hostname instance login not opcode perl realm recipient sender true type]],
+              toplevel_filter_expect(),
               \&complete_filter_expr);