Changeset 299 for TestCase/SimpleTestCase/ActiveBasic.StringsTest.ab

Timestamp:

Aug 24, 2007, 2:10:26 AM (17 years ago)

Author:

dai

Message:

【32bitコンパイラ】
静的リンクライブラリを実装
ジェネリクスを実装
※64bitコンパイラは未実装

File:

• TestCase/SimpleTestCase/ActiveBasic.StringsTest.ab (modified) (2 diffs)

TestCase/SimpleTestCase/ActiveBasic.StringsTest.ab

@@ -1 @@
-#require <Classes/ActiveBasic/Strings/Strings.ab>
-
 '--------------------------------------------------------------------
 ' Test case of AcitveBasic.Strings Namespace
@@ -14 +12 @@
     Dim tw[1] = [2, 1] As WCHAR
     Dim tm[1] = [1, 0] As CHAR
-
 
     UnitTest("ChrCmp WC =", ChrCmp(VarPtr(w[1]), tw, 2 As SIZE_T) = 0)