Changeset 82a6e8b

Timestamp:

Jul 27, 2009, 11:23:57 PM (15 years ago)

Author:

Nelson Elhage <nelhage@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:

7be5d8b

Parents:

b73bcbb

git-author:

Nelson Elhage <nelhage@mit.edu> (07/27/09 22:20:40)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/27/09 23:23:57)

Message:

Add a generic function for completing a command with options.

Implement some minimal tests, too.

Files:

• perl/lib/BarnOwl/Completion/Util.pm (added)
• t/completion.t (modified) (1 diff)

t/completion.t

@@ -118 +118 @@
 is(BarnOwl::Completion::common_prefix(qw(abc abc)), 'abc');
 
+## Test complete_flags
+
+use BarnOwl::Completion::Util qw(complete_flags);
+
+# dummy complete_zwrite
+sub complete_zwrite {
+    my $ctx = shift;
+    return complete_flags($ctx,
+                          [qw(-n -C -m)],
+                          {
+                              "-c" => sub {qw(nelhage nethack sipb help)},
+                              "-i" => sub {qw()},
+                              "-r" => sub {qw(ATHENA.MIT.EDU ZONE.MIT.EDU ANDREW.CMU.EDU)},
+                              "-O" => sub {qw()},
+                          },
+                          sub {qw(nelhage asedeno geofft)});
+}
+
+sub test_complete {
+    my $before = shift;
+    my $after = shift;
+    my $words = shift;
+    
+    my $ctx = BarnOwl::Completion::Context->new($before, $after);
+
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+
+    my @got = complete_zwrite($ctx);
+    is_deeply([sort @got], [sort @$words]);
+}
+
+test_complete('zwrite -c ', '', [qw(nelhage nethack sipb help)]);
+
+test_complete('zwrite -c nelhage', '', [qw(nelhage nethack sipb help)]);
+
+test_complete('zwrite -c nelhage -i ', '', [qw()]);
+
+test_complete('zwrite -c nelhage ', '',
+              [qw(-n -C -m -c -i -r -O nelhage asedeno geofft)]);
+
+test_complete('zwrite -c nelhage ', '-',
+              [qw(-n -C -m -c -i -r -O nelhage asedeno geofft)]);
+
 1;
+