Permalink
Browse files

perldoc

  • Loading branch information...
1 parent 1a079d0 commit e5bb3daecbada0b4e23bdde7fe1c22977caa5311 @yanick committed Oct 31, 2012
Showing with 24 additions and 8 deletions.
  1. +3 −3 bash/bits/perldoc.bash
  2. +1 −1 perldoc-complete
  3. +0 −4 t/general.t
  4. +20 −0 t/perldoc-complete
View
@@ -1,7 +1,7 @@
# perldoc autocompletion
-complete -C perldoc-complete perldoc
-complete -C perldoc-complete pod
-complete -C perldoc-complete xpod
+complete -C perldoc-complete -o nospace -o default perldoc
+complete -C perldoc-complete -o nospace -o default pod
+complete -C perldoc-complete -o nospace -o default xpod
alias pod=perldoc
View
@@ -8,10 +8,6 @@ use Test::More;
use Test::Files;
use Test::File::Contents;
-file_contents_identical $ENV{HOME} . '/bin/perldoc-complete',
- 'perldoc-complete/perldoc-complete',
- 'perldoc-complete'
- or diag "cp perldoc-complete/perldoc-complete $ENV{HOME}/bin";
compare_ok $ENV{HOME} . '/.bash/mine.bash', 'bash/mine.bash',
'cp bash/mine.bash ~/.bash/mine.bash';
View
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+use Test::Files;
+use Test::File::Contents;
+
+file_contents_identical $ENV{HOME} . '/bin/perldoc-complete',
+ 'perldoc-complete/perldoc-complete',
+ 'perldoc-complete'
+ or diag "cp perldoc-complete/perldoc-complete $ENV{HOME}/bin";
+
+my $bit = 'bash/bits/perldoc.bash';
+open my $fh, '<', $bit;
+file_contents_like $ENV{HOME}.'/.bashrc'
+ => qr/@{[ quotemeta join '', <$fh> ]}/
+ or diag "vimdiff ~/.bashrc $bit";
+
+done_testing();

0 comments on commit e5bb3da

Please sign in to comment.