1870 |
1870 |
1871 "Modified: / 20.5.1999 / 09:41:19 / cg" |
1871 "Modified: / 20.5.1999 / 09:41:19 / cg" |
1872 ! |
1872 ! |
1873 |
1873 |
1874 testLargeSubtraction1 |
1874 testLargeSubtraction1 |
|
1875 |a1 a2 a b1 b2 b c1 c2 c| |
|
1876 |
1875 self assert:((2770568 + 2770568) printString = '5541136'). |
1877 self assert:((2770568 + 2770568) printString = '5541136'). |
1876 self assert:((2770568 - 2770568) printString = '0'). |
1878 self assert:((2770568 - 2770568) printString = '0'). |
1877 self assert:((2770568 negated + 2770568 negated) printString = '-5541136'). |
1879 self assert:((2770568 negated + 2770568 negated) printString = '-5541136'). |
1878 self assert:((5541136 negated - 2770568 negated) printString = '-2770568'). |
1880 self assert:((5541136 negated - 2770568 negated) printString = '-2770568'). |
1879 |
1881 |
1882 self assert:((2770568900 + 2770568900) printString = '5541137800'). |
1884 self assert:((2770568900 + 2770568900) printString = '5541137800'). |
1883 self assert:((2770568900 - 2770568900) printString = '0'). |
1885 self assert:((2770568900 - 2770568900) printString = '0'). |
1884 self assert:((2770568900 negated + 2770568900 negated) printString = '-5541137800'). |
1886 self assert:((2770568900 negated + 2770568900 negated) printString = '-5541137800'). |
1885 self assert:((5541137800 negated - 2770568900 negated) printString = '-2770568900'). |
1887 self assert:((5541137800 negated - 2770568900 negated) printString = '-2770568900'). |
1886 self assert:((2770568900 negated - 5541137800 negated) printString = '2770568900'). |
1888 self assert:((2770568900 negated - 5541137800 negated) printString = '2770568900'). |
|
1889 |
|
1890 a1 := -2770568900. a2 := 59049. |
|
1891 a := (a1 / a2) negated. |
|
1892 b1 := -5872025600. b2 := 59049. |
|
1893 b := (b1 / b2) negated. |
|
1894 c1 := 344606300. c2 := 6561. |
|
1895 c := (c1 / c2) negated. |
|
1896 self assert:(a - b closeTo: c). |
|
1897 self assert:((a - b) asFloat closeTo: c asFloat). |
|
1898 self assert:((a asFloat - b) closeTo: c asFloat). |
|
1899 self assert:((a - b asFloat) closeTo: c asFloat). |
|
1900 |
|
1901 a := -10. |
|
1902 b := -12. |
|
1903 self assert:(a - b = 2). |
|
1904 |
|
1905 a := -10000000. |
|
1906 b := -12000000. |
|
1907 self assert:(a - b = 2000000). |
|
1908 |
|
1909 a := -100000000000000. |
|
1910 b := -120000000000000. |
|
1911 self assert:(a - b = 20000000000000). |
1887 |
1912 |
1888 " |
1913 " |
1889 self basicNew testLargeSubtraction1 |
1914 self basicNew testLargeSubtraction1 |
1890 " |
1915 " |
1891 |
1916 |