13 lines
391 B
Common Lisp
13 lines
391 B
Common Lisp
(defpackage k8splayground/tests/main
|
|
(:use :cl
|
|
:k8splayground
|
|
:rove))
|
|
(in-package :k8splayground/tests/main)
|
|
|
|
;; NOTE: To run this test file, execute `(asdf:test-system :k8splayground)' in your Lisp.
|
|
|
|
(deftest make-k8s-cluster
|
|
(testing "should create a k8s-cluster"
|
|
(let ((cluster (k8smake-k8s-cluster)))
|
|
(ok (= "test" (k8splayground:cluster-name cluster))))))
|