diff options
| author | Aaron Bedra and Stuart Halloway <pair@thinkrelevance.com> | 2011-02-22 21:28:53 -0500 |
|---|---|---|
| committer | Stuart Halloway <stu@Stuart-Halloways-MacBook-Air.local> | 2011-02-25 14:33:14 -0500 |
| commit | cc28586e490b5aebc6633c6060397a3369094e5e (patch) | |
| tree | 2682f2bd140b8ac1a104c2e10030c1c19c247ab2 | |
| parent | 9c0728f269f32531dc3b8b6bbe84631e46da5f7a (diff) | |
#715. Eliminate unnecessary fragile test.
Signed-off-by: Stuart Halloway <stu@Stuart-Halloways-MacBook-Air.local>
| -rw-r--r-- | test/clojure/test_clojure/pprint/test_pretty.clj | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/test/clojure/test_clojure/pprint/test_pretty.clj b/test/clojure/test_clojure/pprint/test_pretty.clj index fe9d4f73..fb3bd344 100644 --- a/test/clojure/test_clojure/pprint/test_pretty.clj +++ b/test/clojure/test_clojure/pprint/test_pretty.clj @@ -209,13 +209,6 @@ Usage: *hello* (deliver promise-filled '(first second third)) (def promise-unfilled (promise)) (def basic-agent (agent '(first second third))) -(defn failed-agent - "must be a fn because you cannot await agents during load" - [] - (let [a (agent "foo")] - (send a +) - (try (await-for 100 a) (catch RuntimeException re)) - a)) (def basic-atom (atom '(first second third))) (def basic-ref (ref '(first second third))) (def delay-forced (delay '(first second third))) @@ -230,7 +223,6 @@ Usage: *hello* ;; This hangs currently, cause we can't figure out whether a promise is filled ;;(tst-pprint 20 promise-unfilled) #"#<Promise@[0-9a-f]+: \r?\n :pending>" (tst-pprint 20 basic-agent) #"#<Agent@[0-9a-f]+: \r?\n \(first\r?\n second\r?\n third\)>" - #_(tst-pprint 20 (failed-agent)) #_#"#<Agent@[0-9a-f]+ FAILED: \r?\n \"foo\">" (tst-pprint 20 basic-atom) #"#<Atom@[0-9a-f]+: \r?\n \(first\r?\n second\r?\n third\r?\)>" (tst-pprint 20 basic-ref) #"#<Ref@[0-9a-f]+: \r?\n \(first\r?\n second\r?\n third\)>" (tst-pprint 20 delay-forced) #"#<Delay@[0-9a-f]+: \r?\n \(first\r?\n second\r?\n third\)>" |