blob: 9f8d4ce5fc9ccbd7ffe8fbc52dfc1419fdd3d21c (
plain)
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#! /bin/sh
# vim:et:ft=sh:sts=2:sw=2
#
# Copyright 2008 Kate Ward. All Rights Reserved.
# Released under the LGPL (GNU Lesser General Public License)
#
# Author: kate.ward@forestent.com (Kate Ward)
#
# shFlags unit test for the internal functions
# load test helpers
. ./shflags_test_helpers
# set shwordsplit for zsh
[ -n "${ZSH_VERSION:-}" ] && setopt shwordsplit
#------------------------------------------------------------------------------
# suite tests
#
testGetFlagInfo()
{
__flags_blah_foobar='1234'
rslt=`_flags_getFlagInfo 'blah' 'foobar'`
assertTrue 'request for valid flag info failed' $?
assertEquals 'invalid flag info returned' "${__flags_blah_foobar}" "${rslt}"
rslt=`_flags_getFlagInfo 'blah' 'hubbabubba' >${stdoutF} 2>${stderrF}`
assertEquals 'invalid flag did not result in an error' ${FLAGS_ERROR} $?
assertErrorMsg 'invalid flag'
}
testItemInList()
{
list='this is a test'
_flags_itemInList 'is' ${list}
assertTrue 'unable to find leading string (this)' $?
_flags_itemInList 'is' ${list}
assertTrue 'unable to find string (is)' $?
_flags_itemInList 'is' ${list}
assertTrue 'unable to find trailing string (test)' $?
_flags_itemInList 'abc' ${list}
assertFalse 'found nonexistant string (abc)' $?
_flags_itemInList '' ${list}
assertFalse 'empty strings should not match' $?
_flags_itemInList 'blah' ''
assertFalse 'empty lists should not match' $?
}
testValidateBoolean() {
# valid values
for value in ${TH_BOOL_VALID}; do
_flags_validateBoolean "${value}"
assertTrue "valid value (${value}) did not validate" $?
done
# invalid values
for value in ${TH_BOOL_INVALID}; do
_flags_validateBoolean "${value}"
assertFalse "invalid value (${value}) validated" $?
done
}
testValidateFloat() {
# valid values
for value in ${TH_INT_VALID} ${TH_FLOAT_VALID}; do
_flags_validateFloat "${value}"
assertTrue "valid value (${value}) did not validate" $?
done
# invalid values
for value in ${TH_FLOAT_INVALID}; do
_flags_validateFloat "${value}"
assertFalse "invalid value (${value}) validated" $?
done
}
testValidateInteger() {
# valid values
for value in ${TH_INT_VALID}; do
_flags_validateInteger "${value}"
assertTrue "valid value (${value}) did not validate" $?
done
# invalid values
for value in ${TH_INT_INVALID}; do
_flags_validateInteger "${value}"
assertFalse "invalid value (${value}) validated" $?
done
}
#------------------------------------------------------------------------------
# suite functions
#
oneTimeSetUp()
{
# load flags
[ -n "${ZSH_VERSION:-}" ] && FLAGS_PARENT=$0
. ${TH_SHFLAGS}
tmpDir="${__shunit_tmpDir}/output"
mkdir "${tmpDir}"
stdoutF="${tmpDir}/stdout"
stderrF="${tmpDir}/stderr"
}
setUp()
{
flags_reset
}
# load and run shUnit2
[ -n "${ZSH_VERSION:-}" ] && SHUNIT_PARENT=$0
. ${TH_SHUNIT}
|