Index: trunk/TestCase/SimpleTestCase/SPrintFTest.ab
===================================================================
--- trunk/TestCase/SimpleTestCase/SPrintFTest.ab	(revision 335)
+++ trunk/TestCase/SimpleTestCase/SPrintFTest.ab	(revision 335)
@@ -0,0 +1,44 @@
+'--------------------------------------------------------------------
+' Test case of SPrintF Function and etc...
+'--------------------------------------------------------------------
+
+#require <Classes/ActiveBasic/Strings/SPrintF.ab>
+
+Imports ActiveBasic.Strings
+Imports ActiveBasic.Strings.Detail
+
+Namespace SPrintFTest
+
+Sub TestMain()
+	Dim s = Nothing As String, e As Long, sign As Boolean
+
+	s = FloatToChars(1., e, sign)
+	UnitTest("FloatToChars(1)", s = "10000000000000000" And e = 0 And sign = False)
+
+	s = FloatToChars(-93.75e-3, e, sign)
+	UnitTest("FloatToChars(-93.75e-3)", s = "93750000000000000" And e = 1 - 3 And sign = True)
+
+	s = FloatToChars(.0, e, sign)
+	UnitTest("FloatToChars(0)", s = "00000000000000000" And e = 0 And sign = False)
+
+	s = FormatFloatE(9.876543e021, 6, 0, None)
+	UnitTest("FormatFloatE(9876543e021)", s = "9.876543e021")
+
+	s = FormatFloatE(7.81250000E-003, 8, 0, Cap)
+	UnitTest("FormatFloatE(7.81250000E-003)", s = "7.81250000E-003")
+	/*
+	上は、現在s = 7.81250000E-03となり失敗する。
+	FormatIntegerDを作成していないことが要因。
+	*/
+
+	s = FormatIntegerU(777, 0, 0, None)
+	UnitTest("FormatIntegerU(777)", s = "777")
+
+	s = FormatIntegerU(513, 0, 5, None)
+	UnitTest("FormatIntegerU(513, Field size = 5)", s = "  513")
+
+End Sub
+
+End Namespace 'SPrintFTest
+
+SPrintFTest.TestMain()
Index: trunk/TestCase/SimpleTestCase/SimpleTestCase.idx
===================================================================
--- trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 334)
+++ trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 335)
@@ -22,2 +22,8 @@
 #include "BlittableTest.ab"
 _ClearNamespaceImported
+#include "SPrintFTest.ab"
+_ClearNamespaceImported
+
+'リソースファイル
+#include "resource.ab"
+#resource "SimpleTestCase.rc"
Index: trunk/TestCase/SimpleTestCase/SimpleTestCase.pj
===================================================================
--- trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 334)
+++ trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 335)
@@ -23,5 +23,5 @@
 #DEBUG_EXE_PATH=
 
-#RESOURCE=0
+#RESOURCE=SimpleTestCase.rc
 
 #SOURCE
@@ -36,2 +36,3 @@
 StringBuilderTest.ab
 BlittableTest.ab
+SPrintFTest.ab