1import * as GCP from "@/GCP";
2import * as Test from "@/Test/Alchemy";
3import * as compute from "@distilled.cloud/gcp/compute_v1";
4import { expect } from "alchemy-test";
5import * as Effect from "effect/Effect";
6import { MinimumLogLevel } from "effect/References";
7import * as Schedule from "effect/Schedule";
8
9const { test } = Test.make({ providers: GCP.providers() });
10
11const logLevel = Effect.provideService(
12 MinimumLogLevel,
13 process.env.DEBUG ? "Debug" : "Info",
14);
15
16const waitUntilGone = (project: string, region: string, disk: string) =>
17 compute.getRegionDisks({ project, region, disk }).pipe(
18 Effect.as("found" as const),
19 Effect.catchTag("NotFound", () => Effect.succeed("gone" as const)),
20 Effect.repeat({
21 schedule: Schedule.spaced("1 second"),
22 until: (status) => status === "gone",
23 times: 10,
24 }),
25 );
26
27test.provider(
28 "create, update, and delete a region disk",
29 (stack) =>
30 Effect.gen(function* () {
31 yield* stack.destroy();
32
33 const created = yield* stack.deploy(
34 Effect.gen(function* () {
35 return yield* GCP.Compute.RegionDisk("Data", {
36 region: "us-central1",
37 replicaZones: ["us-central1-a", "us-central1-b"],
38 type: "pd-standard",
39 sizeGb: 200,
40 labels: { env: "test" },
41 });
42 }),
43 );
44
45 expect(created.diskName).toEqual(expect.any(String));
46 expect(created.region).toEqual("us-central1");
47 expect(created.replicaZones).toEqual(["us-central1-a", "us-central1-b"]);
48 expect(created.type).toEqual("pd-standard");
49 expect(created.sizeGb).toEqual(200);
50 expect(created.status).toEqual("READY");
51 expect(created.labels).toMatchObject({ env: "test" });
52
53 const fetched = yield* compute.getRegionDisks({
54 project: created.project,
55 region: created.region,
56 disk: created.diskName,
57 });
58 expect(fetched.name).toEqual(created.diskName);
59 expect(fetched.labels?.env).toEqual("test");
60 expect(fetched.sizeGb).toEqual("200");
61 expect(fetched.region).toEqual(expect.stringContaining("us-central1"));
62
63 const updated = yield* stack.deploy(
64 Effect.gen(function* () {
65 return yield* GCP.Compute.RegionDisk("Data", {
66 diskName: created.diskName,
67 region: "us-central1",
68 replicaZones: ["us-central1-a", "us-central1-b"],
69 type: "pd-standard",
70 sizeGb: 201,
71 labels: { env: "prod", role: "data" },
72 });
73 }),
74 );
75
76 expect(updated.diskName).toEqual(created.diskName);
77 expect(updated.sizeGb).toEqual(201);
78 expect(updated.labels).toMatchObject({ env: "prod", role: "data" });
79
80 const fetchedUpdated = yield* compute.getRegionDisks({
81 project: updated.project,
82 region: updated.region,
83 disk: updated.diskName,
84 });
85 expect(fetchedUpdated.sizeGb).toEqual("201");
86 expect(fetchedUpdated.labels?.env).toEqual("prod");
87 expect(fetchedUpdated.labels?.role).toEqual("data");
88
89 yield* stack.destroy();
90
91 const gone = yield* waitUntilGone(
92 created.project,
93 created.region,
94 created.diskName,
95 );
96 expect(gone).toEqual("gone");
97 }).pipe(logLevel),
98 { tags: ["provider:gcp", "provider:gcp:compute", "live"], timeout: 120_000 },
99);