Merge pull request #14 from gjsjohnmurray/sapphire-goose

Adjust to work with InterSystems Testing Manager extension

Author: evshvarov

.vscode/extensions.json

@@ -5,6 +5,7 @@
         "github.copilot",
         "intersystems-community.servermanager",
         "intersystems-community.sqltools-intersystems-driver",
+        "intersystems-community.testingmanager",
         "intersystems-community.vscode-objectscript",
         "intersystems.language-server",
         "mohsen1.prettify-json",

.vscode/settings.json

@@ -16,6 +16,7 @@
       "links": {
         "UnitTest Portal": "${serverUrl}/csp/sys/%25UnitTest.Portal.Home.cls?$NAMESPACE=IRISAPP"
       }
-    }
+    },
+    "intersystems.testingManager.client.relativeTestRoot": "tests"
 
 }

iris.script

@@ -1,8 +1,11 @@
-    // Unexpire passwords to simplify dev mode. Comment these two lines for Production use
     zn "%SYS"
-    Do ##class(Security.Users).UnExpireUserPasswords("*")
 
-    ; enabling callin for Embedded Python
+    // Unexpire passwords and set up passwordless mode to simplify dev use.
+    // ** Comment out these two line for Production use **
+    do ##class(Security.Users).UnExpireUserPasswords("*")
+    zpm "install passwordless"
+
+    // Enable callin for Embedded Python
     do ##class(Security.Services).Get("%Service_CallIn",.prop)
     set prop("Enabled")=1
     set prop("AutheEnabled")=48
@@ -12,10 +15,13 @@
     do $SYSTEM.OBJ.Load("/home/irisowner/dev/Installer.cls", "ck")
     set sc = ##class(App.Installer).setup()
 
-    // comment the line below for production images
-    zpm "install passwordless"
-    // load all the code of the project as a ZPM package
     zn "IRISAPP"
 
+    // Create /_vscode web app to support intersystems-community.testingmanager VS Code extension
+    zpm "install vscode-per-namespace-settings"
+
+    // Configure %UnitTest in IRISAPP to suit the VS Code extension
+    set ^UnitTestRoot="/usr/irissys/.vscode/IRISAPP/UnitTestRoot"
+
     zpm "load /home/irisowner/dev/ -v":1:1
     halt

tests/dc/sample/unittests/TestPersistentClass.cls

@@ -1,4 +1,4 @@
-Class dc.sample.unittests.TestCreateRecord Extends %UnitTest.TestCase
+Class dc.sample.unittests.TestPersistentClass Extends %UnitTest.TestCase
 {
 
 Method TestCreateRecord()