;; -*-theme-d-*-

;; Copyright (C) 2014  Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: translation and running OK


(define-proper-program (tests test238)


  (import (standard-library core)
	  (standard-library math)	  
	  (standard-library console-io)
	  (tests numerical-test-env))

  (define-simple-proc main (() <none> nonpure)
    (report-test (expt 1.5 2.5) 2.7556759606310752)
    (report-test (sqrt 1.5) 1.22474487139159)
    (report-test (sin 1.5) 0.997494986604054)
    (report-test (cos 1.5) 0.0707372016677029)
    (report-test (tan 1.5) 14.1014199471717)
    (report-test (asin 0.5) 0.523598775598299)
    (report-test (acos 0.5) 1.0471975511966)
    (report-test (atan 0.5) 0.463647609000806)
    (report-test (exp 2.5) 12.1824939607035)
    (report-test (log 2.5) 0.916290731874155)
    (report-test (log10 2.5) 0.397940008672038)
    (report-test (sinh 2.5) 6.05020448103979)
    (report-test (cosh 2.5) 6.13228947966369)
    (report-test (tanh 2.5) 0.98661429815143)
    (report-test (asinh 0.6) 0.568824898732248)
    (report-test (acosh 1.5) 0.962423650119207)
    (report-test (atanh 0.6) 0.693147180559945)
    (report-test (atan2 2.0 1.0) 1.1071487177940904)))
