Just getting started with testing. Could someone please give me some pointers on this simple test:

(defn deal-card-to-player*
  "Take a card from the deck and add it to the player's hand"
  [state-map deck-id player-id card-ident]
  (-> state-map
    (give-card-to-player* ,,, player-id card-ident)
    (take-from-deck* ,,, deck-id card-ident)))

(specification "Mutation Helpers"
  (component "High level - Abstract actions like dealing, which act on multiple things"
    (behavior "Deals a card from the deck to the player"
      (when-mocking
        (give-card-to-player* state-map player-id card-ident)
        =1x=> (do
                (assertions
                  state-map => {:x 41}
                  player-id => 1
                  card-ident => [:card/id "h2"])
                {:x 42})
        (take-from-deck* state-map deck-id card-ident)
        =1x=> (do
                (assertions
                  state-map => {:x 42}
                  deck-id => 1
                  card-ident => [:card/id "h2"])
                {:x 43})
        (assertions
          "Calls each mutation helper once"
          (deal-card-to-player*
            ; mocked state-map, values don't matter, just asserting calls and
            ; transformations in the stabby macro
            {:x 41}
            1
            1
            [:card/id "h2"]) => {:x 43})))))