NuGet tests fixed

Author: aplteam

APLSource/.linkconfig

@@ -1 +1 @@
-{  LinkVersion: { ID: "4.1.5"},  SourceFlags: [    {      Name: "Cider.CheckForGit",      Stop: [        5,      ],    },  ],}
+{  LinkVersion: { ID: "4.1.5"},  SourceFlags: [    {      Name: "Cider.CheckForGit",      Stop: [        5,      ],    },  ],}

APLSource/Cider/History.apla

@@ -1,5 +1,5 @@
 (
- '* 0.48.2 ⋄ 2025-06-30'
+ '* 0.48.2 ⋄ 2025-07-12'
  '  * A rename operation in Tatin required a change in Cider''s `InjectTatinVars` function'
  '* 0.48.1 ⋄ 2025-06-26'
  '  * Reference added to all help pages regarding the full documentation'

APLSource/Cider/InjectTatinVars.aplf

@@ -14,7 +14,7 @@
  ref←⎕NULL
  :If ⎕NEXISTS folder,'/',⎕SE._Tatin.Registry.CFG_Name
 
-     ⍝ With Tatin 120.1 "ReadPackageConfigFile" was renamed to "GetPackageConfigFileAsNS"
+     ⍝ With Tatin 121.0 "ReadPackageConfigFile" was renamed to "GetPackageConfigFileAsNS"
      ⍝ For compatability we make sure that Cider works with both versions:
      :If 3=⎕SE._Tatin.Registry.⎕NC'ReadPackageConfigFile'
          cfg←⎕SE._Tatin.Registry.ReadPackageConfigFile folder

APLSource/Cider/OpenProject.aplf

@@ -20,6 +20,7 @@
      parms←CreateOpenParms y
  :EndIf
  '"folder" must be specified'Assert 0<parms.⎕NC'folder'
+ parms.folder←F.EnforceSlash parms.folder
  '"folder" must be specified'Assert 0<≢parms.folder
  '"projectSpace" must be specified'Assert 0<parms.⎕NC'projectSpace'
  '"watch" must be one of: ns|dir|both'Assert(⊂⎕C parms.watch)∊'ns' 'dir' 'both' 'none' 0

APLSource/TestCases/Cleanup.aplf

@@ -7,5 +7,5 @@
      ⎕SE.Cider.DEVELOPMENT←∆QSE_CIDER_DEVELOPMENT
      ⎕←'Restored: ⎕SE.Cider.DEVELOPMENT←',⍕∆QSE_CIDER_DEVELOPMENT
  :EndIf
- ⎕EX'∆IsDotNetAvailable'
+ ⎕EX'∆DotNetIsAvailable'
  ⍝Done

APLSource/TestCases/Initial.aplf

@@ -1,6 +1,5 @@
  Initial ps
  ∆LINK_NOTIFY_WAS←⎕SE.Link.NOTIFY
- ∆IsDotNetAvailable←IsDotNetAvailable
  ⎕SE.Link.NOTIFY←1
  :If 0<⎕SE.Cider.⎕NC'DEVELOPMENT'
      ∆QSE_CIDER_DEVELOPMENT←⎕SE.Cider.DEVELOPMENT

APLSource/TestCases/Initial_NuGet.aplf

@@ -1,33 +1,9 @@
  r←{x}Initial_NuGet ps;info;rc;netcore
  r←1
- :If netcore←∆IsDotNetAvailable
-     :If (,1)≡,APLTreeUtils2.ToNum 2 ⎕NQ #'GetEnvironment' 'DYALOG_NETCORE'
-         rc←2250⌶0
-         :Select ⊃⊃rc
-         :Case ¯1
-             r←0
-             info←'.NET interface is not supported.'
-         :Case 0
-             r←0
-             info←'.NET interface is not configured.'
-         :Case 2
-             r←0
-             info←'The .NET interface is configured to use .NET Framework - incompatible with NuGet.'
-         :Else
-             info←''
-         :EndSelect
-         :If 0=2⊃rc
-             r←0
-             info←'Could not load the .NET bridge interface.'
-         :EndIf
-     :EndIf
- :Else
-     info←'.NET is not available, therefore the NuGet tests cannot be executed.'
- :EndIf
+ ∆DotNetIsAvailable←netcore←IsDotNetAvailable
  :If 0=netcore
  :AndIf ~ps.batchFlag
  :AndIf 0<≢info
      CommTools.Pause info,(⎕UCS 13),'Therefore the NuGet tests cannot be executed.'
      r←0
  :EndIf
-⍝Done

APLSource/TestCases/IsDotNetAvailable.aplf

@@ -1,12 +1,14 @@
- r←IsDotNetAvailable;res;parms;I
+ r←IsDotNetAvailable;res;parms;I;debug
 ⍝ Checks whether .NET (rather than .NET framework) is available at all.
 ⍝ We cannot do this in the current APL session on Windows because that might use .NET Framework but
 ⍝ .NET might still be available, so we start a process which will exit with 125 for "yes", 126 for "no"
 ⍝ and "123" for "error".
  :If 'Win'≡APLTreeUtils2.GetOperatingSystem ⍬
-     :If 0=r←1 1≡2↑2250⌶0  ⍝ The current APL ight already be configured for .NET
-         parms←∆NuGetTestProcessParms ⍬ ⍬
+     :If 0=r←1 1≡2↑2250⌶0  ⍝ The current APL might already be configured for .NET, so we know already
+         debug←0
+         parms←debug ∆NuGetTestProcessParms ⍬ ⍬
          I←⎕NEW APLProcess(,⊂parms)
+         'Something is wrong!'Assert I.ExitCode∊125 126
          r←125=I.ExitCode
      :EndIf
  :Else

APLSource/TestCases/Test_AddTatinDep_001.aplf

@@ -13,7 +13,7 @@
  config.CIDER.dependencies.tatin←'tatin-packages'
  config ##.Cider.Put_JSON5 configfile
 
- ##.Cider.C.YesOrNo_Answers←1 2⍴'ChangeCurrentDir@' 'n'
+ ##.Cider.C.AddAutomation'YesOrNo' 'ChangeCurrentDir@' 'n'
  parms←##.Cider.CreateOpenParms''
  parms.folder←tempDir
  parms.batch←1

APLSource/TestCases/Test_AddTatinDep_002.aplf

@@ -13,7 +13,7 @@
  config.CIDER.dependencies.tatin←'tatin-packages'
  config ##.Cider.Put_JSON5 configfile
 
- ##.Cider.C.YesOrNo_Answers←1 2⍴'ChangeCurrentDir@' 'n'
+ ##.Cider.C.AddAutomation'YesOrNo' 'ChangeCurrentDir@' 'n'
  parms←##.Cider.CreateOpenParms''
  parms.folder←tempDir
  parms.batch←1