Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; ssh2/tests.lisp --- libssh2 tests

2

3

;;; Code:

4

(defpackage :ssh2/tests

5

(:use :cl :std :rt :ssh2 :sb-alien))

6

7

(in-package :ssh2/tests)

8

9

(defsuite :ssh2)

10

(in-suite :ssh2)

11

12

(load-ssh2)

13

14

(deftest sanity ()

15

(iszero (libssh2-init 0))

16

(isnt (libssh2-exit)))

17

18

(deftest session-init ()

19

(with-alien ((arr (* c-string)))

20

(let ((sesh (libssh2-session-init-ex nil nil nil nil)))

21

(libssh2-session-supported-algs sesh 0 (addr arr))

22

(is (find "curve25519-sha256" (c-strings-to-string-list (print arr)) :test 'string=)))))