/[guile]/guile/guile-core/test-suite/tests/numbers.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/numbers.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by kryde, Wed Jun 4 16:12:09 2003 UTC revision 1.26 by kryde, Sat Jun 21 00:17:23 2003 UTC
# Line 1863  Line 1863 
1863  ;;; truncate  ;;; truncate
1864  ;;;  ;;;
1865    
1866    (with-test-prefix "truncate"
1867      (pass-if (=  1 (truncate  1.75)))
1868      (pass-if (=  1 (truncate  1.5)))
1869      (pass-if (=  1 (truncate  1.25)))
1870      (pass-if (=  0 (truncate  0.75)))
1871      (pass-if (=  0 (truncate  0.5)))
1872      (pass-if (=  0 (truncate  0.0)))
1873      (pass-if (=  0 (truncate -0.5)))
1874      (pass-if (= -1 (truncate -1.25)))
1875      (pass-if (= -1 (truncate -1.5))))
1876    
1877  ;;;  ;;;
1878  ;;; round  ;;; round
1879  ;;;  ;;;
1880    
1881    (with-test-prefix "round"
1882      (pass-if (=  2 (round  1.75)))
1883      (pass-if (=  2 (round  1.5)))
1884      (pass-if (=  1 (round  1.25)))
1885      (pass-if (=  1 (round  0.75)))
1886      (pass-if (=  0 (round  0.5)))
1887      (pass-if (=  0 (round  0.0)))
1888      (pass-if (=  0 (round -0.5)))
1889      (pass-if (= -1 (round -1.25)))
1890      (pass-if (= -2 (round -1.5))))
1891    
1892  ;;;  ;;;
1893  ;;; exact->inexact  ;;; exact->inexact
1894  ;;;  ;;;
# Line 1890  Line 1912 
1912    (pass-if "(= 1 (expt 0.0 0.0))" (= 1 (expt 0.0 0.0))))    (pass-if "(= 1 (expt 0.0 0.0))" (= 1 (expt 0.0 0.0))))
1913    
1914  ;;;  ;;;
1915    ;;; asinh
1916    ;;;
1917    
1918    (with-test-prefix "asinh"
1919      (pass-if (= 0 (asinh 0))))
1920    
1921    ;;;
1922    ;;; acosh
1923    ;;;
1924    
1925    (with-test-prefix "acosh"
1926      (pass-if (= 0 (acosh 1))))
1927    
1928    ;;;
1929    ;;; atanh
1930    ;;;
1931    
1932    (with-test-prefix "atanh"
1933      (pass-if (= 0 (atanh 0))))
1934    
1935    ;;;
1936  ;;; make-rectangular  ;;; make-rectangular
1937  ;;;  ;;;
1938    

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26