Changeset 383 for trunk/TestCase/SimpleTestCase/GCHandleTest.ab

Timestamp:

Nov 17, 2007, 9:34:36 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

SPrintf関数の実装

File:

• trunk/TestCase/SimpleTestCase/GCHandleTest.ab (modified) (1 diff)

trunk/TestCase/SimpleTestCase/GCHandleTest.ab

@@ -6 +6 @@
 
 Sub TestMain()
+    Imports System.Runtime.InteropServices
+
     Dim o = New Object
-    Dim gch = System.Runtime.InteropServices.GCHandle.Alloc(o)
+    Dim gch = GCHandle.Alloc(o)
     UnitTest("GCHandle.Alloc, Target", o.Equals(gch.Target))
 
-    Dim ip = System.Runtime.InteropServices.GCHandle.ToIntPtr(gch)
+    Dim ip = GCHandle.ToIntPtr(gch)
     gch = Nothing
 
-    gch = System.Runtime.InteropServices.GCHandle.FromIntPtr(ip)
+    gch = GCHandle.FromIntPtr(ip)
     UnitTest("GCHandle - IntPtr", o.Equals(gch.Target))
-
-
 End Sub