helm-ctest.el

(defun helm-ctest-candidates()
  (let* ((ctest-output (shell-command-to-string "cd ~/projects/romanesco/build && ctest -N"))
         (tests (-butlast (-drop 1 (s-split "\n" ctest-output)))))
    (-map (lambda(test-line)
            (s-trim
             (s-chop-prefix "Test"
                            (s-trim test-line)))) tests)))

(defun helm-ctest-build-command(tests)
  (concat "ctest -I "
          (s-join "," (-map (lambda(test-num)
                              (format "%d,%d," test-num test-num)) tests))))

(setq some-helm-source
      `((name . "Tests")
        (candidates . ,(helm-ctest-candidates))
        (action . (("run tests" .
                    (lambda(candidate)
                      (let ((compile-command (format "cd ~/projects/romanesco/build && %s" (helm-ctest-build-command
                                                                                            (-map 'string-to-number
                                                                                                  (-map (lambda(candidate-str)
                                                                                                          (car (cdr (s-match "#\\([[:digit:]]+\\)" candidate-str))))
                                                                                                        (helm-marked-candidates)))))))
                        (compile compile-command))))))))


(helm :sources '(some-helm-source))