perldoc

yanick · Oct 31, 2012 · e5bb3da · e5bb3da
1 parent 1a079d0
commit e5bb3da
Show file tree

Hide file tree

Showing 4 changed files with 24 additions and 8 deletions.
diff --git a/bash/bits/perldoc.bash b/bash/bits/perldoc.bash
@@ -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 
diff --git a/perldoc-complete b/perldoc-complete
diff --git a/t/general.t b/t/general.t
@@ -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';

diff --git a/t/perldoc-complete b/t/perldoc-complete
@@ -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();