@voxgig/sdkgen 4.5.3 → 4.7.0

package/project/.sdk/src/cmp/js/TestEntity_js.ts

@@ -30,7 +30,11 @@ import {
   cmp,
   each,
   isAuthActive,
-  entityDataIdField, envName, envToken
+  serverVarEnv,
+  serverVariables,
+  entityDataIdField, envName, envToken,
+  jsKey,
+  jsProp
 } from '@voxgig/sdkgen'
 
 
@@ -63,13 +67,32 @@ const TestEntity = cmp(function TestEntity(props: any) {
   const ENTENVNAME = envToken(entity.name)
   const authActive = isAuthActive(model)
   const apikeyEnvEntry = authActive
-    ? `\n    '${PROJENVNAME}_APIKEY': 'NONE',`
+    ? `\n    '${PROJENVNAME}_APIKEY': '',`
     : ''
   const apikeyLiveField = authActive
     ? `
         apikey: env.${PROJENVNAME}_APIKEY,`
     : ''
 
+  // A templated server URL (OpenAPI server variables) makes a LIVE client
+  // impossible to construct without values: makeOptions raises rather than
+  // request a URL with a literal `{account_id}` in it. So the live suite
+  // takes them from the environment the same way it takes the apikey.
+  //
+  // Keys are quoted and the env read is bracketed via jsKey/jsProp: a server
+  // variable name is spec-derived and need not be a JS identifier — the URL
+  // grammar admits a leading digit ({2fa}), and a declared-but-unreferenced
+  // variable ({edge-zone}) is not constrained at all. Bare `name:` and
+  // `env.PROJ_SERVER_EDGE-ZONE` are both syntax errors.
+  const svars = serverVariables(model)
+  const serverEnvEntry = svars
+    .map((v: any) => `\n    '${serverVarEnv(PROJENVNAME, v.name)}': ${JSON.stringify(v.dflt)},`).join('')
+  const serverLiveField = 0 === svars.length ? '' : `
+        server: {${svars
+      .map((v: any) => `
+          ${jsKey(v.name)}: ${jsProp('env', serverVarEnv(PROJENVNAME, v.name))},`).join('')}
+        },`
+
   // TODO: should be a utility function
   const ff = projectPath('src/cmp/js/fragment/')
 
@@ -143,16 +166,23 @@ function basicSetup(extra) {
   const env = envOverride({
     '${PROJENVNAME}_TEST_${ENTENVNAME}_ENTID': idmap,
     '${PROJENVNAME}_TEST_LIVE': 'FALSE',
-    '${PROJENVNAME}_TEST_EXPLAIN': 'FALSE',${apikeyEnvEntry}
+    '${PROJENVNAME}_TEST_EXPLAIN': 'FALSE',${apikeyEnvEntry}${serverEnvEntry}
   })
 
   idmap = env['${PROJENVNAME}_TEST_${ENTENVNAME}_ENTID']
 
   if ('TRUE' === env.${PROJENVNAME}_TEST_LIVE) {
     client = new ${model.Name}SDK(merge([
-      {${apikeyLiveField}
+      // FIRST, so the generated fields below win: sdk-test-control.json's
+      // test.client.options adds to the live client, it does not redirect it.
+      liveClientOptions(),
+      {${apikeyLiveField}${serverLiveField}
       },
-      extra
+      // 'extra || {}', not a bare 'extra': struct.merge returns UNDEFINED when
+      // the last entry is undefined, and basicSetup is normally called with no
+      // argument at all - so a bare 'extra' silently discarded the apikey and
+      // server values above and handed the SDK undefined.
+      extra || {}
     ]))
   }
 

package/project/.sdk/src/cmp/js/Test_js.ts

@@ -3,7 +3,8 @@ import type {
   ModelEntity
 } from '@voxgig/apidef'
 
-import { cmp, each, Folder, entityCollection } from '@voxgig/sdkgen'
+import { cmp, each, Folder, entityCollection,
+  TestControl } from '@voxgig/sdkgen'
 
 
 import { TestDirect } from './TestDirect_js'
@@ -16,6 +17,9 @@ const Test = cmp(function Test(props: any) {
 
   Folder({ name: 'test' }, () => {
 
+    // Write-once: a project's edited control file survives regeneration.
+    TestControl({ target, dir: 'test' })
+
     Folder({ name: 'entity' }, () => {
       const entity = each(entityCollection(model))
         .filter((e: any) => false !== e.active)

package/project/.sdk/src/cmp/js/fragment/Direct.test.fragment.js

@@ -2,7 +2,7 @@
 const envlocal = __dirname + '/../../../.env.local'
 require('dotenv').config({ quiet: true, path: [envlocal] })
 
-const { test, describe } = require('node:test')
+const { test, describe, afterEach } = require('node:test')
 const assert = require('node:assert')
 
 
@@ -10,11 +10,17 @@ const { ProjectNameSDK } = require('../../..')
 
 const {
   envOverride,
+  liveClientOptions,
+  liveDelay,
 } = require('../../utility')
 
 
 describe('EntityNameDirect', async () => {
 
+  // Per-test live pacing. Delay is read from sdk-test-control.json's
+  // `test.live.delayMs`; only sleeps when PROJECTENV_TEST_LIVE=TRUE.
+  afterEach(liveDelay('PROJECTENV_TEST_LIVE'))
+
   test('direct-exists', async () => {
     const sdk = new ProjectNameSDK({
       // Concrete base: a live construction must satisfy any server

package/project/.sdk/src/cmp/js/fragment/Entity.test.fragment.js

@@ -5,7 +5,7 @@ require('dotenv').config({ quiet: true, path: [envlocal] })
 const Path = require('node:path')
 const Fs = require('node:fs')
 
-const { test, describe } = require('node:test')
+const { test, describe, afterEach } = require('node:test')
 const assert = require('node:assert')
 
 
@@ -13,6 +13,8 @@ const { ProjectNameSDK, BaseFeature, stdutil, config } = require('../../..')
 
 const {
   envOverride,
+  liveClientOptions,
+  liveDelay,
   makeCtrl,
   makeMatch,
   makeReqdata,
@@ -23,6 +25,10 @@ const {
 
 describe('EntityNameEntity', async () => {
 
+  // Per-test live pacing. Delay is read from sdk-test-control.json's
+  // `test.live.delayMs`; only sleeps when PROJECTENV_TEST_LIVE=TRUE.
+  afterEach(liveDelay('PROJECTENV_TEST_LIVE'))
+
   test('instance', async () => {
     const testsdk = ProjectNameSDK.test()
     const ent = testsdk.EntityName()

package/project/.sdk/src/cmp/kotlin/Config_kotlin.ts

@@ -7,6 +7,7 @@ import {
   each,
   isAuthActive,
   resolveAuthPrefix,
+  targetFeatures,
 } from '@voxgig/sdkgen'
 
 
@@ -36,7 +37,10 @@ const Config = cmp(async function Config(props: any) {
   const kotlinpackage = kotlinPackage(model)
 
   const entity = getModelPath(model, `main.${KIT}.entity`)
-  const feature = getModelPath(model, `main.${KIT}.feature`)
+  // Gated by the applicability tags, so this target never imports or
+  // registers a feature it has no source for. One rule, one place:
+  // helpers/applicability.
+  const feature = targetFeatures(model, target)
 
   const headers = getModelPath(model, `main.${KIT}.config.headers`) || {}
 

package/project/.sdk/src/cmp/kotlin/Main_kotlin.ts

@@ -4,6 +4,7 @@ import * as Path from 'node:path'
 import {
   cmp, each,
   File, Copy, Folder, Fragment,
+  TEST_CONTROL_EXCLUDE
 } from '@voxgig/sdkgen'
 
 
@@ -47,7 +48,7 @@ const Main = cmp(async function Main(props: any) {
   // token used throughout the templates (package/import statements).
   Copy({
     from: 'tm/' + target.name,
-    exclude: [/src\//],
+    exclude: [/src\//, TEST_CONTROL_EXCLUDE],
     replace: {
       ...props.ctx$.stdrep,
       KOTLINPACKAGE: kotlinpackage,

package/project/.sdk/src/cmp/kotlin/Test_kotlin.ts

@@ -3,7 +3,8 @@ import type {
   ModelEntity
 } from '@voxgig/apidef'
 
-import { cmp, each, Folder, entityCollection } from '@voxgig/sdkgen'
+import { cmp, each, Folder, entityCollection,
+  TestControl } from '@voxgig/sdkgen'
 
 
 import { TestEntity } from './TestEntity_kotlin'
@@ -20,6 +21,9 @@ const Test = cmp(function Test(props: any) {
 
   Folder({ name: 'test' }, () => {
 
+    // Write-once: a project's edited control file survives regeneration.
+    TestControl({ target, dir: 'test' })
+
     // The shared test infrastructure (RunnerSupport, FeatureHarness,
     // PipelineTest, FeatureTest, NetsimTest, PrimaryUtilityTest,
     // CustomUtilityTest, StructRunner/StructCorpusTest, ExistsTest and

package/project/.sdk/src/cmp/lean/Config_lean.ts

@@ -5,6 +5,7 @@ import {
   each,
   isAuthActive,
   resolveAuthPrefix,
+  targetFeatures,
 } from '@voxgig/sdkgen'
 
 import {
@@ -29,7 +30,10 @@ const Config = cmp(async function Config(props: any) {
   const model: Model = ctx$.model
 
   const entity = getModelPath(model, `main.${KIT}.entity`)
-  const feature = getModelPath(model, `main.${KIT}.feature`)
+  // Gated by the applicability tags, so this target never imports or
+  // registers a feature it has no source for. One rule, one place:
+  // helpers/applicability.
+  const feature = targetFeatures(model, target)
   const headers = getModelPath(model, `main.${KIT}.config.headers`) || {}
 
   const authActive = isAuthActive(model)

package/project/.sdk/src/cmp/lua/Config_lua.ts

@@ -15,6 +15,7 @@ import {
   isConfigData,
   resolveAuthPrefix,
   serverVariables,
+  targetFeatures,
 } from '@voxgig/sdkgen'
 
 
@@ -40,7 +41,10 @@ const Config = cmp(async function Config(props: any) {
   const model: Model = ctx$.model
 
   const entity = getModelPath(model, `main.${KIT}.entity`)
-  const feature = getModelPath(model, `main.${KIT}.feature`)
+  // Gated by the applicability tags, so this target never imports or
+  // registers a feature it has no source for. One rule, one place:
+  // helpers/applicability.
+  const feature = targetFeatures(model, target)
 
   const headers = getModelPath(model, `main.${KIT}.config.headers`) || {}
 

package/project/.sdk/src/cmp/lua/Main_lua.ts

@@ -4,6 +4,8 @@ import * as Path from 'node:path'
 import {
   cmp, each, names, cmap,
   List, File, Content, Copy, Folder, Fragment, Line, FeatureHook,
+  targetFeatures,
+  TEST_CONTROL_EXCLUDE
 } from '@voxgig/sdkgen'
 
 
@@ -31,7 +33,10 @@ const Main = cmp(async function Main(props: any) {
   const { model } = props.ctx$
 
   const entity: ModelEntity = getModelPath(model, `main.${KIT}.entity`)
-  const feature = getModelPath(model, `main.${KIT}.feature`)
+  // Gated by the applicability tags, so this target never imports or
+  // registers a feature it has no source for. One rule, one place:
+  // helpers/applicability.
+  const feature = targetFeatures(model, target)
 
   Package({ target })
 
@@ -40,7 +45,7 @@ const Main = cmp(async function Main(props: any) {
   // Copy tm/lua files with replacements
   Copy({
     from: 'tm/' + target.name,
-    exclude: [/src\//],
+    exclude: [/src\//, TEST_CONTROL_EXCLUDE],
     replace: {
       ...props.ctx$.stdrep,
     }

package/project/.sdk/src/cmp/lua/Package_lua.ts

@@ -9,6 +9,7 @@ import {
   keywords,
   repoInfo, packageName,
   packageVersion,
+  targetFeatures,
 } from '@voxgig/sdkgen'
 
 
@@ -78,7 +79,9 @@ dependencies = {
     // factory falls back to. The station feature additionally carries the
     // VENDORED voxgig_station library beside its adapter (no voxgig-station
     // rock exists to depend on - station design 9.2's registry-less tier).
-    const feature = getModelPath(model, `main.${KIT}.feature`)
+    // Gated: a feature that does not apply to lua must not be listed
+    // as a rockspec module — the require would not resolve.
+    const feature = targetFeatures(model, target)
     let featureModules = `    ["feature.base_feature"] = "feature/base_feature.lua",\n`
     each(feature, (f: any) => {
       featureModules +=

package/project/.sdk/src/cmp/lua/TestDirect_lua.ts

@@ -11,9 +11,13 @@ import {
   File,
   cmp,
   snakify,
-  isAuthActive, envName, envToken
+  isAuthActive, envName, envToken,
+  serverVarEnv,
+  serverVariables
 } from '@voxgig/sdkgen'
 
+import { formatLuaValue } from './utility_lua'
+
 
 function normalizePathParams(
   parts: string[],
@@ -64,12 +68,25 @@ const TestDirect = cmp(function TestDirect(props: any) {
 
   const authActive = isAuthActive(model)
   const apikeyEnvEntry = authActive
-    ? `\n    ["${PROJECTNAME}_APIKEY"] = "NONE",`
+    ? `\n    ["${PROJECTNAME}_APIKEY"] = "",`
     : ''
   const apikeyLiveField = authActive
     ? `\n      apikey = env["${PROJECTNAME}_APIKEY"],`
     : ''
 
+  // A templated server URL (OpenAPI server variables) makes a LIVE client
+  // impossible to construct without values: makeOptions raises rather than
+  // request a URL with a literal `{account_id}` in it. So the live suite
+  // takes them from the environment the same way it takes the apikey.
+  const svars = serverVariables(model)
+  const serverEnvEntry = svars
+    .map((v: any) => `\n    ["${serverVarEnv(PROJECTNAME, v.name)}"] = ${formatLuaValue(v.dflt)},`).join('')
+  const serverLiveField = 0 === svars.length ? '' : `
+      server = {${svars
+      .map((v: any) => `
+        ["${v.name}"] = env["${serverVarEnv(PROJECTNAME, v.name)}"],`).join('')}
+      },`
+
   const opnames = Object.keys(entity.op || {})
   const hasLoad = opnames.includes('load')
   const hasList = opnames.includes('list')
@@ -350,14 +367,21 @@ function ${entity.name}_direct_setup(mockres)
 
   local env = runner.env_override({
     ["${entidEnvVar}"] = {},
-    ["${PROJECTNAME}_TEST_LIVE"] = "FALSE",${apikeyEnvEntry}
+    ["${PROJECTNAME}_TEST_LIVE"] = "FALSE",${apikeyEnvEntry}${serverEnvEntry}
   })
 
   local live = env["${PROJECTNAME}_TEST_LIVE"] == "TRUE"
 
   if live then
-    local merged_opts = {${apikeyLiveField}
+    local merged_opts = {${apikeyLiveField}${serverLiveField}
     }
+    -- sdk-test-control.json's test.client.options goes UNDER the generated
+    -- fields: it adds to the live client, it does not redirect it.
+    for _k, _v in pairs(runner.live_client_options()) do
+      if merged_opts[_k] == nil then
+        merged_opts[_k] = _v
+      end
+    end
     local client = sdk.new(merged_opts)
     return {
       client = client,

package/project/.sdk/src/cmp/lua/TestEntity_lua.ts

@@ -24,9 +24,13 @@ import {
   buildIdNames,
   getMatchEntries,
   isAuthActive,
-  entityDataIdField, envName, envToken
+  entityDataIdField, envName, envToken,
+  serverVarEnv,
+  serverVariables
 } from '@voxgig/sdkgen'
 
+import { formatLuaValue } from './utility_lua'
+
 
 // See TestEntity_ts.ts for the GenCtx/OpGen contract.
 type GenCtx = {
@@ -62,12 +66,25 @@ const TestEntity = cmp(function TestEntity(props: any) {
 
   const authActive = isAuthActive(model)
   const apikeyEnvEntry = authActive
-    ? `\n    ["${PROJUPPER}_APIKEY"] = "NONE",`
+    ? `\n    ["${PROJUPPER}_APIKEY"] = "",`
     : ''
   const apikeyLiveField = authActive
     ? `\n        apikey = env["${PROJUPPER}_APIKEY"],`
     : ''
 
+  // A templated server URL (OpenAPI server variables) makes a LIVE client
+  // impossible to construct without values: makeOptions raises rather than
+  // request a URL with a literal `{account_id}` in it. So the live suite
+  // takes them from the environment the same way it takes the apikey.
+  const svars = serverVariables(model)
+  const serverEnvEntry = svars
+    .map((v: any) => `\n    ["${serverVarEnv(PROJUPPER, v.name)}"] = ${formatLuaValue(v.dflt)},`).join('')
+  const serverLiveField = 0 === svars.length ? '' : `
+        server = {${svars
+      .map((v: any) => `
+          ["${v.name}"] = env["${serverVarEnv(PROJUPPER, v.name)}"],`).join('')}
+        },`
+
   const idnames = buildIdNames(entity, basicflow)
   const idnamesStr = idnames.map(n => `"${n}"`).join(', ')
 
@@ -241,7 +258,7 @@ end)
   local env = runner.env_override({
     ["${PROJUPPER}_TEST_${envToken(entity.name)}_ENTID"] = idmap,
     ["${PROJUPPER}_TEST_LIVE"] = "FALSE",
-    ["${PROJUPPER}_TEST_EXPLAIN"] = "FALSE",${apikeyEnvEntry}
+    ["${PROJUPPER}_TEST_EXPLAIN"] = "FALSE",${apikeyEnvEntry}${serverEnvEntry}
   })
 
   local idmap_resolved = helpers.to_map(
@@ -262,7 +279,10 @@ end)
     Content(`
   if env["${PROJUPPER}_TEST_LIVE"] == "TRUE" then
     local merged_opts = vs.merge({
-      {${apikeyLiveField}
+      -- FIRST, so the generated fields below win: sdk-test-control.json's
+      -- test.client.options adds to the live client, it does not redirect it.
+      runner.live_client_options(),
+      {${apikeyLiveField}${serverLiveField}
       },
       extra or {},
     })

package/project/.sdk/src/cmp/lua/Test_lua.ts

@@ -3,7 +3,8 @@ import type {
   ModelEntity
 } from '@voxgig/apidef'
 
-import { cmp, each, Folder, File, Content, entityCollection } from '@voxgig/sdkgen'
+import { cmp, each, Folder, File, Content, entityCollection,
+  TestControl } from '@voxgig/sdkgen'
 
 
 import { TestEntity } from './TestEntity_lua'
@@ -17,6 +18,9 @@ const Test = cmp(function Test(props: any) {
 
   Folder({ name: 'test' }, () => {
 
+    // Write-once: a project's edited control file survives regeneration.
+    TestControl({ target, dir: 'test' })
+
     // Generate exists test
     File({ name: 'exists_test.' + target.ext }, () => {
       Content(`-- ${model.const.Name} SDK exists test

package/project/.sdk/src/cmp/ocaml/Config_ocaml.ts

@@ -9,6 +9,7 @@ import {
   isAuthActive,
   isConfigData,
   resolveAuthPrefix,
+  targetFeatures,
 } from '@voxgig/sdkgen'
 
 
@@ -34,7 +35,10 @@ const Config = cmp(async function Config(props: any) {
 
   const model: Model = ctx$.model
 
-  const feature = getModelPath(model, `main.${KIT}.feature`)
+  // Gated by the applicability tags, so this target never imports or
+  // registers a feature it has no source for. One rule, one place:
+  // helpers/applicability.
+  const feature = targetFeatures(model, target)
 
   // The canonical config OBJECT and its JSON, from the shared helper. Both
   // representations render from the same `def`, so they cannot describe

package/project/.sdk/src/cmp/ocaml/Gitignore_ocaml.ts

@@ -19,6 +19,7 @@ const Gitignore = cmp(async function Gitignore(_props: any) {
 a.out
 run_sdk_test
 run_struct_corpus
+run_primary_corpus
 
 # dune (unused; the build is stock ocamlc via the Makefile)
 _build/

package/project/.sdk/src/cmp/perl/Main_perl.ts

@@ -4,6 +4,8 @@ import * as Path from 'node:path'
 import {
   cmp, each, names,
   File, Content, Copy, Folder, Fragment,
+  targetFeatures,
+  TEST_CONTROL_EXCLUDE
 } from '@voxgig/sdkgen'
 
 
@@ -36,7 +38,10 @@ const Main = cmp(async function Main(props: any) {
   const { model } = props.ctx$
 
   const entity: ModelEntity = getModelPath(model, `main.${KIT}.entity`)
-  const feature = getModelPath(model, `main.${KIT}.feature`)
+  // Gated by the applicability tags, so this target never imports or
+  // registers a feature it has no source for. One rule, one place:
+  // helpers/applicability.
+  const feature = targetFeatures(model, target)
 
   Package({ target })
 
@@ -45,7 +50,7 @@ const Main = cmp(async function Main(props: any) {
   // Copy tm/perl files with replacements
   Copy({
     from: 'tm/' + target.name,
-    exclude: [/src\//],
+    exclude: [/src\//, TEST_CONTROL_EXCLUDE],
     replace: {
       ...props.ctx$.stdrep,
     }

package/project/.sdk/src/cmp/perl/TestDirect_perl.ts

@@ -11,9 +11,13 @@ import {
   File,
   cmp,
   snakify,
-  isAuthActive, envName, envToken
+  isAuthActive, envName, envToken,
+  serverVarEnv,
+  serverVariables
 } from '@voxgig/sdkgen'
 
+import { perlStringLiteral } from './utility_perl'
+
 
 function normalizePathParams(
   parts: string[],
@@ -74,12 +78,25 @@ const TestDirect = cmp(function TestDirect(props: any) {
 
   const authActive = isAuthActive(model)
   const apikeyEnvEntry = authActive
-    ? `\n    '${PROJECTNAME}_APIKEY' => 'NONE',`
+    ? `\n    '${PROJECTNAME}_APIKEY' => '',`
     : ''
   const apikeyLiveField = authActive
     ? `\n      'apikey' => $env->{'${PROJECTNAME}_APIKEY'},`
     : ''
 
+  // A templated server URL (OpenAPI server variables) makes a LIVE client
+  // impossible to construct without values: makeOptions raises rather than
+  // request a URL with a literal `{account_id}` in it. So the live suite
+  // takes them from the environment the same way it takes the apikey.
+  const svars = serverVariables(model)
+  const serverEnvEntry = svars
+    .map((v: any) => `\n    '${serverVarEnv(PROJECTNAME, v.name)}' => ${perlStringLiteral(v.dflt)},`).join('')
+  const serverLiveField = 0 === svars.length ? '' : `
+      'server' => {${svars
+      .map((v: any) => `
+        '${v.name}' => $env->{'${serverVarEnv(PROJECTNAME, v.name)}'},`).join('')}
+      },`
+
   const opnames = Object.keys(entity.op || {})
   const hasLoad = opnames.includes('load')
   const hasList = opnames.includes('list')
@@ -377,13 +394,17 @@ sub ${entity.name}_direct_setup {
 
   my $env = ${N}TestRunner::env_override({
     '${entidEnvVar}' => {},
-    '${PROJECTNAME}_TEST_LIVE' => 'FALSE',${apikeyEnvEntry}
+    '${PROJECTNAME}_TEST_LIVE' => 'FALSE',${apikeyEnvEntry}${serverEnvEntry}
   });
 
   my $live = ((($env->{'${PROJECTNAME}_TEST_LIVE'}) || '') eq 'TRUE') ? 1 : 0;
 
   if ($live) {
-    my $client = ${N}SDK->new({${apikeyLiveField}
+    # live_client_options() FIRST so the generated fields below win:
+    # sdk-test-control.json's test.client.options adds to the live client,
+    # it does not redirect it (a later key wins in a Perl hash literal).
+    my $client = ${N}SDK->new({
+      %{ ${N}TestRunner::live_client_options() },${apikeyLiveField}${serverLiveField}
     });
     return {
       'client' => $client,

package/project/.sdk/src/cmp/perl/TestEntity_perl.ts

@@ -17,9 +17,13 @@ import {
   each,
   buildIdNames,
   getMatchEntries,
-  isAuthActive, envName, envToken
+  isAuthActive, envName, envToken,
+  serverVarEnv,
+  serverVariables
 } from '@voxgig/sdkgen'
 
+import { perlStringLiteral } from './utility_perl'
+
 
 // See TestEntity_ts.ts for the GenCtx/OpGen contract. Flow-step variables
 // are held in a single declared perl hash (%V) so generated steps never
@@ -54,12 +58,25 @@ const TestEntity = cmp(function TestEntity(props: any) {
 
   const authActive = isAuthActive(model)
   const apikeyEnvEntry = authActive
-    ? `\n    '${PROJUPPER}_APIKEY' => 'NONE',`
+    ? `\n    '${PROJUPPER}_APIKEY' => '',`
     : ''
   const apikeyLiveField = authActive
     ? `\n        'apikey' => $env->{'${PROJUPPER}_APIKEY'},`
     : ''
 
+  // A templated server URL (OpenAPI server variables) makes a LIVE client
+  // impossible to construct without values: makeOptions raises rather than
+  // request a URL with a literal `{account_id}` in it. So the live suite
+  // takes them from the environment the same way it takes the apikey.
+  const svars = serverVariables(model)
+  const serverEnvEntry = svars
+    .map((v: any) => `\n    '${serverVarEnv(PROJUPPER, v.name)}' => ${perlStringLiteral(v.dflt)},`).join('')
+  const serverLiveField = 0 === svars.length ? '' : `
+        'server' => {${svars
+      .map((v: any) => `
+          '${v.name}' => $env->{'${serverVarEnv(PROJUPPER, v.name)}'},`).join('')}
+        },`
+
   const idnames = buildIdNames(entity, basicflow)
   const idnamesStr = idnames.map(n => `'${n}'`).join(', ')
 
@@ -193,7 +210,7 @@ BASIC_FLOW: {
   my $env = ${N}TestRunner::env_override({
     '${ENTIDVAR}' => $idmap,
     '${PROJUPPER}_TEST_LIVE' => 'FALSE',
-    '${PROJUPPER}_TEST_EXPLAIN' => 'FALSE',${apikeyEnvEntry}
+    '${PROJUPPER}_TEST_EXPLAIN' => 'FALSE',${apikeyEnvEntry}${serverEnvEntry}
   });
 
   my $idmap_resolved = ${N}Helpers::to_map($env->{'${ENTIDVAR}'});
@@ -213,7 +230,10 @@ BASIC_FLOW: {
     Content(`
   if ((($env->{'${PROJUPPER}_TEST_LIVE'}) || '') eq 'TRUE') {
     my $merged_opts = Voxgig::Struct::merge([
-      {${apikeyLiveField}
+      # FIRST, so the generated fields below win: sdk-test-control.json's
+      # test.client.options adds to the live client, it does not redirect it.
+      ${N}TestRunner::live_client_options(),
+      {${apikeyLiveField}${serverLiveField}
       },
       (Voxgig::Struct::ismap($extra) ? $extra : {}),
     ]);

package/project/.sdk/src/cmp/perl/Test_perl.ts

@@ -3,7 +3,8 @@ import type {
   ModelEntity
 } from '@voxgig/apidef'
 
-import { cmp, each, Folder, File, Content, entityCollection } from '@voxgig/sdkgen'
+import { cmp, each, Folder, File, Content, entityCollection,
+  TestControl } from '@voxgig/sdkgen'
 
 
 import { TestEntity } from './TestEntity_perl'
@@ -17,6 +18,9 @@ const Test = cmp(function Test(props: any) {
 
   Folder({ name: 't' }, () => {
 
+    // Write-once: a project's edited control file survives regeneration.
+    TestControl({ target, dir: 't' })
+
     // Generate exists test
     File({ name: 'exists.t' }, () => {
       Content(`#!perl

package/project/.sdk/src/cmp/perl/utility_perl.ts

@@ -75,7 +75,17 @@ function clean(o: any, dropDefaults?: boolean): any {
 }
 
 
+// A Perl SINGLE-quoted string literal. Single quotes do not interpolate, so a
+// spec-derived value containing $foo or @foo survives verbatim; only the
+// backslash and the quote itself need escaping. A double-quoted literal (what
+// JSON.stringify emits) would interpolate them.
+function perlStringLiteral(val: string): string {
+  return "'" + String(val).replace(/\\/g, '\\\\').replace(/'/g, "\\'") + "'"
+}
+
+
 export {
+  perlStringLiteral,
   clean,
   projectPath,
 }