Changeset 283 for TestCase/SimpleTestCase/GCHandleTest.ab

Timestamp:

Jul 3, 2007, 3:57:53 AM (17 years ago)

Author:

dai

Message:

GCHandleテストケースの名前空間記述モレを修正

File:

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

TestCase/SimpleTestCase/GCHandleTest.ab

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