diff options
author | Freddy Vulto <fvulto@gmail.com> | 2010-02-05 15:16:19 +0100 |
---|---|---|
committer | Freddy Vulto <fvulto@gmail.com> | 2010-02-05 15:16:19 +0100 |
commit | dc4d28bc112e379e65c2e1c6ca953dd3d09930e0 (patch) | |
tree | 2c231cac6f751089e0129153e00e035c9a273bfc /test/lib/completions/perl.exp | |
parent | c70c1ecb3178492757cfde95f931b7c434db3174 (diff) | |
download | bash-completion-dc4d28bc112e379e65c2e1c6ca953dd3d09930e0.tar.gz |
(testsuite) mv fixture1 fixtures/shared/default
Diffstat (limited to 'test/lib/completions/perl.exp')
-rw-r--r-- | test/lib/completions/perl.exp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/lib/completions/perl.exp b/test/lib/completions/perl.exp index 4b463383..2199c994 100644 --- a/test/lib/completions/perl.exp +++ b/test/lib/completions/perl.exp @@ -18,7 +18,7 @@ sync_after_int set test "Second argument should file complete" -set cmd "perl foo fixture1/f" +set cmd "perl foo fixtures/shared/default/f" send "$cmd\t" expect { -re "^$cmd\r\nfoo +foo.d/ *\r\n/@${cmd}oo$" { pass "$test" } @@ -31,7 +31,7 @@ sync_after_int set test "-I without space should complete directories" -set cmd "perl -Ifixture1/" +set cmd "perl -Ifixtures/shared/default/" send "$cmd\t" expect { -re "^$cmd\r\nbar bar.d/ +foo.d/ *\r\n/@$cmd$" { pass "$test" } @@ -44,7 +44,7 @@ sync_after_int set test "-I with space should complete directories" -set cmd "perl -I fixture1/" +set cmd "perl -I fixtures/shared/default/" send "$cmd\t" expect { -re "^$cmd\r\nbar bar.d/ +foo.d/ *\r\n/@$cmd$" { pass "$test" } @@ -57,7 +57,7 @@ sync_after_int set test "-x without space should complete directories" -set cmd "perl -xfixture1/b" +set cmd "perl -xfixtures/shared/default/b" send "$cmd\t" expect { -re "^${cmd}ar\\\\ bar.d/ *$" { pass "$test" } @@ -70,7 +70,7 @@ sync_after_int set test "-x with space should complete directories" -set cmd "perl -x fixture1/b" +set cmd "perl -x fixtures/shared/default/b" send "$cmd\t" expect { -re "^${cmd}ar\\\\ bar.d/ *$" { pass "$test" } |