5
// Lluis Sanchez Gual <lluis@novell.com>
7
// Copyright (c) 2010 Novell, Inc (http://www.novell.com)
9
// Permission is hereby granted, free of charge, to any person obtaining a copy
10
// of this software and associated documentation files (the "Software"), to deal
11
// in the Software without restriction, including without limitation the rights
12
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
13
// copies of the Software, and to permit persons to whom the Software is
14
// furnished to do so, subject to the following conditions:
16
// The above copyright notice and this permission notice shall be included in
17
// all copies or substantial portions of the Software.
19
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
20
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
21
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
22
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
23
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
24
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
28
using Mono.Debugging.Client;
29
using NUnit.Framework;
31
namespace MonoDevelop.Debugger.Tests
33
public abstract class StackFrameTests: DebugTests
38
public StackFrameTests (string de): base (de)
42
public override void Setup ()
45
ds = Start ("TestEvaluation");
46
frame = ds.ActiveThread.Backtrace.GetFrame (0);
49
public override void TearDown ()
56
public StackFrame Frame {
61
public void VirtualProperty ()
63
EvaluationOptions ops = EvaluationOptions.DefaultOptions.Clone ();
64
ops.FlattenHierarchy = false;
66
ObjectValue val = Frame.GetExpressionValue ("c", ops);
67
Assert.IsNotNull (val);
68
val.WaitHandle.WaitOne ();
69
Assert.IsFalse (val.IsError);
70
Assert.IsFalse (val.IsUnknown);
72
// The C class does not have a Prop property
74
ObjectValue prop = val.GetChild ("Prop", ops);
77
prop = val.GetChild ("PropNoVirt1", ops);
80
prop = val.GetChild ("PropNoVirt2", ops);
83
val = val.GetChild ("base", ops);
84
Assert.IsNotNull (val);
85
val.WaitHandle.WaitOne ();
86
Assert.IsFalse (val.IsError);
87
Assert.IsFalse (val.IsUnknown);
89
// The B class has a Prop property, value is 2
91
prop = val.GetChild ("Prop", ops);
92
Assert.IsNotNull (prop);
93
Assert.AreEqual ("2", prop.Value);
95
prop = val.GetChild ("PropNoVirt1", ops);
96
Assert.IsNotNull (prop);
97
Assert.AreEqual ("2", prop.Value);
99
prop = val.GetChild ("PropNoVirt2", ops);
100
Assert.IsNotNull (prop);
101
Assert.AreEqual ("2", prop.Value);
103
val = val.GetChild ("base", ops);
104
Assert.IsNotNull (val);
105
val.WaitHandle.WaitOne ();
106
Assert.IsFalse (val.IsError);
107
Assert.IsFalse (val.IsUnknown);
109
// The A class has a Prop property, value is 1, but must return 2 becasue it is overriden
111
prop = val.GetChild ("Prop", ops);
112
Assert.IsNotNull (prop);
113
Assert.AreEqual ("2", prop.Value);
115
prop = val.GetChild ("PropNoVirt1", ops);
116
Assert.IsNotNull (prop);
117
Assert.AreEqual ("1", prop.Value);
119
prop = val.GetChild ("PropNoVirt2", ops);
120
Assert.IsNotNull (prop);
121
Assert.AreEqual ("1", prop.Value);