File: test-machine-readable.sh

package info (click to toggle)
libguestfs 1%3A1.40.2-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 123,660 kB
  • sloc: ansic: 460,074; ml: 63,059; sh: 14,955; java: 9,512; makefile: 9,133; cs: 6,300; haskell: 5,652; python: 3,856; perl: 3,619; erlang: 2,435; xml: 1,683; ruby: 350; pascal: 255; lex: 135; yacc: 128; cpp: 10
file content (67 lines) | stat: -rwxr-xr-x 1,948 bytes parent folder | download
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#!/bin/bash -
# libguestfs
# Copyright (C) 2018 Red Hat Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

# Test the --machine-readable functionality of the module Tools_utils.
# See also: machine_readable_tests.ml

set -e
set -x

$TEST_FUNCTIONS
skip_if_skipped

t=./machine_readable_tests

tmpdir="$(mktemp -d)"
mkdir -p "$tmpdir"

# Clean up if the script is killed or exits early.
cleanup ()
{
    status=$?
    rm -rf "$tmpdir"
    exit $status
}
trap cleanup INT QUIT TERM EXIT ERR

# Program works.
$t

# No machine-readable output.
$t | grep 'machine-readable' && test $? = 1
test $($t | wc -l) -eq 1
test $($t |& wc -l) -eq 2

# Default output: stdout.
$t --machine-readable | grep 'machine-readable'
test $($t --machine-readable | wc -l) -eq 2
test $($t --machine-readable |& wc -l) -eq 3

# Output "file:".
fn="$tmpdir/file"
$t --machine-readable=file:"$fn"
test $(cat "$fn" | wc -l) -eq 1

# Output "stream:stdout".
$t --machine-readable=stream:stdout | grep 'machine-readable'
test $($t --machine-readable=stream:stdout | wc -l) -eq 2
test $($t --machine-readable=stream:stdout |& wc -l) -eq 3

# Output "stream:stderr".
$t --machine-readable=stream:stderr 2>&1 >/dev/null | grep 'machine-readable'
test $($t --machine-readable=stream:stderr 2>&1 >/dev/null | wc -l) -eq 2