5

我正在测试一些音频行为，我需要用户判断事情是通过还是失败。我想要求用户在 leiningen 测试中做出回应。但是，read-line 发生了一些事情，阻止了这种情况。

这是使用“lein new foo”创建新的 clojure 项目并编辑 foo/test/foo/core_test.clj 文件后的一些示例测试代码：

(ns foo.core-test
  (:use clojure.test
        foo.core))

(deftest a-test
  (testing "FIXME, what a fail."
    (let [_ (println "enter something")
          yn (read-line)]
      (println yn)
      (is (= yn "y")))))

这就是“lein 测试”中发生的情况

lein test foo.core-test
enter something
hi
there
what
is 
going on?
^C

只有 control-C 停止（读取行）调用。

我在 Java 1.6.0_35 Java HotSpot(TM) 64 位服务器 VM 上使用 Clojure 1.4.0 和 Leiningen 2.0.0-preview7

关于如何让 read-line 在测试中工作的任何想法？

我还应该注意，（阅读行）在我的“lein repl”中确实可以正常工作......

> lein repl
nREPL server started on port 54398
REPL-y 0.1.0-beta8
Clojure 1.4.0
    Exit: Control+D or (exit) or (quit)
Commands: (user/help)
    Docs: (doc function-name-here)
          (find-doc "part-of-name-here")
  Source: (source function-name-here)
          (user/sourcery function-name-here)
 Javadoc: (javadoc java-object-or-class-here)
Examples from clojuredocs.org: [clojuredocs or cdoc]
          (user/clojuredocs name-here)
          (user/clojuredocs "ns-here" "name-here")

user=> (println (read-line))
       hi
hi
nil
user=> (read-line)
       ho
"ho"

更新：

我要让@DaoWen 在这方面获胜。阅读链接和谷歌搜索，stdin 只是 leiningen 上的 b0rken。有了足够的跳跃，也许我可以解决这个问题，但对话框的建议似乎是最好的前进道路。在这里删除一些测试代码只是为了完整性，以防万一这有助于其他人。 

(ns foo.core-test
  (:use clojure.test
        foo.core))

(import 'javax.swing.JOptionPane)

(defn ask-yn
  "return 0 on pass, 1 on fail"
  [prompt]
  (JOptionPane/showConfirmDialog nil prompt "User Input" JOptionPane/YES_NO_OPTION))

(deftest a-test
  (testing "a-test"
    (let [yn (ask-yn "did a-test pass?")]
      (is (= yn 0)))))

(deftest b-test
  (testing "b-test"
    (let [yn (ask-yn "did b-test pass?")]
      (is (= yn 0)))))
4

1 回答 1

2

我知道这不能解决你的read-line问题，但也许你可以通过使用 aJOptionPane来解决它。如果我是聆听多个声音文件的用户，我宁愿单击是或否，而不必键入两者中的一个。

(import 'javax.swing.JOptionPane)
(JOptionPane/showConfirmDialog nil "Did the test pass?" "User Input" JOptionPane/YES_NO_OPTION)

更新：

我以为我以前见过这样的东西：

为什么使用 lein run 敲击 ENTER（看起来像挂起）后读取行不返回，但与 lein repl 一起使用？

看起来您应该尝试运行lein trampoline test而不是仅仅lein test为了解决stdin问题。

于 2012-09-08T20:35:10.403 回答