Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; cli.lisp --- Pod CLI

2

3

;; Container-tools Lisp CLI

4

5

;;; Code:

6

(in-package :pod)

7

8

(defcmd pod-info-cmd ()

9

(unless (probe-file (podman-local-user-socket))

10

(start-podman-service (podman-local-user-socket)))

11

(with-libpod-client (c (make-instance 'pod:libpod-client))

12

(log:info! "~A" (libpod-request c "_ping" :get))

13

(inspect (libpod-request-json c "info"))))

14

15

(define-cli *pod-cli*

16

:name "pod"

17

:package :pod

18

:help t

19

:description "container tools/libpod API client"

20

:thunk pod-info-cmd)