source: t/completion.t @ bb79a52

release-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since bb79a52 was b017b03, checked in by Nelson Elhage <nelhage@mit.edu>, 15 years ago
Add failing tests for computing $argct with --.
  • Property mode set to 100644
File size: 5.5 KB
RevLine 
[8eac1a5]1#!/usr/bin/env perl
2use strict;
3use warnings;
4
5use Test::More qw(no_plan);
6
7use File::Basename;
8BEGIN {require (dirname($0) . "/mock.pl");};
9
10=head1 DESCRIPTION
11
12Basic tests for tab-completion functionality.
13
14=cut
15
16sub test_tokenize {
17    local $Test::Builder::Level = $Test::Builder::Level + 1;
18
19    my $before_point = shift;
20    my $after_point = shift;
21   
22    my $words = shift;
23    my $word = shift;
24    my $word_point = shift;
25
[13614e7]26    my $word_start = shift;
27    my $word_end   = shift;
28
[8eac1a5]29    my $ctx = BarnOwl::Completion::Context->new($before_point,
30                                                $after_point);
31
32    is($ctx->line, $before_point . $after_point);
33    is($ctx->point, length $before_point);
34    is_deeply($ctx->words, $words);
35    if (defined($word)) {
36        is($ctx->word, $word, "Correct current word.");
37        is($ctx->word_point, $word_point, "Correct point within word.");
[13614e7]38        is($ctx->word_start, $word_start, "Correct start of word");
39        is($ctx->word_end,   $word_end, "Correct end of word");
[8eac1a5]40    }
41}
42
43
[14acbbd]44isa_ok(BarnOwl::Completion::Context->new('Hello, W', 'orld'), 'BarnOwl::Completion::Context');
[8eac1a5]45
46no warnings 'qw';
47test_tokenize('Hello, W', 'orld',
[13614e7]48              [qw(Hello, World)], 1, 1, 7, 12);
[8eac1a5]49
50test_tokenize('Hello, World', '',
[13614e7]51              [qw(Hello, World)], 1, 5, 7, 12);
[8eac1a5]52
53test_tokenize('', '',
[13614e7]54              [qw()], 0, 0, 0, 0);
[8eac1a5]55
56test_tokenize('Hello', 'World',
[13614e7]57              [qw(HelloWorld)], 0, 5, 0, 10);
[8eac1a5]58
59test_tokenize('lorem ipsum dolor ', 'sit amet',
[13614e7]60              [qw(lorem ipsum dolor sit amet)],
61              3, 0, 18, 21);
[8eac1a5]62
63test_tokenize(q{error "ls -l failed"}, q{},
[13614e7]64              ['error', 'ls -l failed'],
65              1, 12, 6, 20);
[8eac1a5]66
67test_tokenize(q{"a long"' word'}, q{},
68              ['a long word']);
69
[13614e7]70test_tokenize(q{"'"}, q{}, [q{'}], 0, 1, 0, 3);
[8eac1a5]71
72test_tokenize(q{"Hello, }, q{World"},
[13614e7]73              [q{Hello, World}],
74              0, 7, 0, 14);
[8eac1a5]75
76test_tokenize(q{But 'Hello, }, q{World'},
[13614e7]77              ['But', q{Hello, World}],
78              1, 7, 4, 18);
[8eac1a5]79
80test_tokenize(q{But "Hello, }, q{World"''''''""},
[13614e7]81              ['But', q{Hello, World}],
82              1, 7, 4, 26);
[8eac1a5]83
84test_tokenize(q{}, q{''Hello},
[13614e7]85              ['Hello'],
86              0, 0, 0, 7);
[8eac1a5]87
88test_tokenize(q{"Hello, }, q{World},
[13614e7]89              [q{Hello, World}],
90              0, 7, 0, 13);
[8eac1a5]91
92test_tokenize(q{Hello    }, q{World},
[13614e7]93              [qw{Hello World}],
94              1, 0, 9, 14);
[8eac1a5]95
96test_tokenize(q{Hello '' ""}, q{ World},
[13614e7]97              ["Hello", '', '', 'World'],
98              2, 0, 9, 11);
[8eac1a5]99
[7be5d8b]100test_tokenize(q{zwrite -c }, q{},
101              [qw(zwrite -c), ''],
102              2, 0, 10, 10);
103
[8eac1a5]104# It's not entirely clear what we should do here. Make a test for the
105# current behavior, so we'll notice if it changes.
106test_tokenize(q{Hello }, q{ World},
[13614e7]107              [qw(Hello World)],
108              1, -1, 7, 12);
[8eac1a5]109
[6e48560]110
111## Test common_prefix
112
113is(BarnOwl::Completion::common_prefix(qw(a b)), '');
114is(BarnOwl::Completion::common_prefix(qw(a aa)), 'a');
115
116is(BarnOwl::Completion::common_prefix(qw(aa)), 'aa');
117
118is(BarnOwl::Completion::common_prefix(qw(a ab abc)), 'a');
119
120is(BarnOwl::Completion::common_prefix(qw(abc abcd)), 'abc');
121
122is(BarnOwl::Completion::common_prefix(qw(abc abc)), 'abc');
123
[c4efb46]124is(BarnOwl::Completion::common_prefix('a', ''), '');
125
[82a6e8b]126## Test complete_flags
127
128use BarnOwl::Completion::Util qw(complete_flags);
129
130# dummy complete_zwrite
131sub complete_zwrite {
132    my $ctx = shift;
133    return complete_flags($ctx,
134                          [qw(-n -C -m)],
135                          {
136                              "-c" => sub {qw(nelhage nethack sipb help)},
137                              "-i" => sub {qw()},
138                              "-r" => sub {qw(ATHENA.MIT.EDU ZONE.MIT.EDU ANDREW.CMU.EDU)},
139                              "-O" => sub {qw()},
140                          },
141                          sub {qw(nelhage asedeno geofft)});
142}
143
144sub test_complete {
145    my $before = shift;
146    my $after = shift;
147    my $words = shift;
[4fbc7f5]148    my $complete = shift || \&complete_zwrite;
[82a6e8b]149   
150    my $ctx = BarnOwl::Completion::Context->new($before, $after);
151
152    local $Test::Builder::Level = $Test::Builder::Level + 1;
153
[4fbc7f5]154    my @got = $complete->($ctx);
[82a6e8b]155    is_deeply([sort @got], [sort @$words]);
156}
157
158test_complete('zwrite -c ', '', [qw(nelhage nethack sipb help)]);
159
160test_complete('zwrite -c nelhage', '', [qw(nelhage nethack sipb help)]);
161
162test_complete('zwrite -c nelhage -i ', '', [qw()]);
163
164test_complete('zwrite -c nelhage ', '',
165              [qw(-n -C -m -c -i -r -O nelhage asedeno geofft)]);
166
167test_complete('zwrite -c nelhage ', '-',
168              [qw(-n -C -m -c -i -r -O nelhage asedeno geofft)]);
169
[e711ca7]170test_complete('zwrite -c nelhage -- ', '',
171              [qw(nelhage asedeno geofft)]);
172
[4fbc7f5]173sub complete_word {
174    my $ctx = shift;
175    return complete_flags($ctx,
176                          [qw(-a -b -c)],
177                          {
178                              "-d" => sub {qw(some words for completing)},
179                          },
180                          sub {$_[1]});
181}
182
183test_complete('cmd -a -d foo -c hello ','',
184              [qw(-a -b -c -d 1)], \&complete_word);
185
186test_complete('cmd -a -d foo -c ','',
187              [qw(-a -b -c -d 0)], \&complete_word);
188
[b017b03]189# Test that words after -- are counted properly.
190test_complete('cmd -- hi there ','',
191              [qw(2)], \&complete_word);
192
193test_complete('cmd --','',
194              [qw(-a -b -c -d 0)], \&complete_word);
195
196test_complete('cmd -- ','',
197              [qw(0)], \&complete_word);
198
199test_complete('cmd foo -- ','',
200              [qw(1)], \&complete_word);
201
202test_complete('cmd foo -- bar ','',
203              [qw(2)], \&complete_word);
204
[8eac1a5]2051;
[82a6e8b]206
Note: See TracBrowser for help on using the repository browser.