Update unit tests for surface and volume

Signed-off-by: Seyed Ali Ghasemi <info@gha3mi.com>
gha3mi · Jul 1, 2024 · 5438872 · 5438872
1 parent a17dcf1
commit 5438872
Show file tree

Hide file tree

Showing 2 changed files with 319 additions and 39 deletions.
diff --git a/test/test_nurbs_surface.f90 b/test/test_nurbs_surface.f90
@@ -340,8 +340,8 @@ program test_nurbs_surface
     call ut%check(res=bsp%get_Xg(),   expected=Xgb, tol=1e-5_rk, msg="test_nurbs_surface: 82")
 
 
-    call nurbs%set_tetragon([0.0_rk, 2.0_rk], [2,2])
-    call bsp%set_tetragon([0.0_rk, 2.0_rk], [2,2], [1.0_rk,1.0_rk,0.9_rk,0.9_rk])
+    call nurbs%set_tetragon([2.0_rk, 2.0_rk], [2,2])
+    call bsp%set_tetragon([2.0_rk, 2.0_rk], [2,2], [1.0_rk,1.0_rk,0.9_rk,0.9_rk])
     call nurbs%set_ring([0.0_rk, 0.0_rk, 0.0_rk], 1.0_rk, 2.0_rk)
     call nurbs%set_half_ring([0.0_rk, 0.0_rk, 0.0_rk], 1.0_rk, 2.0_rk)
     call nurbs%set_C([0.0_rk, 0.0_rk, 0.0_rk], 1.0_rk, 2.0_rk)