Mercurial > hg > xemacs-beta

comparison tests/automated/process-tests.el @ 5533:11da5b828d10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
shell-command and shell-command-on-region API compliant with FSF 23.3.1
author Mats Lidell <mats.lidell@cag.se>
date Sun, 31 Jul 2011 01:29:09 +0200
parents
children 965a9ddc915a
comparison
equal deleted inserted replaced
5531:1b054bc2ac40 5533:11da5b828d10
1 ;; Copyright (C) 2011 Free Software Foundation, Inc.
2
3 ;; Author: Mats Lidell <matsl@xemacs.org>
4 ;; Maintainer:
5 ;; Created: 2011
6 ;; Keywords: tests
7
8 ;; This file is part of XEmacs.
9
10 ;; XEmacs is free software: you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by the
12 ;; Free Software Foundation, either version 3 of the License, or (at your
13 ;; option) any later version.
14
15 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
16 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
17 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 ;; for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
22
23 ;;; Synched up with: Not in FSF.
24
25 ;;; Commentary:
26
27 ;; Test tag support.
28 ;; See test-harness.el for instructions on how to run these tests.
29
30 (require 'test-harness)
31
32 (when (equal system-type 'linux)
33 (setenv "LANG" "C")
34
35 ;; One line output
36 (Assert (= 0 (shell-command "echo hello")))
37 (Assert (equal "hello" (message-displayed-p t)))
38 (with-current-buffer " *Echo Area*"
39 (goto-char (point-min))
40 (Assert (looking-at "hello")))
41
42 ;; Two lines. No output in echo area. (GNU resizes minibuffer but we
43 ;; haven't implemented that.)
44 (message "")
45 (Assert (= 0 (shell-command "echo -e \"foo\nbar\n\"")))
46 (with-current-buffer " *Echo Area*"
47 (Assert (= 0 (buffer-size))))
48 (with-current-buffer "*Shell Command Output*"
49 (goto-char (point-min))
50 (Assert (looking-at "foo"))):
51
52 (Assert (= 127 (shell-command "unknown_command")))
53 (Assert (= 2 (shell-command "exit 2")))
54 (Assert (equal "(Shell command failed with code 2 and no output)" (message-displayed-p t)))
55
56 ;; Output to stderr With error buffer
57 (Assert (= 0 (shell-command "echo -e \"foo\nbar\n\" 1>&2" "Output buffer" "Error buffer")))
58 (Assert (equal "(Shell command succeeded with some error output)" (message-displayed-p t)))
59 (with-current-buffer "Error buffer"
60 (goto-char (point-min))
61 (Assert (looking-at "foo")))
62 (with-current-buffer "Output buffer"
63 (Assert (= 0 (buffer-size))))
64
65 ;; Output to stderr but no error buffer
66 (Assert (= 0 (shell-command "echo -e \"foobar\nfoobar\n\" 1>&2" "Output buffer")))
67 (with-current-buffer "Output buffer"
68 (goto-char (point-min))
69 (Assert (looking-at "foobar")))
70 )