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
:cl
:dev.metalisp.sbt/component/accordion
:dev.metalisp.sbt/accordion
:rove))
(in-package :dev.metalisp.sbt/tests/component/accordion)
(in-package :dev.metalisp.sbt/tests/accordion)
(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"))))

6
tests/alert.lisp
View file

@ -1,10 +1,10 @@
(defpackage dev.metalisp.sbt/tests/component/alert
(defpackage dev.metalisp.sbt/tests/alert
(:use
:cl
:dev.metalisp.sbt/component/alert
:dev.metalisp.sbt/alert
:rove))
(in-package :dev.metalisp.sbt/tests/component/alert)
(in-package :dev.metalisp.sbt/tests/alert)
(deftest test-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
:cl
:dev.metalisp.sbt/component/badge
:dev.metalisp.sbt/badge
:rove))
(in-package :dev.metalisp.sbt/tests/component/badge)
(in-package :dev.metalisp.sbt/tests/badge)
(deftest test-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
:cl
:dev.metalisp.sbt/component/btn
:dev.metalisp.sbt/btn
:rove))
(in-package :dev.metalisp.sbt/tests/component/btn)
(in-package :dev.metalisp.sbt/tests/btn)
(deftest test-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
:cl
:dev.metalisp.sbt/component/card
:dev.metalisp.sbt/card
:rove))
(in-package :dev.metalisp.sbt/tests/component/card)
(in-package :dev.metalisp.sbt/tests/card)
(deftest test-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
:cl
:dev.metalisp.sbt/component/dropdown
:dev.metalisp.sbt/dropdown
:rove))
(in-package :dev.metalisp.sbt/tests/component/dropdown)
(in-package :dev.metalisp.sbt/tests/dropdown)
(deftest test-menu
(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
:dev.metalisp.sbt/component/form
:dev.metalisp.sbt/form
:rove))
(in-package :dev.metalisp.sbt/tests/component/form)
(in-package :dev.metalisp.sbt/tests/form)
(deftest test-ctrl-number
(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
:cl
:dev.metalisp.sbt
:rove)
(:import-from
:dev.metalisp.sbt/layout/grid
:make-con-class
:make-row-class
:make-col-class
:breakpoint-class
:con
:row
:col))
:dev.metalisp.sbt/grid
:rove))
(in-package :dev.metalisp.sbt/tests/layout/grid)
(in-package :dev.metalisp.sbt/tests/grid)
(deftest test-make-con-class-no-value
(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
:cl
:dev.metalisp.sbt/component/list-group
:dev.metalisp.sbt/list-group
:rove))
(in-package :dev.metalisp.sbt/tests/component/list-group)
(in-package :dev.metalisp.sbt/tests/list-group)
(deftest test-item
(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
:cl
:dev.metalisp.sbt/component/nav
:dev.metalisp.sbt/nav
:rove))
(in-package :dev.metalisp.sbt/tests/component/nav)
(in-package :dev.metalisp.sbt/tests/nav)
(deftest test-item
(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
:cl
:dev.metalisp.sbt/component/navbar
:dev.metalisp.sbt/navbar
:rove))
(in-package :dev.metalisp.sbt/tests/component/navbar)
(in-package :dev.metalisp.sbt/tests/navbar)
(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")))))

15
tests/questionnaire.lisp
View file

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