FilesExpand file tree

 master

/

process.clj

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

28 lines (23 loc) · 1.13 KB

 master

/

process.clj

Copy path

Top

File metadata and controls

• Code
• Blame

28 lines (23 loc) · 1.13 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

; Copyright (c) Rich Hickey. All rights reserved.

; The use and distribution terms for this software are covered by the

; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)

; which can be found in the file epl-v10.html at the root of this distribution.

; By using this software in any fashion, you are agreeing to be bound by

; the terms of this license.

; You must not remove this notice, or any other, from this software.

(ns clojure.test-clojure.java.process

(:require

[clojure.test :refer :all]

[clojure.java.process :as p]

[clojure.string :as str]))

(deftest test-stderr-redirect

;; capture to stdout and return string

(is (not (str/blank? (p/exec "bash" "-c" "ls"))))

;; print to stderr, capture nil

(is (str/blank? (p/exec "bash" "-c" "ls >&2")))

;; redirect, then capture to string

(is (not (str/blank? (p/exec {:err :stdout} "bash" "-c" "ls >&2")))))

(deftest test-process-deref

(is (zero? @(p/exit-ref (p/start "sleep" "1"))))

(is (zero? (deref (p/exit-ref (p/start "sleep" "1")) 2500 :timeout)))

(is (= :timeout (deref (p/exit-ref (p/start "sleep" "1")) 1 :timeout))))