diff options
Diffstat (limited to 'src/shflags_test_private.sh')
-rwxr-xr-x | src/shflags_test_private.sh | 247 |
1 files changed, 0 insertions, 247 deletions
diff --git a/src/shflags_test_private.sh b/src/shflags_test_private.sh deleted file mode 100755 index c252d42..0000000 --- a/src/shflags_test_private.sh +++ /dev/null @@ -1,247 +0,0 @@ -#! /bin/sh -# vim:et:ft=sh:sts=2:sw=2 -# -# shFlags unit test for the internal functions - -# load test helpers -. ./shflags_test_helpers - -#------------------------------------------------------------------------------ -# suite tests -# - -testColumns() -{ - cols=`_flags_columns` - value=`expr "${cols}" : '\([0-9]*\)'` - assertNotNull "unexpected screen width (${cols})" "${value}" -} - -testGenOptStr() -{ - _testGenOptStr '' '' - - DEFINE_boolean bool false 'boolean value' b - _testGenOptStr 'b' 'bool' - - DEFINE_float float 0.0 'float value' f - _testGenOptStr 'bf:' 'bool,float:' - - DEFINE_integer int 0 'integer value' i - _testGenOptStr 'bf:i:' 'bool,float:,int:' - - DEFINE_string str 0 'string value' s - _testGenOptStr 'bf:i:s:' 'bool,float:,int:,str:' - - DEFINE_boolean help false 'show help' h - _testGenOptStr 'bf:i:s:h' 'bool,float:,int:,str:,help' -} - -_testGenOptStr() -{ - short=$1 - long=$2 - - result=`_flags_genOptStr ${__FLAGS_OPTSTR_SHORT}` - assertTrue 'short option string generation failed' $? - assertEquals "${short}" "${result}" - - result=`_flags_genOptStr ${__FLAGS_OPTSTR_LONG}` - assertTrue 'long option string generation failed' $? - assertEquals "${long}" "${result}" -} - -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 'missing flag info variable' -} - -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' $? -} - -testValidBool() -{ - # valid values - for value in ${TH_BOOL_VALID}; do - _flags_validBool "${value}" - assertTrue "valid value (${value}) did not validate" $? - done - - # invalid values - for value in ${TH_BOOL_INVALID}; do - _flags_validBool "${value}" - assertFalse "invalid value (${value}) validated" $? - done -} - -_testValidFloat() -{ - # valid values - for value in ${TH_INT_VALID} ${TH_FLOAT_VALID}; do - _flags_validFloat "${value}" - assertTrue "valid value (${value}) did not validate" $? - done - - # invalid values - for value in ${TH_FLOAT_INVALID}; do - _flags_validFloat "${value}" - assertFalse "invalid value (${value}) validated" $? - done -} - -testValidFloatBuiltin() -{ - _flags_useBuiltin || startSkipping - _testValidFloat -} - -testValidFloatExpr() -{ - ( - _flags_useBuiltin() { return ${FLAGS_FALSE}; } - _testValidFloat - ) -} - -_testValidInt() -{ - # valid values - for value in ${TH_INT_VALID}; do - _flags_validInt "${value}" - assertTrue "valid value (${value}) did not validate" $? - done - - # invalid values - for value in ${TH_INT_INVALID}; do - _flags_validInt "${value}" - assertFalse "invalid value (${value}) should not validate" $? - done -} - -testValidIntBuiltin() -{ - _flags_useBuiltin || startSkipping - _testValidInt -} - -testValidIntExpr() -{ - ( - _flags_useBuiltin() { return ${FLAGS_FALSE}; } - _testValidInt - ) -} - -_testMath() -{ - result=`_flags_math 1` - assertTrue '1 failed' $? - assertEquals '1' 1 ${result} - - result=`_flags_math '1 + 2'` - assertTrue '1+2 failed' $? - assertEquals '1+2' 3 ${result} - - result=`_flags_math '1 + 2 + 3'` - assertTrue '1+2+3 failed' $? - assertEquals '1+2+3' 6 ${result} - - result=`_flags_math` - assertFalse 'missing math succeeded' $? -} - -testMathBuiltin() -{ - _flags_useBuiltin || startSkipping - _testMath -} - -testMathExpr() -{ - ( - _flags_useBuiltin() { return ${FLAGS_FALSE}; } - _testMath - ) -} - -_testStrlen() -{ - len=`_flags_strlen` - assertTrue 'missing argument failed' $? - assertEquals 'missing argument' 0 ${len} - - len=`_flags_strlen ''` - assertTrue 'empty argument failed' $? - assertEquals 'empty argument' 0 ${len} - - len=`_flags_strlen abc123` - assertTrue 'single-word failed' $? - assertEquals 'single-word' 6 ${len} - - len=`_flags_strlen 'This is a test'` - assertTrue 'multi-word failed' $? - assertEquals 'multi-word' 14 ${len} -} - -testStrlenBuiltin() -{ - _flags_useBuiltin || startSkipping - _testStrlen -} - -testStrlenExpr() -{ - ( - _flags_useBuiltin() { return ${FLAGS_FALSE}; } - _testStrlen - ) -} - -#------------------------------------------------------------------------------ -# suite functions -# - -oneTimeSetUp() -{ - th_oneTimeSetUp - - _flags_useBuiltin || \ - th_warn 'Shell built-ins not supported. Some tests will be skipped.' -} - -tearDown() -{ - flags_reset -} - -# load and run shUnit2 -[ -n "${ZSH_VERSION:-}" ] && SHUNIT_PARENT=$0 -. ${TH_SHUNIT} |