Ignore:
Timestamp:
Oct 19, 2007, 11:42:51 PM (17 years ago)
Author:
イグトランス (egtra)
Message:

FormatIntegerO, FormatIntegerXを実装

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/TestCase/SimpleTestCase/SPrintFTest.ab

    r355 r358  
    6666    UnitTest("FormatIntegerD(+3, field width = 5)", s = "   +3")
    6767
     68    s = FormatIntegerO(&o1234567, DWORD_MAX, 0, None)
     69    UnitTest("FormatIntegerO(&o1234567)", s = "1234567")
     70
     71    s = FormatIntegerO(&o1234567, DWORD_MAX, 0, Alt)
     72    UnitTest("FormatIntegerO(&o1234567, Alt)", s = "01234567")
     73
     74    s = FormatIntegerO(0, DWORD_MAX, 0, Alt)
     75    UnitTest("FormatIntegerO(0, Alt)", s = "0")
     76
     77    s = FormatIntegerX(&hffff, DWORD_MAX, 0, None)
     78    UnitTest("FormatIntegerX(&hffff)", s = "ffff")
     79
     80    s = FormatIntegerX(&hffff, DWORD_MAX, 0, Cap)
     81    UnitTest("FormatIntegerX(&hffff, Cap)", s = "FFFF")
     82
     83    s = FormatIntegerX(&h12345678, DWORD_MAX, 0, Alt)
     84    UnitTest("FormatIntegerX(&h12345678, Alt)", s = "0x12345678")
     85
     86    s = FormatIntegerX(1, 2, 0, Alt Or Cap)
     87    UnitTest("FormatIntegerX(1, precision = 2, Alt, Cap)", s = "0X01")
     88
     89    s = FormatIntegerX(0, 4, 0, Alt)
     90    UnitTest("FormatIntegerX(0, precision = 4, Alt)", s = "0000")
     91
    6892'   s = FormatIntegerLU(8589934590, DWORD_MAX, 0, None)
    6993'   UnitTest("FormatIntegerLU(8589934590)", s = "8589934590")
    70 
    71    
    72 
    7394End Sub
    7495
Note: See TracChangeset for help on using the changeset viewer.