(define-test daiminkan-in-round
  :parent rounds
  (let ((game (unlistify-round *sample-round*))
        remaining
        waste-length)
    ;; Play the game a bit
    (discard game :east :|1t|)
    (draw game :south) (discard game :south :|ft|)
    (draw game :west) (discard game :west :|1t|)
    (draw game :north) (discard game :north :|ft|)
    (draw game :east) (discard game :east :|fm|)
    (draw game :south) (discard game :south :|fs|)
    (chii game :west :|ds| :|es|) (discard game :west :|1m|)
    (draw game :north) (discard game :north :|7s|)
    (draw game :east) (discard game :east :|es|)
    (draw game :south) (discard game :south :|fm|)
    (draw game :west) (discard game :west :s)
    (draw game :north) (discard game :north :C)
    (draw game :east) (discard game :east :|3s|)
    (draw game :south) (discard game :south :F)
    (draw game :west) (discard game :west :|2s|)
    (draw game :north) (discard game :north :|9m|)
    (pung game :south) (discard game :south :|E|)
    (draw game :west) (discard game :west :|4m|)
    (draw game :north) (discard game :north :F)
    (draw game :east) (discard game :east :F)
    (draw game :south) (discard game :south :|8m|)
    (draw game :west) (discard game :west :|C|)
    (draw game :north) (discard game :north :|1s|)
    (draw game :east) (discard game :east :|C|)
    (draw game :south) (discard game :south :|3s|)
    (draw game :west) (discard game :west :|N|)
    (draw game :north) (discard game :north :|W|)
    (draw game :east) (discard game :east :|1s|)
    (draw game :south) (discard game :south :|C|)
    (draw game :west) (discard game :west :|N|)
    (draw game :north) (discard game :north :|8m|)
    (draw game :east) (discard game :east :P)
    (draw game :south) (discard game :south :|1t|)
    (draw game :west) (discard game :west :|4s|)
    (setf remaining (length (tiles (talon game)))
          waste-length (length (waste game)))

    ;; Kong
    (finish (kong game :south))

    ;; Check what happens next:
    ))