Changeset 1167bf1 for t

Timestamp:

Oct 3, 2009, 1:53:00 AM (15 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

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

Children:

3b80321

Parents:

5fdc562

git-author:

David Benjamin <davidben@mit.edu> (09/24/09 23:43:20)

git-committer:

David Benjamin <davidben@mit.edu> (10/03/09 01:53:00)

Message:

Add tests for complete_filter_expr

Tests:
- initial setup
- not forwards back to initial
- offers and/or
- offers and/or OR ) when in parens
- parse some vaguely complicated filter
- type, direction, login argument completion

Signed-off-by: David Benjamin <davidben@mit.edu>

File:

• t/completion.t (modified) (2 diffs)

t/completion.t

@@ -7 +7 @@
 use File::Basename;
 BEGIN {require (dirname($0) . "/mock.pl");};
+
+use BarnOwl::Complete::Filter qw(complete_filter_expr);
 
 =head1 DESCRIPTION
@@ -253 +255 @@
               [qw(2)], \&complete_word);
 
+
+# Test the filter expression completer
+test_complete('', '',
+              [qw[( body class direction false filter hostname instance login not opcode perl realm recipient sender true type]],
+              \&complete_filter_expr);
+
+test_complete('not ', '',
+              [qw[( body class direction false filter hostname instance login not opcode perl realm recipient sender true type]],
+              \&complete_filter_expr);
+
+test_complete('true ', '',
+              [qw[and or]],
+              \&complete_filter_expr);
+
+test_complete('( true ', '',
+              [qw[and or )]],
+              \&complete_filter_expr);
+
+test_complete('( body static and body analysis and not false and class davidben and ( instance python or instance hotd ', '',
+              [qw[and or )]],
+              \&complete_filter_expr);
+
+test_complete('type ', '',
+              [qw[admin aim zephyr]],
+              \&complete_filter_expr);
+
+test_complete('direction ', '',
+              [qw[in out none]],
+              \&complete_filter_expr);
+
+test_complete('login ', '',
+              [qw[login logout none]],
+              \&complete_filter_expr);
+
 1;