File: math-test.scm

package info (click to toggle)
gauche-c-wrapper 0.6.1-18
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 7,440 kB
  • sloc: ansic: 17,899; sh: 14,025; asm: 6,456; lisp: 5,485; yacc: 2,109; makefile: 520; exp: 194; cpp: 157; objc: 144; perl: 2
file content (25 lines) | stat: -rw-r--r-- 284 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
;;;
;;; Test include math.h
;;;

(use gauche.test)

(test-start "c-wrapper (include math.h)")
(use c-wrapper)

(c-include "math.h")

(test "trunc"
      1.0
      (lambda ()
        (trunc 1.9)))

(test "pow"
      625.0
      (lambda ()
        (pow 5 4)))

;; epilogue
(test-end)