feat(phase5): MCP server, CalDAV, mail-to-task, Gmail settings and an AI layer

The MCP server speaks JSON-RPC over Streamable HTTP with the six tools
the brief names, authenticated by a personal API token — so a connector
reaches exactly what its owner reaches and there is no second identity
to reason about. A failed tool call returns a tool error, not a protocol
error: a model can recover from the first and can do nothing with the
second.

CalDAV serves VTODO, two-way, so Apple Reminders and Thunderbird can
read, create and complete tasks. Clients authenticate with Basic using
an API token as the password, never the account password — a client
stores what it is given, and what it is given should not be able to sign
in to the app. Completed tasks stay in the collection: a client that
stops seeing one treats it as deleted and drops its own record of having
done it.

The AI layer is one interface with adapters for Anthropic, OpenAI,
Google and any OpenAI-compatible endpoint. That last one is why the
abstraction exists: an integration that only spoke to a hosted API would
be useless to somebody running their own models. Every feature degrades
to "off" when nothing is configured, and the stored API key is never
returned to the settings page.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
Kristian Wind
2026-08-17 07:53:53 +02:00
co-authored by Claude Opus 5
parent 4058ff0533
commit 6b19ed062d
12 changed files with 2892 additions and 0 deletions
+584
View File
@@ -0,0 +1,584 @@
package httpapi
import (
"encoding/json"
"io"
"net/http"
"strings"
"testing"
)
// --- MCP -----------------------------------------------------------------------------
// rpc sends one JSON-RPC message to the MCP endpoint.
func (ts *testServer) rpc(t *testing.T, method string, params any) map[string]any {
t.Helper()
body := map[string]any{"jsonrpc": "2.0", "id": 1, "method": method}
if params != nil {
body["params"] = params
}
_, decoded := ts.do(t, "POST", "/api/v1/mcp", body)
return decoded
}
func TestMCPHandshake(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
init := ts.rpc(t, "initialize", map[string]any{
"protocolVersion": "2024-11-05",
"clientInfo": map[string]any{"name": "claude", "version": "1"},
})
result, _ := init["result"].(map[string]any)
if result == nil {
t.Fatalf("initialize returned no result: %v", init)
}
if result["protocolVersion"] == nil {
t.Error("no protocol version was announced")
}
caps, _ := result["capabilities"].(map[string]any)
if _, ok := caps["tools"]; !ok {
t.Errorf("tools were not announced as a capability: %v", caps)
}
listed := ts.rpc(t, "tools/list", nil)
result, _ = listed["result"].(map[string]any)
tools, _ := result["tools"].([]any)
if len(tools) == 0 {
t.Fatal("no tools were listed")
}
// The tools the brief names have to be there, each with a schema a model can
// actually call from.
names := map[string]bool{}
for _, raw := range tools {
tool := raw.(map[string]any)
name := tool["name"].(string)
names[name] = true
if tool["description"] == "" {
t.Errorf("tool %q has no description", name)
}
if _, ok := tool["inputSchema"].(map[string]any); !ok {
t.Errorf("tool %q has no input schema", name)
}
}
for _, want := range []string{
"search_tasks", "create_task", "update_task", "complete_task",
"list_projects", "add_comment",
} {
if !names[want] {
t.Errorf("the %q tool is missing", want)
}
}
}
// A notification has no id, and the spec says to answer with nothing at all.
func TestMCPNotificationGetsNoResponse(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
resp, _ := ts.do(t, "POST", "/api/v1/mcp", map[string]any{
"jsonrpc": "2.0", "method": "notifications/initialized",
})
if resp.StatusCode != http.StatusAccepted {
t.Errorf("a notification got status %d, want 202 with no body", resp.StatusCode)
}
}
func TestMCPToolsDoTheWork(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
// create_task, through the natural-language path a model is told to prefer.
created := ts.callTool(t, "create_task", map[string]any{
"text": "betal moms i morgen kl 10 p1",
})
if created["id"] == nil {
t.Fatalf("create_task returned no id: %v", created)
}
if created["priority"] != float64(1) {
t.Errorf("priority = %v, want 1 — the text was not parsed", created["priority"])
}
taskID := created["id"].(string)
// search_tasks, with the filter language.
found := ts.callTool(t, "search_tasks", map[string]any{"query": "p1"})
tasks, _ := found["tasks"].([]any)
if len(tasks) != 1 {
t.Fatalf("search_tasks found %d tasks, want 1", len(tasks))
}
// list_projects
projects := ts.callTool(t, "list_projects", map[string]any{})
if got, _ := projects["projects"].([]any); len(got) == 0 {
t.Error("list_projects returned nothing")
}
// update_task
updated := ts.callTool(t, "update_task", map[string]any{
"task_id": taskID, "priority": 3,
})
if updated["priority"] != float64(3) {
t.Errorf("priority = %v after update, want 3", updated["priority"])
}
// add_comment
comment := ts.callTool(t, "add_comment", map[string]any{
"task_id": taskID, "body": "sagt af Claude",
})
if comment["id"] == nil {
t.Errorf("add_comment returned no id: %v", comment)
}
// complete_task
done := ts.callTool(t, "complete_task", map[string]any{"task_id": taskID})
if done["completed"] != true {
t.Errorf("complete_task did not complete: %v", done)
}
}
// A tool called wrongly must produce a readable tool error, not a protocol error —
// a model can recover from the first and can do nothing with the second.
func TestMCPToolErrorsAreReadable(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
response := ts.rpc(t, "tools/call", map[string]any{
"name": "complete_task",
"arguments": map[string]any{"task_id": "findes-ikke"},
})
if response["error"] != nil {
t.Errorf("a failed tool call produced a JSON-RPC error rather than a tool result: %v", response["error"])
}
result, _ := response["result"].(map[string]any)
if result["isError"] != true {
t.Fatalf("the result is not marked as an error: %v", result)
}
content, _ := result["content"].([]any)
if len(content) == 0 {
t.Fatal("the error has no content for the model to read")
}
text, _ := content[0].(map[string]any)["text"].(string)
if !strings.Contains(text, "findes-ikke") {
t.Errorf("the message does not say what was wrong: %q", text)
}
}
// An MCP connector reaches exactly what its owner reaches, and nothing else.
func TestMCPCannotReachAnotherUsersTasks(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
other := ts.newUser(t, "anden@example.dk", "Anden")
ts.do(t, "POST", "/api/v1/tasks", map[string]any{"content": "min private opgave"})
found := other.callTool(t, "search_tasks", map[string]any{"text": "private"})
if tasks, _ := found["tasks"].([]any); len(tasks) != 0 {
t.Errorf("another user's MCP session found %d of the owner's tasks", len(tasks))
}
}
// callTool runs one tool and returns its decoded result.
func (ts *testServer) callTool(t *testing.T, name string, args map[string]any) map[string]any {
t.Helper()
response := ts.rpc(t, "tools/call", map[string]any{"name": name, "arguments": args})
if response["error"] != nil {
t.Fatalf("%s: protocol error %v", name, response["error"])
}
result, _ := response["result"].(map[string]any)
if result == nil {
t.Fatalf("%s: no result", name)
}
if result["isError"] == true {
content, _ := result["content"].([]any)
text := ""
if len(content) > 0 {
text, _ = content[0].(map[string]any)["text"].(string)
}
t.Fatalf("%s failed: %s", name, text)
}
content, _ := result["content"].([]any)
if len(content) == 0 {
t.Fatalf("%s: no content", name)
}
text, _ := content[0].(map[string]any)["text"].(string)
var decoded map[string]any
if err := json.Unmarshal([]byte(text), &decoded); err != nil {
t.Fatalf("%s: the result is not JSON: %v\n%s", name, err, text)
}
return decoded
}
// --- CalDAV ---------------------------------------------------------------------------
// dav sends a WebDAV request with Basic auth, as a real client would.
func (ts *testServer) dav(t *testing.T, method, path, token, email, body string) *http.Response {
t.Helper()
req, err := http.NewRequest(method, ts.URL+path, strings.NewReader(body))
if err != nil {
t.Fatal(err)
}
req.SetBasicAuth(email, token)
if body != "" {
req.Header.Set("Content-Type", "application/xml")
}
resp, err := (&http.Client{}).Do(req)
if err != nil {
t.Fatalf("%s %s: %v", method, path, err)
}
t.Cleanup(func() { resp.Body.Close() })
return resp
}
// apiToken mints a personal token, which is what CalDAV clients authenticate with.
func (ts *testServer) apiToken(t *testing.T, userID string) string {
t.Helper()
token, _, err := ts.db.CreateAPIToken(t.Context(), userID, "caldav", nil)
if err != nil {
t.Fatal(err)
}
return token
}
func TestCalDAVRequiresCredentials(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
resp, err := (&http.Client{}).Get(ts.URL + "/caldav/")
if err != nil {
t.Fatal(err)
}
defer resp.Body.Close()
if resp.StatusCode != http.StatusUnauthorized {
t.Errorf("status %d, want 401", resp.StatusCode)
}
// Without a challenge, a client has nothing to prompt with.
if resp.Header.Get("WWW-Authenticate") == "" {
t.Error("no WWW-Authenticate header was sent")
}
}
// The account password must not work here — a client stores what it is given, and
// what it is given should not be able to sign in to the app.
func TestCalDAVRejectsTheAccountPassword(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
resp := ts.dav(t, "PROPFIND", "/caldav/", "syv heste over marken", "kristian@example.dk", "")
if resp.StatusCode != http.StatusUnauthorized {
t.Errorf("the account password was accepted: status %d", resp.StatusCode)
}
}
func TestCalDAVDiscovery(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
user, err := ts.db.UserByEmail(t.Context(), "kristian@example.dk")
if err != nil {
t.Fatal(err)
}
token := ts.apiToken(t, user.ID)
// OPTIONS is what a client reads first. Without calendar-access in the DAV
// header, Apple Reminders decides this is plain WebDAV and stops.
options := ts.dav(t, "OPTIONS", "/caldav/", token, user.Email, "")
if dav := options.Header.Get("DAV"); !strings.Contains(dav, "calendar-access") {
t.Errorf("DAV header = %q, want calendar-access in it", dav)
}
principal := ts.dav(t, "PROPFIND", "/caldav/", token, user.Email, "")
if principal.StatusCode != http.StatusMultiStatus {
t.Fatalf("PROPFIND on the root: status %d, want 207", principal.StatusCode)
}
body, _ := io.ReadAll(principal.Body)
if !strings.Contains(string(body), "calendar-home-set") {
t.Errorf("the principal response does not point at a calendar home:\n%s", body)
}
// The home lists one collection per project.
home := ts.dav(t, "PROPFIND", "/caldav/"+user.ID+"/", token, user.Email, "")
if home.StatusCode != http.StatusMultiStatus {
t.Fatalf("PROPFIND on the home: status %d", home.StatusCode)
}
homeBody, _ := io.ReadAll(home.Body)
if !strings.Contains(string(homeBody), "<cal:comp name=\"VTODO\"/>") {
t.Errorf("the collections do not declare VTODO support:\n%s", homeBody)
}
if !strings.Contains(string(homeBody), "getctag") {
t.Error("no ctag was returned; clients would re-sync everything every time")
}
}
// The half that makes CalDAV two-way: a client creating and completing a task.
func TestCalDAVReadWrite(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
user, err := ts.db.UserByEmail(t.Context(), "kristian@example.dk")
if err != nil {
t.Fatal(err)
}
token := ts.apiToken(t, user.ID)
inbox, err := ts.db.InboxID(t.Context(), user.ID)
if err != nil {
t.Fatal(err)
}
// A client PUTs a VTODO it made up an id for.
vtodo := "BEGIN:VCALENDAR\r\nVERSION:2.0\r\nBEGIN:VTODO\r\n" +
"UID:fra-reminders\r\nSUMMARY:Købt af Apple Reminders\r\n" +
"DUE;VALUE=DATE:20260315\r\nPRIORITY:1\r\nSTATUS:NEEDS-ACTION\r\n" +
"END:VTODO\r\nEND:VCALENDAR\r\n"
put := ts.dav(t, "PUT", "/caldav/"+user.ID+"/"+inbox+"/fra-reminders.ics",
token, user.Email, vtodo)
if put.StatusCode != http.StatusCreated {
body, _ := io.ReadAll(put.Body)
t.Fatalf("PUT: status %d, %s", put.StatusCode, body)
}
// It is a real task now.
task, err := ts.db.GetTask(t.Context(), "fra-reminders", user.ID)
if err != nil {
t.Fatalf("the task was not created: %v", err)
}
if task.Content != "Købt af Apple Reminders" {
t.Errorf("content = %q", task.Content)
}
if task.DueDate != "2026-03-15" {
t.Errorf("due_date = %q", task.DueDate)
}
if task.Priority != 1 {
t.Errorf("priority = %d, want 1 (iCalendar's 1)", task.Priority)
}
// And it reads back as a VTODO.
get := ts.dav(t, "GET", "/caldav/"+user.ID+"/"+inbox+"/fra-reminders.ics", token, user.Email, "")
if get.StatusCode != http.StatusOK {
t.Fatalf("GET: status %d", get.StatusCode)
}
body, _ := io.ReadAll(get.Body)
if !strings.Contains(string(body), "BEGIN:VTODO") {
t.Errorf("the response is not a VTODO:\n%s", body)
}
if !strings.Contains(string(body), "SUMMARY:Købt af Apple Reminders") {
t.Errorf("the summary is missing:\n%s", body)
}
// Ticking it off in the client arrives as a PUT with STATUS:COMPLETED.
completed := strings.Replace(vtodo, "STATUS:NEEDS-ACTION", "STATUS:COMPLETED", 1)
done := ts.dav(t, "PUT", "/caldav/"+user.ID+"/"+inbox+"/fra-reminders.ics",
token, user.Email, completed)
if done.StatusCode != http.StatusNoContent {
t.Fatalf("PUT to complete: status %d", done.StatusCode)
}
after, err := ts.db.GetTask(t.Context(), "fra-reminders", user.ID)
if err != nil {
t.Fatal(err)
}
if !after.Completed() {
t.Error("completing the task in a CalDAV client did not complete it here")
}
// A task completed in the app must stay visible to the client, or the client
// treats it as deleted and drops its own record of having done it.
report := ts.dav(t, "REPORT", "/caldav/"+user.ID+"/"+inbox+"/", token, user.Email,
`<?xml version="1.0"?><c:calendar-query xmlns:d="DAV:" xmlns:c="urn:ietf:params:xml:ns:caldav">`+
`<d:prop><d:getetag/><c:calendar-data/></d:prop></c:calendar-query>`)
if report.StatusCode != http.StatusMultiStatus {
t.Fatalf("REPORT: status %d", report.StatusCode)
}
reportBody, _ := io.ReadAll(report.Body)
if !strings.Contains(string(reportBody), "fra-reminders") {
t.Errorf("a completed task vanished from the collection:\n%s", reportBody)
}
}
// --- mail to task -------------------------------------------------------------------------
func TestMailToTask(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
_, project := ts.do(t, "POST", "/api/v1/projects", map[string]any{"name": "Firma"})
projectID := project["id"].(string)
resp, body := ts.do(t, "GET", "/api/v1/mail-address", nil)
if resp.StatusCode != http.StatusOK {
t.Fatalf("mail address: %d %v", resp.StatusCode, body)
}
address, _ := body["address"].(string)
if !strings.HasPrefix(address, "todo+") {
t.Fatalf("address = %q, want todo+<token>@domain", address)
}
// Delivered mail. The subject goes through the quick-add parser.
resp, created := ts.do(t, "POST", "/inbound/mail", map[string]any{
"to": address,
"from": "revisor@example.dk",
"subject": "Send årsregnskab p1 #Firma",
"body": "Vedhæftet er sidste års tal.",
})
if resp.StatusCode != http.StatusCreated {
t.Fatalf("inbound mail: %d %v", resp.StatusCode, created)
}
_, list := ts.do(t, "GET", "/api/v1/tasks?project_id="+projectID, nil)
tasks, _ := list["tasks"].([]any)
if len(tasks) != 1 {
t.Fatalf("got %d tasks in #Firma, want the one from the mail", len(tasks))
}
task := tasks[0].(map[string]any)
if task["content"] != "Send årsregnskab" {
t.Errorf("content = %v", task["content"])
}
if task["priority"] != float64(1) {
t.Errorf("priority = %v, want 1", task["priority"])
}
if task["description"] != "Vedhæftet er sidste års tal." {
t.Errorf("the body did not become the description: %v", task["description"])
}
}
// An invented address must not create anything, and must not say whether the token
// merely does not exist — that would be an oracle for which addresses are live.
func TestInboundMailToAnUnknownAddress(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
resp, _ := ts.do(t, "POST", "/inbound/mail", map[string]any{
"to": "todo+opfundet@example.dk", "subject": "hej", "body": "",
})
if resp.StatusCode != http.StatusNotFound {
t.Errorf("status %d, want 404", resp.StatusCode)
}
malformed, _ := ts.do(t, "POST", "/inbound/mail", map[string]any{
"to": "ikke-en-adresse", "subject": "hej", "body": "",
})
if malformed.StatusCode != resp.StatusCode {
t.Errorf("a malformed address answers %d and an unknown one %d; they must match",
malformed.StatusCode, resp.StatusCode)
}
}
func TestRotatingTheMailAddress(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
_, first := ts.do(t, "GET", "/api/v1/mail-address", nil)
old := first["address"].(string)
_, second := ts.do(t, "POST", "/api/v1/mail-address/rotate", nil)
fresh := second["address"].(string)
if old == fresh {
t.Fatal("rotating produced the same address")
}
resp, _ := ts.do(t, "POST", "/inbound/mail", map[string]any{
"to": old, "subject": "til den gamle adresse", "body": "",
})
if resp.StatusCode != http.StatusNotFound {
t.Errorf("the old address still works: status %d", resp.StatusCode)
}
}
// --- AI ---------------------------------------------------------------------------------
// With no provider configured the AI features are off, not broken. That is the
// promise: the app works without them.
func TestAIDegradesWhenNotConfigured(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
resp, body := ts.do(t, "GET", "/api/v1/ai/settings", nil)
if resp.StatusCode != http.StatusOK {
t.Fatalf("ai settings: %d %v", resp.StatusCode, body)
}
if body["has_key"] != false {
t.Errorf("has_key = %v on a fresh instance", body["has_key"])
}
_, task := ts.do(t, "POST", "/api/v1/tasks", map[string]any{"content": "flyt"})
resp, _ = ts.do(t, "POST", "/api/v1/ai/tasks/"+task["id"].(string)+"/split", nil)
if resp.StatusCode != http.StatusConflict {
t.Errorf("split with no provider: status %d, want 409", resp.StatusCode)
}
resp, _ = ts.do(t, "POST", "/api/v1/ai/summary", nil)
if resp.StatusCode != http.StatusConflict {
t.Errorf("summary with no provider: status %d, want 409", resp.StatusCode)
}
}
// The API key is stored but never handed back — a settings page that repopulates a
// password field is one that will eventually leak it into a screenshot.
func TestAIKeyIsNeverReturned(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
resp, _ := ts.do(t, "PUT", "/api/v1/ai/settings", map[string]any{
"provider": "anthropic", "model": "claude-sonnet-5", "api_key": "sk-hemmelig-nøgle",
})
if resp.StatusCode != http.StatusNoContent {
t.Fatalf("save settings: status %d", resp.StatusCode)
}
_, body := ts.do(t, "GET", "/api/v1/ai/settings", nil)
if body["has_key"] != true {
t.Error("has_key is false after saving a key")
}
if body["api_key"] != nil && body["api_key"] != "" {
t.Errorf("the key was returned: %v", body["api_key"])
}
if body["model"] != "claude-sonnet-5" {
t.Errorf("model = %v", body["model"])
}
// Saving again without a key must keep the stored one, or changing the model
// would silently disconnect the provider.
ts.do(t, "PUT", "/api/v1/ai/settings", map[string]any{
"provider": "anthropic", "model": "claude-opus-5",
})
_, after := ts.do(t, "GET", "/api/v1/ai/settings", nil)
if after["has_key"] != true {
t.Error("the stored key was cleared by a save that did not include one")
}
if after["model"] != "claude-opus-5" {
t.Errorf("model = %v after update", after["model"])
}
}
func TestGmailSettings(t *testing.T) {
ts := newTestServer(t)
ts.bootstrap(t)
resp, body := ts.do(t, "GET", "/api/v1/gmail", nil)
if resp.StatusCode != http.StatusOK {
t.Fatalf("gmail settings: %d %v", resp.StatusCode, body)
}
if body["connected"] != false {
t.Error("a fresh instance reports Gmail as connected")
}
resp, _ = ts.do(t, "PUT", "/api/v1/gmail", map[string]any{
"trigger": "starred", "label": "Til handling",
})
if resp.StatusCode != http.StatusNoContent {
t.Fatalf("save: status %d", resp.StatusCode)
}
_, after := ts.do(t, "GET", "/api/v1/gmail", nil)
if after["trigger"] != "starred" || after["label"] != "Til handling" {
t.Errorf("settings did not persist: %v", after)
}
}