marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Update packages path in test packages

Browse source
This commit is contained in:
Marcus Kammer 2024-04-21 11:40:50 +02:00
parent 47768661d1
commit ac5af71408
Signed by: marcuskammer
GPG key ID: C374817BE285268F
12 changed files with 36 additions and 56 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/accordion.lisp
View file

@ -1,10 +1,10 @@
(defpackage dev.metalisp.sbt/tests/component/accordion (defpackage dev.metalisp.sbt/tests/accordion
(:use (:use
:cl :cl
:dev.metalisp.sbt/component/accordion :dev.metalisp.sbt/accordion
:rove)) :rove))
(in-package :dev.metalisp.sbt/tests/component/accordion) (in-package :dev.metalisp.sbt/tests/accordion)
(deftest test-accordion-correct-classes (deftest test-accordion-correct-classes
(let ((result (with-output-to-string (spinneret:*html*) (accordion (:id "accordionExample" :flush t) "Accordion Item #1" "Accordion Content #1" "Accordion Item #2" "Accordion Content #2" "Accordion Item #3" "Accordion Content #3")))) (let ((result (with-output-to-string (spinneret:*html*) (accordion (:id "accordionExample" :flush t) "Accordion Item #1" "Accordion Content #1" "Accordion Item #2" "Accordion Content #2" "Accordion Item #3" "Accordion Content #3"))))

6
tests/alert.lisp
View file

@ -1,10 +1,10 @@
(defpackage dev.metalisp.sbt/tests/component/alert (defpackage dev.metalisp.sbt/tests/alert
(:use (:use
:cl :cl
:dev.metalisp.sbt/component/alert :dev.metalisp.sbt/alert
:rove)) :rove))
(in-package :dev.metalisp.sbt/tests/component/alert) (in-package :dev.metalisp.sbt/tests/alert)
(deftest test-btn-macro (deftest test-btn-macro
(testing "Testing btn macro" (testing "Testing btn macro"

6
tests/badge.lisp
View file

@ -1,10 +1,10 @@
(defpackage dev.metalisp.sbt/tests/component/badge (defpackage dev.metalisp.sbt/tests/badge
(:use (:use
:cl :cl
:dev.metalisp.sbt/component/badge :dev.metalisp.sbt/badge
:rove)) :rove))
(in-package :dev.metalisp.sbt/tests/component/badge) (in-package :dev.metalisp.sbt/tests/badge)
(deftest test-badge-macro (deftest test-badge-macro
(testing "Testing badge macro" (testing "Testing badge macro"

6
tests/button.lisp
View file

@ -1,10 +1,10 @@
(defpackage dev.metalisp.sbt/tests/component/btn (defpackage dev.metalisp.sbt/tests/btn
(:use (:use
:cl :cl
:dev.metalisp.sbt/component/btn :dev.metalisp.sbt/btn
:rove)) :rove))
(in-package :dev.metalisp.sbt/tests/component/btn) (in-package :dev.metalisp.sbt/tests/btn)
(deftest test-btn-macro (deftest test-btn-macro
(testing "Testing btn macro" (testing "Testing btn macro"

6
tests/card.lisp
View file

@ -1,10 +1,10 @@
(defpackage dev.metalisp.sbt/tests/component/card (defpackage dev.metalisp.sbt/tests/card
(:use (:use
:cl :cl
:dev.metalisp.sbt/component/card :dev.metalisp.sbt/card
:rove)) :rove))
(in-package :dev.metalisp.sbt/tests/component/card) (in-package :dev.metalisp.sbt/tests/card)
(deftest test-title (deftest test-title
(let ((result (spinneret:with-html-string (title "My Title")))) (let ((result (spinneret:with-html-string (title "My Title"))))

6
tests/dropdown.lisp
View file

@ -1,10 +1,10 @@
(defpackage dev.metalisp.sbt/tests/component/dropdown (defpackage dev.metalisp.sbt/tests/dropdown
(:use (:use
:cl :cl
:dev.metalisp.sbt/component/dropdown :dev.metalisp.sbt/dropdown
:rove)) :rove))
(in-package :dev.metalisp.sbt/tests/component/dropdown) (in-package :dev.metalisp.sbt/tests/dropdown)
(deftest test-menu (deftest test-menu
(let ((result (spinneret:with-html-string (menu (item "Item 1") (item "Item 2"))))) (let ((result (spinneret:with-html-string (menu (item "Item 1") (item "Item 2")))))

6
tests/form.lisp
View file

@ -1,9 +1,9 @@
(defpackage dev.metalisp.sbt/tests/component/form (defpackage dev.metalisp.sbt/tests/form
(:use :cl (:use :cl
:dev.metalisp.sbt/component/form :dev.metalisp.sbt/form
:rove)) :rove))
(in-package :dev.metalisp.sbt/tests/component/form) (in-package :dev.metalisp.sbt/tests/form)
(deftest test-ctrl-number (deftest test-ctrl-number
(let ((result (spinneret:with-html-string (ctrl "number" "testform" "Birth Date")))) (let ((result (spinneret:with-html-string (ctrl "number" "testform" "Birth Date"))))

17
tests/grid.lisp
View file

@ -1,19 +1,10 @@
(defpackage dev.metalisp.sbt/tests/layout/grid (defpackage dev.metalisp.sbt/tests/grid
(:use (:use
:cl :cl
:dev.metalisp.sbt :dev.metalisp.sbt/grid
:rove) :rove))
(:import-from
:dev.metalisp.sbt/layout/grid
:make-con-class
:make-row-class
:make-col-class
:breakpoint-class
:con
:row
:col))
(in-package :dev.metalisp.sbt/tests/layout/grid) (in-package :dev.metalisp.sbt/tests/grid)
(deftest test-make-con-class-no-value (deftest test-make-con-class-no-value
(testing "Generates an empty string when value is NIL" (testing "Generates an empty string when value is NIL"

6
tests/list-group.lisp
View file

@ -1,10 +1,10 @@
(defpackage dev.metalisp.sbt/tests/component/list-group (defpackage dev.metalisp.sbt/tests/list-group
(:use (:use
:cl :cl
:dev.metalisp.sbt/component/list-group :dev.metalisp.sbt/list-group
:rove)) :rove))
(in-package :dev.metalisp.sbt/tests/component/list-group) (in-package :dev.metalisp.sbt/tests/list-group)
(deftest test-item (deftest test-item
(let ((result (spinneret:with-html-string (item "Item 1")))) (let ((result (spinneret:with-html-string (item "Item 1"))))

6
tests/nav-tab.lisp
View file

@ -1,10 +1,10 @@
(defpackage dev.metalisp.sbt/tests/component/nav (defpackage dev.metalisp.sbt/tests/nav
(:use (:use
:cl :cl
:dev.metalisp.sbt/component/nav :dev.metalisp.sbt/nav
:rove)) :rove))
(in-package :dev.metalisp.sbt/tests/component/nav) (in-package :dev.metalisp.sbt/tests/nav)
(deftest test-item (deftest test-item
(let ((result (spinneret:with-html-string (item "foo" t "#")))) (let ((result (spinneret:with-html-string (item "foo" t "#"))))

6
tests/navbar.lisp
View file

@ -1,10 +1,10 @@
(defpackage dev.metalisp.sbt/tests/component/navbar (defpackage dev.metalisp.sbt/tests/navbar
(:use (:use
:cl :cl
:dev.metalisp.sbt/component/navbar :dev.metalisp.sbt/navbar
:rove)) :rove))
(in-package :dev.metalisp.sbt/tests/component/navbar) (in-package :dev.metalisp.sbt/tests/navbar)
(deftest test-brand-logo (deftest test-brand-logo
(let ((result (spinneret:with-html-string (brand-logo (:src "logo.png" :alt "My Logo" :width 50 :height 50 :classes "logo-class"))))) (let ((result (spinneret:with-html-string (brand-logo (:src "logo.png" :alt "My Logo" :width 50 :height 50 :classes "logo-class")))))

15
tests/questionnaire.lisp
View file

@ -1,19 +1,8 @@
(defpackage dev.metalisp.sbt/tests/questionnaire (defpackage dev.metalisp.sbt/tests/questionnaire
(:use (:use
:cl :cl
:dev.metalisp.sbt :dev.metalisp.sbt/questionnaire
:rove) :rove))
(:import-from
:dev.metalisp.sbt/pattern/questionnaire
:choicep
:choicesp
:questionp
:choice
:question
:resolve-input-type
:resolve-input-and-choice
:extract-question-components
:questionnaire))
(in-package :dev.metalisp.sbt/tests/questionnaire) (in-package :dev.metalisp.sbt/tests/questionnaire)