From 5e4398d294110899efbecd6c2e389c9456b1bbca Mon Sep 17 00:00:00 2001
From: HechtiDerLachs <zach@mathematik.uni-kl.de>
Date: Fri, 20 Sep 2024 10:33:05 +0200
Subject: [PATCH] Implement a parallel smoothness test.

---
 test/Serialization/IPC.jl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/test/Serialization/IPC.jl b/test/Serialization/IPC.jl
index f8d14f1f221e..6445ce31935a 100644
--- a/test/Serialization/IPC.jl
+++ b/test/Serialization/IPC.jl
@@ -24,4 +24,28 @@ end
 
 map(rmprocs, process_ids)
 
+process_ids = addprocs(3)
+@everywhere using Oscar
+
+@testset "parallel smoothness test for schemes" begin
+  channels = Oscar.params_channels(Union{AffineScheme, Ring})
+  
+  IP2 = projective_space(QQ, [:x, :y, :z])
+  S = homogeneous_coordinate_ring(IP2)
+  (x, y, z) = gens(S)
+  
+  I = ideal(S, y^2*z + x^3 + x^2*z)
+  
+  X, _ = sub(IP2, I)
+  X_cov = covered_scheme(X)
+  U = affine_charts(X_cov)
+  for a in U
+    Oscar.put_params(channels, ambient_coordinate_ring(a))
+    Oscar.put_params(channels, OO(a))
+  end
+  results = pmap(is_smooth, U)
+  @test results == [1, 1, 0]
+end  
+
+map(rmprocs, process_ids)