almost there!!!

gistfile1.hy

(import MockSSH)
(require mockssh.language)


(setv cmds 
      {"passwd" (command :name "passwd"
                         :type "prompt"
                         :output "Password: "
                         :required-input "1234"
                         :on-success ["prompt" "hostname#"]
                         :on-failure ["write" "Pass is 1234..."])
       "conf" (command :name "conf"
                       :type "output"
                       :args ["t"]
                       :on-success ["write" "Enter configuration commands, one per line. End with CNTL/Z"]
                       :on-failure ["write" "MockSSH: supported usage: conf t"])})

(mock-ssh :commands cmds)

(import MockSSH)
(require mockssh.language)


(mock-ssh :users {"root" "1234"}
          :host "127.0.0.1"
          :port 2222
          :prompt "mockssh $ "
          :commands [
  (command :name "su"
           :type "prompt"
           :output "Password: "
           :required-input "1234"
           :on-success ["prompt" "mockssh # "]
           :on-failure ["write" "Pass is 1234..."])
  (command :name "ls"
           :type "output"
           :args ["-1"]
           :on-success ["write" "bin\nREADME.txt"]
           :on-failure ["write" "MockSSH: supported usage: ls -1"])])