Changeset 230

Timestamp:

May 5, 2007, 10:28:31 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

GCHandleTestの追加、全てのテスト処理を関数に入れる

Files:

• Include/Classes/System/Runtime/InteropServices/GCHandle.ab (modified) (1 diff)
• TestCase/SimpleTestCase/GCHandleTest.ab (added)
• TestCase/SimpleTestCase/ObjectTest.ab (modified) (2 diffs)
• TestCase/SimpleTestCase/SimpleTestCase.idx (modified) (1 diff)
• TestCase/SimpleTestCase/SimpleTestCase.pj (modified) (2 diffs)
• TestCase/SimpleTestCase/StringTest.ab (modified) (2 diffs)

Include/Classes/System/Runtime/InteropServices/GCHandle.ab

@@ -12 +12 @@
     Sub Target(obj As Object)
         allocated.Add(obj)
-        handle = GetPointer(VarPtr(obj))
+        handle = VarPtr(obj) 'ObjPtr
     End Sub
 

TestCase/SimpleTestCase/ObjectTest.ab

@@ -5 +5 @@
 Namespace ObjectTest
 
+Sub TestMain()
     Dim obj1 As Object
     Dim obj2 As Object
@@ -21 +22 @@
 
     UnitTest( "Object.GetType", obj1.GetType().Name = "Object" )
+End Sub
 
 End Namespace
+
+ObjectTest.TestMain()

TestCase/SimpleTestCase/SimpleTestCase.idx

@@ -8 +8 @@
 #include "ObjectTest.ab"
 #include "StringTest.ab"
-
-'リソースファイル
-#include "resource.ab"
-#resource "SimpleTestCase.rc"
+#include "GCHandleTest.ab"

TestCase/SimpleTestCase/SimpleTestCase.pj

@@ -23 +23 @@
 #DEBUG_EXE_PATH=
 
-#RESOURCE=SimpleTestCase.rc
+#RESOURCE=0
 
 #SOURCE
@@ -29 +29 @@
 ObjectTest.ab
 StringTest.ab
+GCHandleTest.ab

TestCase/SimpleTestCase/StringTest.ab

@@ -5 +5 @@
 Namespace StringTest
 
+Sub TestMain()
     Dim s1 = Nothing As String
 
@@ -61 +62 @@
     ' まだまだ追加求む
 
+End Sub
+
 End Namespace
+
+StringTest.TestMain()