Changeset 283
- Timestamp:
- Jul 3, 2007, 3:57:53 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TestCase/SimpleTestCase/GCHandleTest.ab
r230 r283 9 9 Sub TestMain() 10 10 Dim o = New Object 11 Dim gch = GCHandle.Alloc(o)11 Dim gch = System.Runtime.InteropServices.GCHandle.Alloc(o) 12 12 UnitTest("GCHandle.Alloc, Target", o.Equals(gch.Target)) 13 13 14 Dim ip = GCHandle.ToIntPtr(gch)14 Dim ip = System.Runtime.InteropServices.GCHandle.ToIntPtr(gch) 15 15 gch = Nothing 16 16 17 gch = GCHandle.FromIntPtr(ip)17 gch = System.Runtime.InteropServices.GCHandle.FromIntPtr(ip) 18 18 UnitTest("GCHandle - IntPtr", o.Equals(gch.Target)) 19 19
Note:
See TracChangeset
for help on using the changeset viewer.