test(ssr): Phase 10 parity gate — characterization spec for the Client wizard
Pin the current (pre-migration) behavior of the Client wizard — the largest SSR modal: seven linear steps (info → matches → contact → bank-accounts → integrations → cash-flow → other-settings) plus the parameterized bank-account sub-editor — so the upcoming engine migration preserves it. - e2e/client-wizard.spec.ts: new dialog renders info + the 7-step timeline; edit opens prefilled with a disabled code; the bank-accounts step shows the seeded account card and the add-account affordance (the crux sub-step); and an edit-through-to-save round-trip keeps the client in the grid. - test_server.clj: give the seeded TEST client a :client/name so the row is selectable in the admin grid (its base query requires :client/name); also honor a TEST_SERVER_PORT env var so a from-disk e2e JVM can run on a free port alongside a REPL-held one (the same parallel-run need the playwright config notes). Full e2e suite green (69/69) against a fresh from-disk server. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
@@ -68,6 +68,7 @@
|
||||
(let [tx-result @(dc/transact conn
|
||||
[(assoc (test-client :db/id "client-id"
|
||||
:client/code "TEST"
|
||||
:client/name "Test Client"
|
||||
:client/locations ["DT"])
|
||||
:client/bank-accounts [(test-bank-account :db/id "bank-account-id" :bank-account/code "TEST-CHK"
|
||||
:bank-account/visible true :bank-account/name "Test Checking")])
|
||||
@@ -300,8 +301,9 @@
|
||||
(let [test-conn (create-test-db)
|
||||
tx-id (seed-test-data test-conn)]
|
||||
(reset! test-transaction-id tx-id)
|
||||
(let [server (run-jetty (test-app) {:port 3333 :join? false})]
|
||||
(println "Test server started on http://localhost:3333")
|
||||
(let [port (Integer/parseInt (or (System/getenv "TEST_SERVER_PORT") "3333"))
|
||||
server (run-jetty (test-app) {:port port :join? false})]
|
||||
(println (str "Test server started on http://localhost:" port))
|
||||
(println "Transaction entity ID:" tx-id)
|
||||
server)))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user