source: trunk/TestCase/SimpleTestCase/GCHandleTest.ab@ 457

Last change on this file since 457 was 383, checked in by イグトランス (egtra), 17 years ago

SPrintf関数の実装

File size: 563 bytes
Line 
1'--------------------------------------------------------------------
2' Test case of GCHandle Class
3'--------------------------------------------------------------------
4
5Namespace GCHandleTest
6
7Sub TestMain()
8 Imports System.Runtime.InteropServices
9
10 Dim o = New Object
11 Dim gch = GCHandle.Alloc(o)
12 UnitTest("GCHandle.Alloc, Target", o.Equals(gch.Target))
13
14 Dim ip = GCHandle.ToIntPtr(gch)
15 gch = Nothing
16
17 gch = GCHandle.FromIntPtr(ip)
18 UnitTest("GCHandle - IntPtr", o.Equals(gch.Target))
19End Sub
20
21End Namespace
22
23GCHandleTest.TestMain()
Note: See TracBrowser for help on using the repository browser.