Test SU with non-standard virtual dualness

Author: Yue-Zhengyuan

test/timeevol/cluster_projectors.jl

@@ -111,7 +111,7 @@ end
     Espace = Vect[FermionParity ⊠ U1Irrep]((0, 0) => 8, (1, 1 // 2) => 4, (1, -1 // 2) => 4)
     trunc_env0 = truncerror(; atol = 1.0e-12) & truncrank(4)
     trunc_env = truncerror(; atol = 1.0e-12) & truncrank(16)
-    peps = InfinitePEPS(rand, Float64, Pspace, Vspace; unitcell = (Nr, Nc))
+    peps = InfinitePEPS(rand, Float64, Pspace, Vspace, Vspace'; unitcell = (Nr, Nc))
     wts = SUWeight(peps)
     ham = real(
         hubbard_model(
@@ -127,7 +127,7 @@ end
         peps, wts, = time_evolve(peps, ham, dt, 10000, alg, wts; tol, check_interval = 1000)
     end
     normalize!.(peps.A, Inf)
-    env = CTMRGEnv(wts, peps)
+    env = CTMRGEnv(wts)
     env, = leading_boundary(env, peps; tol = ctmrg_tol, trunc = trunc_env0)
     env, = leading_boundary(env, peps; tol = ctmrg_tol, trunc = trunc_env)
     e_site = cost_function(peps, env, ham) / (Nr * Nc)