2017-08-04 13:01:56 +08:00
|
|
|
|
|
|
|
####################
|
|
|
|
# Test the -V flag
|
|
|
|
|
|
|
|
####################
|
|
|
|
# Testing -V
|
|
|
|
$foo: set in local scope, unexported, with 1 elements
|
|
|
|
$foo[0]: length=9 value=|local foo|
|
|
|
|
$foo: set in global scope, unexported, with 1 elements
|
|
|
|
$foo[0]: length=10 value=|global foo|
|
|
|
|
$foo: not set in universal scope
|
|
|
|
|
|
|
|
$bar: set in local scope, unexported, with 5 elements
|
|
|
|
$bar[0]: length=3 value=|one|
|
|
|
|
$bar[1]: length=8 value=|two 2|
|
|
|
|
$bar[2]: length=1 value=|\t|
|
|
|
|
$bar[3]: length=0 value=||
|
|
|
|
$bar[4]: length=1 value=|3|
|
|
|
|
$bar: set in global scope, unexported, with 5 elements
|
|
|
|
$bar[0]: length=3 value=|one|
|
|
|
|
$bar[1]: length=8 value=|two 2|
|
|
|
|
$bar[2]: length=1 value=|\t|
|
|
|
|
$bar[3]: length=0 value=||
|
|
|
|
$bar[4]: length=1 value=|3|
|
|
|
|
$bar: not set in universal scope
|
|
|
|
|
|
|
|
$baz: set in local scope, unexported, with 0 elements
|
|
|
|
$baz: set in global scope, unexported, with 0 elements
|
|
|
|
$baz: not set in universal scope
|
|
|
|
|
|
|
|
|
|
|
|
####################
|
|
|
|
# Testing -V with changed variables
|
|
|
|
$foo: set in local scope, unexported, with 1 elements
|
|
|
|
$foo[0]: length=9 value=|local foo|
|
|
|
|
$foo: set in global scope, unexported, with 1 elements
|
|
|
|
$foo[0]: length=10 value=|global foo|
|
|
|
|
$foo: not set in universal scope
|
|
|
|
|
|
|
|
$bar: set in local scope, unexported, with 5 elements
|
|
|
|
$bar[0]: length=3 value=|one|
|
|
|
|
$bar[1]: length=8 value=|two 2|
|
|
|
|
$bar[2]: length=1 value=|\t|
|
|
|
|
$bar[3]: length=0 value=||
|
|
|
|
$bar[4]: length=1 value=|3|
|
|
|
|
$bar: set in global scope, unexported, with 1 elements
|
|
|
|
$bar[0]: length=7 value=|bad bar|
|
|
|
|
$bar: not set in universal scope
|
|
|
|
|
|
|
|
$baz: set in local scope, unexported, with 0 elements
|
|
|
|
$baz: set in global scope, unexported, with 1 elements
|
|
|
|
$baz[0]: length=7 value=|bad baz|
|
|
|
|
$baz: not set in universal scope
|
|
|
|
|
2015-05-18 05:17:01 +08:00
|
|
|
Function name1 found
|
2016-11-17 14:00:33 +08:00
|
|
|
Function name2 not found as expected
|
2015-05-18 05:17:01 +08:00
|
|
|
Function name3 found
|
2016-11-17 14:00:33 +08:00
|
|
|
Function name4 not found as expected
|
2017-08-04 13:01:56 +08:00
|
|
|
|
|
|
|
####################
|
|
|
|
# Verify that functions can be copied. Tests against regression of issue #3601
|
|
|
|
|
|
|
|
####################
|
|
|
|
# Checking that the copied functions are identical other than the name
|
2016-11-29 10:04:37 +08:00
|
|
|
1c1
|
|
|
|
< function name1 --argument arg1 arg2
|
|
|
|
---
|
|
|
|
> function name1a --argument arg1 arg2
|
|
|
|
1c1
|
|
|
|
< function name3 --argument arg1 arg2
|
|
|
|
---
|
|
|
|
> function name3a --argument arg1 arg2
|