Index: TestCase/SimpleTestCase/ActiveBasic.StringsTest.ab
===================================================================
--- TestCase/SimpleTestCase/ActiveBasic.StringsTest.ab	(revision 272)
+++ TestCase/SimpleTestCase/ActiveBasic.StringsTest.ab	(revision 272)
@@ -0,0 +1,49 @@
+#require <Classes/ActiveBasic/Strings/Strings.ab>
+
+'--------------------------------------------------------------------
+' Test case of AcitveBasic.Strings Namespace
+'--------------------------------------------------------------------
+
+Imports ActiveBasic.Strings
+
+Namespace ActiveBasic_StringsTest
+
+Sub TestMain()
+	Dim w[3] = [3, 2, 1, 0] As WCHAR
+	Dim m[3] = [3, 2, 1, 0] As CHAR
+	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)
+	UnitTest("ChrCmp MB =", ChrCmp(VarPtr(m[2]), tm, 2 As SIZE_T) = 0)
+	UnitTest("ChrCmp WC >", ChrCmp(VarPtr(w[0]), tw, 2 As SIZE_T) > 0)
+	UnitTest("ChrCmp MB >", ChrCmp(VarPtr(m[0]), tm, 2 As SIZE_T) > 0)
+	UnitTest("ChrCmp WC <", ChrCmp(VarPtr(w[2]), tw, 2 As SIZE_T) < 0)
+	UnitTest("ChrCmp MB <", ChrCmp(VarPtr(m[3]), tm, 1 As SIZE_T) < 0)
+
+	Dim w2[3] As WCHAR
+	Dim m2[3] As CHAR
+	ChrCopy(w2, w, 4 As SIZE_T)
+	ChrCopy(m2, m, 4 As SIZE_T)
+	UnitTest("ChrCopy WC", ChrCmp(w, w2, 4 As SIZE_T) = 0)
+	UnitTest("ChrCopy MB", ChrCmp(m, m2, 4 As SIZE_T) = 0)
+
+	Dim wf[3] = [10, 10, 10, 10] As WCHAR
+	Dim mf[3] = [77, 77, 77, 77] As CHAR
+	ChrFill(w2, 4 As SIZE_T, 10 As WCHAR)
+	ChrFill(m2, 4 As SIZE_T, 77 As CHAR)
+	UnitTest("ChrFill WC", ChrCmp(w2, wf, 4 As SIZE_T) = 0)
+	UnitTest("ChrFill MB", ChrCmp(m2, mf, 4 As SIZE_T) = 0)
+
+	UnitTest("ChrFind WC c", ChrFind(w, 4, 1 As WCHAR) = 2)
+	UnitTest("ChrFind MB c", ChrFind(m, 4, 2 As CHAR) = 1)
+	UnitTest("ChrFind WC s", ChrFind(w, 4 As SIZE_T, tw, 2 As SIZE_T) = 1)
+	UnitTest("ChrFind MB s", ChrFind(m, 4 As SIZE_T, tm, 2 As SIZE_T) = 2)
+	UnitTest("ChrPBrk WC", ChrPBrk(ToWCStr("a1b2c3"), 6 As SIZE_T, ToWCStr("123"), 3 As SIZE_T) = 1)
+	UnitTest("ChrPBrk MB", ChrPBrk(ToMBStr("a1b2c3"), 6 As SIZE_T, ToMBStr("abc"), 3 As SIZE_T) = 0)
+End Sub
+
+End Namespace 'ActiveBasic_StringsTest
+
+ActiveBasic_StringsTest.TestMain()
Index: TestCase/SimpleTestCase/SimpleTestCase.idx
===================================================================
--- TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 271)
+++ TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 272)
@@ -16,2 +16,6 @@
 #include "DateTimeTest.ab"
 _ClearNamespaceImported
+#include "ActiveBasic.StringsTest.ab"
+_ClearNamespaceImported
+#include "StringBuilderTest.ab"
+_ClearNamespaceImported
Index: TestCase/SimpleTestCase/SimpleTestCase.pj
===================================================================
--- TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 271)
+++ TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 272)
@@ -33,2 +33,4 @@
 PathTest.ab
 DateTimeTest.ab
+ActiveBasic.StringsTest.ab
+StringBuilderTest.ab
Index: TestCase/SimpleTestCase/StringBuilderTest.ab
===================================================================
--- TestCase/SimpleTestCase/StringBuilderTest.ab	(revision 272)
+++ TestCase/SimpleTestCase/StringBuilderTest.ab	(revision 272)
@@ -0,0 +1,27 @@
+#require <Classes/System/Text/StringBuilder.ab>
+
+'--------------------------------------------------------------------
+' Test case of System.Text.StringBuilder Class
+'--------------------------------------------------------------------
+
+Imports System.Text
+
+Namespace StringBuilderTest
+
+Sub TestMain()
+	Dim sb = New StringBuilder("Hello")
+	UnitTest("StringBuilder - Constractor & ToString", sb.ToString = "Hello")
+	UnitTest("StringBuilder.ToString(index, count)", sb.ToString(1, 3) = "ell")
+	UnitTest("StringBuilder.Append", sb.Append("StringBuilder").ToString = "HelloStringBuilder")
+	UnitTest("StringBuilder.Insert (String)", sb.Insert(5, ", ").ToString = "Hello, StringBuilder")
+	sb.Length = 0
+	UnitTest("StringBuilder.Length = 0", sb.ToString = "")
+	sb.Append("でてこいでてこいいけのこい")
+	sb.Replace("こい", "いけ").Replace("いけ", "こい")
+	UnitTest("StringBuilder.Replace (String)", sb.ToString = "でてこいでてこいいけのこい")
+End Sub
+
+End Namespace 'ActiveBasic_StringsTest
+
+StringBuilderTest.TestMain()
+
Index: TestCase/SimpleTestCase/StringTest.ab
===================================================================
--- TestCase/SimpleTestCase/StringTest.ab	(revision 271)
+++ TestCase/SimpleTestCase/StringTest.ab	(revision 272)
@@ -14,5 +14,5 @@
 
 
-	UnitTest("String.String (case 0)", (memcmp(s1.Chars, "hello", SizeOf (StrChar) * 6) = 0))
+	UnitTest("String.String (case 0)", (memcmp(s1.StrPtr, "hello", SizeOf (StrChar) * 6) = 0))
 
 	UnitTest("String.String (case 1)", (s1 = "hello"))