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
|
#!/bin/bash
# -*- shell-script -*-
test_print_frame()
{
typeset result='bogus'
function _Dbg_msg {
msg=$1
}
msg=''
_Dbg_print_frame '->' 0 '' dbg-cmds.sh 2 ''
assertEquals "->0 in file \`dbg-cmds.sh' at line 2" "$msg"
}
typeset -r signed_int_pat='?([-+])+([0-9])'
test_frame_adjust()
{
_Dbg_errmsg() {
errmsg+=("$1")
}
_Dbg_print_location_and_command() {
:
}
_Dbg_running=1
typeset -a errmsg=()
# Test frame_adjust parameter checking
_Dbg_frame_adjust a
_Dbg_frame_adjust
assertNotEquals 0 "$?"
_Dbg_STACK_TOP=0
# Test absolute positioning - ok values (0..3)
for i in 0 1 -1 ; do
_Dbg_frame_adjust $i 0
assertEquals 0 ${#errmsg[@]}
done
# Test invalid values
for pair in '3 0' '5 -1' '4 +1' '-6 0'; do
unset errmsg; errmsg=()
typeset _Dbg_stack_pos=2
_Dbg_frame_adjust $pair
assertNotEquals 0 "$?"
assertNotEquals 0 ${#errmsg[@]}
done
}
top_srcdir=../..
. ${top_srcdir}/lib/run.sh
. ${top_srcdir}/lib/frame.sh
# load shunit2
srcdir=.
srcdir=${srcdir}/
. ${srcdir}/shunit2
|
