Test output for quaternions

Testing time: 7.0s

CHICKEN_INSTALL_PREFIX=/root/src/salmonella/salmonella-4.5.0/repo CHICKEN_INCLUDE_PATH=/root/src/salmonella/salmonella-4.5.0/repo/share/chicken CHICKEN_REPOSITORY=/root/src/salmonella/salmonella-4.5.0/repo/lib/chicken/5 /usr/local/chicken-4.5.0/bin/csi -script run.scm

(number? q1) => #t ; correct

(number? q2) => #t ; correct

(number? q3) => #t ; correct

(quaternion? q1) => #t ; correct

(quaternion? q2) => #t ; correct

(quaternion? q3) => #t ; correct

(real-part q1) => 0 ; correct

(real-part q2) => 0 ; correct

(imag-part q2) => 1 ; correct

(real-part q3) => 0 ; correct

(imag-part q3) => 1 ; correct

(jmag-part q3) => 2 ; correct

(kmag-part q3) => 3 ; correct

(magnitude 4) => 4.0 ; correct

(magnitude (make-rectangular 1 2)) => 2.23606797749979 ; correct

(magnitude q3) => 3.74165738677394 ; correct

(angle 2+2i) => 0.785398163397448 ; correct

(angle q3) => 1.5707963267949 ; correct

(= 3 3) => #t ; correct

(= q1 0) => #t ; correct

(= q2 0+1i) => #t ; correct

(= q3 (make-rectangular 0 1 2 3)) => #t ; correct

(= q1 q2) => #f ; correct

(= q2 q3) => #f ; correct

(= q3 (make-rectangular 0 1 2 4)) => #f ; correct

(= q3 (make-rectangular 0 1 4 3)) => #f ; correct

(+ q3 q3) => 0+2i+4j+6k ; correct

(+ 1+2i q3) => 1+3i+2j+3k ; correct

(- q3 1+2i) => -1-1i+2j+3k ; correct

(* 2 q3) => 0+2i+4j+6k ; correct

(/ (make-rectangular 2 4 6 8) 2) => 1+2i+3j+4k ; correct

(magnitude q) => 1.0 ; correct

(angle q) => 2.0 ; correct

(colatitude q) => 3.0 ; correct

(longitude q) => -2.28318530717959 ; correct

(dot-product q1 q2) => 18 ; correct

(cross-product q1 q2) => 0-5i+16j-9k ; correct