From bbb2441cc22f10e860916a09e13f20e0a7ec4c9f Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sun, 22 Sep 2019 22:08:19 -0700
Subject: [PATCH] preparing more tests

---
 src/quaternions.f90 | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/src/quaternions.f90 b/src/quaternions.f90
index e37a88610..824e0dc1f 100644
--- a/src/quaternions.f90
+++ b/src/quaternions.f90
@@ -484,6 +484,21 @@ subroutine unitTest
   
   call random_number(qu)
   q = qu
+  
+  q_2 = q + q
+  write(6,*) q_2%asArray() == 2.0_pReal*qu
+  
+  q_2 = q - q
+  write(6,*) q_2%asArray() == [0.0_pReal,0.0_pReal,0.0_pReal,0.0_pReal]
+  
+  q_2 = q * 5.0_preal
+  write(6,*) q_2%asArray() == 5.0_pReal*qu
+  
+  q_2 = q / 0.5_preal
+  write(6,*) q_2%asArray() == 2.0_pReal*qu
+  
+  q_2 = q
+  write(6,*) q_2 == q
 
   write(6,*) q%asArray() == qu
   write(6,*) q%real()  == qu(1)
@@ -498,6 +513,7 @@ subroutine unitTest
   q_2 = conjg(q)
   write(6,*) q_2%real()  == q%real() 
   write(6,*) q_2%aimag() == q%aimag()*(-1.0_pReal)
+  
       
 end subroutine unitTest