Normalizing the project path in <OpenProject> was not perfect

Author: aplteam

APLSource/Cider/OpenProject.aplf

@@ -21,7 +21,8 @@
  :EndIf
  '"folder" must be specified'Assert 0<parms.⎕NC'folder'
  '"folder" must be specified'Assert 0<≢parms.folder
- parms.folder←{('/'≠1⍴⍵)∧(~':'∊⍵)∧('[]'≢⍵[1,≢⍵]):F.EnforceSlash'expand'F.NormalizePath F.PWD,'/',⍵ ⋄ ⍵}{⍵↓⍨+/∧\' '=⍵}parms.folder
+ parms.folder←{(~(1⍴⍵)∊'/\')∧(~':'∊⍵)∧('[]'≢⍵[1,≢⍵]):⊢F.EnforceSlash'expand'F.NormalizePath F.PWD,'/',⍵ ⋄ ⍵}{⍵↓⍨+/∧\' '=⍵}parms.folder
+ parms.folder←F.NormalizePath 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
  p←{⍺←parms.(verbose batch) ⋄ ⍺ PrintToSession ⍵}

APLSource/TestCases/Test_Open_091.aplf

@@ -0,0 +1,22 @@
+ R←Test_Open_091(stopFlag batchFlag);⎕TRAP;parms;success;log
+⍝ Opens a project with a path that starts with a "/" but later uses "\"; was once a bug
+ ⎕TRAP←(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
+ R←T._Failed
+
+ #.⎕SHADOW'TEMP' ⋄ 'TEMP'#.⎕NS''
+ parms←##.Cider.CreateOpenParms ⍬
+ parms.folder←##.CiderConfig.HOME,'\TestData\LxProject'
+ parms.parent←'#.TEMP'
+ ##.Cider.C.AddAutomation'YesOrNo' 'ExecLX@' 'y'
+ (success log)←##.Cider.OpenProject parms
+ 'Something is very wrong'Assert 1=success
+
+ →T.GoToTidyUp 1≠#.TEMP.DateAndTime.⎕IO
+ →T.GoToTidyUp 0≠#.TEMP.DateAndTime.DateAndTime.⎕IO
+
+ R←T._OK
+
+∆TidyUp:
+ ##.Cider.C.Cleanup
+ {}##.Cider.CloseProject #.TEMP.DateAndTime
+⍝Done