Files
rose-ash/tests/playwright/navigation.spec.js
giles 6134bd2ea5 Stepper persistence: use def-store instead of broken cookies
The home stepper's step-idx signal was not persisting across SX
navigation because set-cookie/freeze-to-sx wasn't working in the
WASM kernel. Replace with def-store which uses a global registry
that survives island re-hydration.

Also fix sx_http.exe build: add sx_http back to dune, inline scope
primitives (Sx_scope module was removed), add declarative form
stubs and render stubs, fix /sx/ home route mapping.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
2026-03-29 18:27:08 +00:00

182 lines
6.1 KiB
JavaScript

// Navigation tests for sx-docs
// Verifies navigation works correctly with the OCaml sx-host.
const { test, expect } = require('playwright/test');
const BASE_URL = process.env.SX_TEST_URL || 'http://localhost:8013';
test.describe('Page Navigation', () => {
test('clicking nav button navigates to new page', async ({ page }) => {
const errors = [];
page.on('console', msg => {
if (msg.type() === 'error') errors.push(msg.text());
});
await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' });
await page.waitForTimeout(2000);
// Click "Reactive Islands" nav link
await page.click('a[href*="geography.(reactive)"]:not([href*="runtime"])');
await page.waitForTimeout(3000);
// Should have navigated — URL must contain reactive
expect(page.url()).toContain('reactive');
// Page should show Reactive Islands content
const body = await page.textContent('body');
expect(body).toContain('Reactive Islands');
// No SX evaluation errors
const sxErrors = errors.filter(e => e.includes('Undefined symbol'));
expect(sxErrors).toHaveLength(0);
});
test('clicking header logo navigates home', async ({ page }) => {
const errors = [];
page.on('console', msg => {
if (msg.type() === 'error') errors.push(msg.text());
});
await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' });
await page.waitForTimeout(2000);
// Click the logo in the header island
await page.click('[data-sx-island="layouts/header"] a[href="/sx/"]');
await page.waitForTimeout(3000);
// Should have navigated to home
expect(page.url()).toMatch(/\/sx\/?$/);
// No SX evaluation errors
const sxErrors = errors.filter(e => e.includes('Undefined symbol'));
expect(sxErrors).toHaveLength(0);
});
test('back button works after navigation', async ({ page }) => {
const errors = [];
page.on('console', msg => {
if (msg.type() === 'error') errors.push(msg.text());
});
await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' });
await page.waitForTimeout(2000);
// Navigate to Reactive Islands
await page.click('a[href*="geography.(reactive)"]:not([href*="runtime"])');
await page.waitForTimeout(3000);
expect(page.url()).toContain('reactive');
// Go back
await page.goBack();
await page.waitForTimeout(3000);
// Should be back at Geography
expect(page.url()).toContain('geography');
expect(page.url()).not.toContain('reactive');
// Geography heading should be visible
const heading = await page.locator('h1, h2').first();
await expect(heading).toContainText('Geography', { timeout: 5000 });
// No SX errors
const sxErrors = errors.filter(e => e.includes('Undefined symbol'));
expect(sxErrors).toHaveLength(0);
});
test('no console errors on page load', async ({ page }) => {
const errors = [];
page.on('console', msg => {
if (msg.type() === 'error' && !msg.text().includes('404'))
errors.push(msg.text());
});
await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' });
await page.waitForTimeout(3000);
// No JIT or SX errors
const sxErrors = errors.filter(e =>
e.includes('Undefined symbol') || e.includes('Not callable'));
expect(sxErrors).toHaveLength(0);
});
test('copyright shows current route after SX navigation', async ({ page }) => {
await page.goto(BASE_URL + '/sx/', { waitUntil: 'networkidle' });
await page.waitForTimeout(3000);
// Mark the page to verify SX navigation (not full reload)
await page.evaluate(() => window.__sx_nav_marker = true);
// Before: copyright shows the current path
const before = await page.evaluate(() =>
document.querySelector('[data-sx-lake="copyright"]')?.textContent);
expect(before).toContain('/sx/');
// Navigate via SX (sx-get link)
await page.click('a[sx-get*="(geography)"]');
await page.waitForTimeout(3000);
// Verify SX navigation (marker survives SX nav, lost on reload)
const marker = await page.evaluate(() => window.__sx_nav_marker);
expect(marker).toBe(true);
// After: copyright must still show a route path
const after = await page.evaluate(() =>
document.querySelector('[data-sx-lake="copyright"]')?.textContent);
expect(after).toContain('geography');
});
test('stepper persists index across navigation', async ({ page }) => {
await page.goto(BASE_URL + '/sx/', { waitUntil: 'networkidle' });
await page.waitForTimeout(3000);
// Get the initial stepper index
const getIndex = () => page.evaluate(() => {
const el = document.querySelector('[data-sx-island="home/stepper"]');
const m = el && el.textContent.match(/(\d+)\s*\/\s*\d+/);
return m ? parseInt(m[1]) : null;
});
const initial = await getIndex();
expect(initial).not.toBeNull();
// Advance the stepper
await page.evaluate(() => {
const btns = document.querySelectorAll('[data-sx-island="home/stepper"] button');
if (btns.length >= 2) btns[1].click(); // next button
});
await page.waitForTimeout(500);
const advanced = await getIndex();
expect(advanced).toBe(initial + 1);
// Navigate away
await page.click('a[sx-get*="(geography)"]');
await page.waitForTimeout(2000);
// Navigate back home
await page.evaluate(() => {
const link = document.querySelector('a[sx-get*="/sx/"]');
if (link) link.click();
});
await page.waitForTimeout(3000);
// Stepper should still show the advanced index
const afterNav = await getIndex();
expect(afterNav).toBe(advanced);
});
test('header island renders with SSR', async ({ page }) => {
await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' });
// Header should be visible
const header = page.locator('[data-sx-island="layouts/header"]');
await expect(header).toBeVisible();
// Should contain the logo
await expect(header).toContainText('sx');
// Should contain copyright
await expect(header).toContainText('Giles Bradshaw');
});
});