Allow sending delvier commands to vats from UI

Author: sirtimid

packages/extension/src/kernel-integration/handlers/send-vat-command.ts

@@ -1,7 +1,7 @@
 import { object } from '@metamask/superstruct';
 import { UnsafeJsonStruct } from '@metamask/utils';
 import type { Json } from '@metamask/utils';
-import { isKernelCommand, VatIdStruct } from '@ocap/kernel';
+import { isVatCommandPayloadUI, VatIdStruct } from '@ocap/kernel';
 import type { Kernel, VatId } from '@ocap/kernel';
 import type { MethodSpec, Handler } from '@ocap/rpc-methods';
 
@@ -29,7 +29,7 @@ export const sendVatCommandHandler: Handler<
   ...sendVatCommandSpec,
   hooks: { kernel: true },
   implementation: async ({ kernel }, params): Promise<{ result: Json }> => {
-    if (!isKernelCommand(params.payload)) {
+    if (!isVatCommandPayloadUI(params.payload)) {
       throw new Error('Invalid command payload');
     }
 

packages/extension/test/e2e/vat-manager.test.ts

@@ -187,6 +187,15 @@ test.describe('Vat Manager', () => {
     await popupPage.click('button:text("Send")');
     await expect(messageOutput).toContainText('"method": "ping",');
     await expect(messageOutput).toContainText('{"result":"pong"}');
+    // Test deliver command
+    await clearLogsButton.click();
+    await input.fill(
+      `{ "id": "v1", "payload": { "method": "deliver", "params": ["bringOutYourDead"] } }`,
+    );
+    await popupPage.click('button:text("Send")');
+    await expect(messageOutput).toContainText('"method": "deliver",');
+    await expect(messageOutput).toContainText('"bringOutYourDead"');
+    await expect(messageOutput).toContainText('"result":null}');
   });
 
   test('should reload kernel state and load default vats', async () => {

packages/kernel/src/messages/index.ts

@@ -10,7 +10,12 @@ export type { KernelCommand, KernelCommandReply } from './kernel.ts';
 
 // Vat commands.
 
-export { VatCommandMethod, isVatCommand, isVatCommandReply } from './vat.ts';
+export {
+  VatCommandMethod,
+  isVatCommand,
+  isVatCommandReply,
+  isVatCommandPayloadUI,
+} from './vat.ts';
 export type {
   VatCommand,
   VatCommandReply,

packages/kernel/src/messages/vat.ts

@@ -294,3 +294,12 @@ export type VatReplyParams<Method extends keyof typeof VatReplyStructs> = Infer<
 export type VatCommandReturnType = {
   [Method in keyof typeof VatReplyStructs]: VatReplyParams<Method>;
 };
+
+const VatCommandPayloadUIStruct = union([
+  VatMethodStructs.ping,
+  VatMethodStructs.deliver,
+]);
+export type VatCommandPayloadUI = Infer<typeof VatCommandPayloadUIStruct>;
+export const isVatCommandPayloadUI = (
+  value: unknown,
+): value is VatCommandPayloadUI => is(value, VatCommandPayloadUIStruct);