src/tests/math.test

   1 // Suite of tests for Proto's numeric functions
   2
   3 // Constants
   4 //test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(inf)"
   5 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(inf)"
   6 = 1 3 Inf
   7 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(e)"
   8 = 1 3 2.72
   9 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(pi)"
  10 = 1 3 3.14
  11
  12 // Scalar arithmetic
  13 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(+ 1 3 5)"
  14 = 1 3 9
  15 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(- 2 4)"
  16 = 1 3 -2
  17 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(neg -6)"
  18 = 1 3 6
  19 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(* 9 3 4 2)"
  20 = 1 3 216
  21 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(/ 5 2)"
  22 = 1 3 2.5
  23 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(/ 4 0)"
  24 = 1 3 Inf
  25 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(/ -2 0)"
  26 = 1 3 -Inf
  27 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(* 0 (/ 1 0))"
  28 is_nan 1 3 nan
  29 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(mod 37 6)"
  30 = 1 3 1
  31 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(= (inf) (+ 1 (inf))"
  32 = 1 3 1
  33
  34 // Vector arithmetic
  35 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(+ (tup 1 2) (tup 3 4))"
  36 = 1 3 4
  37 = 1 4 6
  38 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(+ (tup 1 2 3) (tup 4))"
  39 = 1 3 5
  40 = 1 4 2
  41 = 1 5 3
  42 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(- (tup 1 2 3) (tup 1))"
  43 = 1 3 0
  44 = 1 4 2
  45 = 1 5 3
  46 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(- (tup 1 2 3) (tup 0 0))"
  47 = 1 3 1
  48 = 1 4 2
  49 = 1 5 3
  50 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(- (tup 0 0) (tup 1 2 3))"
  51 = 1 3 -1
  52 = 1 4 -2
  53 = 1 5 -3
  54
  55
  56 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(- (tup 1) (tup 1 2 3))"
  57 = 1 3 0
  58 = 1 4 -2
  59 = 1 5 -3
  60 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(- (tup 1 2 3) (tup 0 0 0))"
  61 = 1 3 1
  62 = 1 4 2
  63 = 1 5 3
  64 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(- (tup 0 0 0) (tup 1 2 3))"
  65 = 1 3 -1
  66 = 1 4 -2
  67 = 1 5 -3
  68
  69 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(* 2 (tup 1 2 3))"
  70 = 1 3 2
  71 = 1 4 4
  72 = 1 5 6
  73 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(vdot (tup 1 2 3) (tup 0 0 0))"
  74 = 1 3 0
  75 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(vdot (tup 1 2 3) (tup 1 2 3))"
  76 = 1 3 14
  77 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(pow (vlen (tup 1 2 3)) 2)"
  78 = 1 3 14
  79 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(vlen (normalize (tup 1 2 3)))"
  80 = 1 3 1
  81 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(rotate (pi) (tup 1 0) )"
  82 = 1 3 -1
  83 = 1 4 0
  84 test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "(rotate (/ (pi) 2) (tup 1 0) )"
  85 = 1 3 0
  86 = 1 4 1
  87
  88
  89
  90
  91 //test: $(PROTO) -n 1 -headless -D -dump-after 1 -stop-after 1.5 -NDall -Dvalue "()"
  92 //= 1 3