carton: new completion

Author: scop

completions/Makefile.am

@@ -37,6 +37,7 @@ bashcomp_DATA = 2to3 \
 		_cal \
 		cancel \
 		cardctl \
+		carton \
 		ccache \
 		ccze \
 		cfagent \

completions/carton

@@ -0,0 +1,78 @@
+# carton(3pm) completion                                   -*- shell-script -*-
+
+_carton_commands()
+{
+    local cmds=$("${1:-carton}" usage 2>&1 | \
+                     command sed -ne '/.*command.* is one of/{n;p;q}')
+    COMPREPLY+=( $(IFS="$IFS," compgen -W "$cmds" -- "$cur") )
+}
+
+_carton_command_help()
+{
+    local help=$(PERLDOC_PAGER=cat PERLDOC=-otext "${1:-carton}" -h $2 2>&1)
+    COMPREPLY+=( $(compgen -W '$help' -- "$cur") )
+}
+
+_carton()
+{
+    local cur prev words cword split
+    _init_completion -s || return
+
+    local i command
+    for (( i=1; i < cword; i++ )); do
+        case ${words[i]} in
+            -*) ;;
+            *) command=${words[i]}; break ;;
+        esac
+    done
+
+    if [[ -z "$command" ]]; then
+        _carton_commands "$1"
+        return
+    fi
+
+    case $prev in
+        --version|-v)
+            return
+            ;;
+        --help|-h)
+            [[ -n "$command" ]] || _carton_commands "$1"
+            return
+            ;;
+        --cpanfile)
+            if [[ $command == install ]]; then
+                _filedir
+                return
+            fi
+            ;;
+        --path)
+            if [[ $command == install ]]; then
+                _filedir -d
+                return
+            fi
+            ;;
+        --without)
+            if [[ $command == install ]]; then
+                local phases="configure build test runtime develop"
+                COMPREPLY+=( $(compgen -W '$phases' -- "$cur") )
+                return
+            fi
+            ;;
+    esac
+
+    $split && return
+
+    if [[ $cur == -* ]]; then
+        [[ $command == @(help|usage) ]] || COMPREPLY=(--help)
+        _carton_command_help "$1" $command
+    fi
+
+    case $command in
+        show|update)
+            :  # TODO modules completion
+            ;;
+    esac
+} &&
+complete -F _carton carton
+
+# ex: filetype=sh

test/t/Makefile.am

@@ -54,6 +54,7 @@ EXTRA_DIST = \
 	test_cal.py \
 	test_cancel.py \
 	test_cardctl.py \
+	test_carton.py \
 	test_cat.py \
 	test_cc.py \
 	test_ccache.py \

test/t/test_carton.py

@@ -0,0 +1,11 @@
+import pytest
+
+
+class TestCarton:
+    @pytest.mark.complete("carton ", require_cmd=True)
+    def test_commands(self, completion):
+        assert all(x in completion for x in "help install".split())
+
+    @pytest.mark.complete("carton install -", require_cmd=True)
+    def test_install_options(self, completion):
+        assert all(x in completion for x in "--cached --help".split())