Redesigned version 1.0.0

Author: aplteam

.gitignore

@@ -2,4 +2,4 @@ aplcore
 /Dist/
 CONTINUE.dws
 conga.crash
-/TestResults/
+personal_access_token.txt

APLSource/Admin/Make.aplf

@@ -1,4 +1,15 @@
- Make flag
- :If flag
-     ⎕SE.MakeHelpers.CreateTatinPackageFromSingleScript ##.GitHubAPIv3
- :EndIf
+ Make flag;M;C;path;zipFilename;res;version;cfg;parms
+:If flag
+    M←⎕SE.MakeHelpers
+    C←##.CiderConfig
+    path←C.HOME,'/',C.CIDER.distributionFolder
+    cfg←⎕JSON⍠('Dialect' 'JSON5')⊢⊃⎕NGET C.HOME,'/apl-package.json'
+    version←M.CompileVersionNumberPattern cfg
+    M.RecreateFolder path
+    parms←⎕SE.Tatin.CreateBuildParms C.HOME
+    parms.targetPath←path
+    parms.version←version
+    zipFilename←⎕SE.Tatin.BuildPackage parms
+    ⎕←'*** New version build successfully:',M.CR,'   ',zipFilename
+:EndIf
+⍝Done

APLSource/GitHubAPIv3.aplc

@@ -1,2 +1,5 @@
  Initial
  ∆MyGitHubAPI←⎕NEW ##.GitHubAPIv3(,⊂'aplteam')
+ :If FilesAndDirs.IsFile ##.TatinVars.HOME,'/personal_access_token.txt'
+     ∆MyGitHubAPI.personal_access_token←⎕TC~⍨⊃FilesAndDirs.NGET ##.TatinVars.HOME,'/personal_access_token.txt'
+ :EndIf

APLSource/TestCases/Initial.aplf

@@ -1,18 +1,30 @@
- Prepare;testPath;testFilename;ask;answer
+ Prepare;testPath;testFilename;ask;answer;options;flag;ind
+⍝ Creates an instance of the class `Tester2` named `T` and configures it for
+⍝ Assumes that the project is handled by the project manager "Cider", and that there is
+⍝ a namespace ##.CiderConfig available with the Cider config parameters.
+⍝ As a side effect is creates a folder "TestResults" in the project's root folder if the
+⍝ user wants to do code coverage with the `CodeCoverage` class.
  ⎕IO←1 ⋄ ⎕ML←1
  T←⎕NEW Tester2 ⎕THIS
- testPath←(⊃1 ⎕NPARTS''),'TestResults'
+ testPath←##.CiderConfig.HOME,'/TestResults'
  testFilename←testPath,'/CodeCoverage'
+ flag←0
  :If ⎕NEXISTS testPath
-     :If ⎕NEXISTS testFilename,'.dcf'
-         ask←{⎕←⍵,'; 1=append, 2=replace' ⋄ a←⎕ ⋄ ~(⊂a)∊1 2:∇ ⍵ ⋄ ⊃a}
-         answer←⊃ask'Coverage file already exists'
-         :If 2≡answer
-             1 ⎕NDELETE testFilename,'.dcf'
+     :If ⎕NEXISTS testFilename,'.profile'
+         ind←('Code Coverage' 0 1)CommTools.Select'Append' 'Replace' 'Neither'
+         →(3=ind)/0
+         flag←1
+         :If 2=ind
+             1 CodeCoverage.DeleteFiles testFilename
          :EndIf
+     :Else
+         flag←0 CommTools.YesOrNo'Code coverage?'
      :EndIf
+ :Else
+     flag←0 CommTools.YesOrNo'Code coverage?'
+ :EndIf
+ :If flag
+     3 ⎕MKDIR testPath  ⍝
+     T.codeCoverage←⎕NEW CodeCoverage(,⊂'#.',{⍵,'.',⍵}2↓⍕⎕THIS.##)
+     T.codeCoverage.filename←testFilename
  :EndIf
- 3 ⎕MKDIR testPath  ⍝
- T.codeCoverage←⎕NEW CodeCoverage(,⊂'#.',{⍵,'.',⍵}2↓⍕⎕THIS.##)
- T.codeCoverage.filename←testFilename
-⍝Done

APLSource/TestCases/Prepare.aplf

@@ -1,8 +1,16 @@
- RunTests;htmlFilename
+ RunTests;htmlFilename;verbose;option
+⍝ 1. Prepares the test framework
+⍝ 2. Runs all test cases
+⍝ 3. Processes the code coverage data (if collected)
+⍝ 4. Asks the user whether the code coverage report should be put on view
  Prepare
  T.Run 1
- htmlFilename←CodeCoverage.ProcessDataAndCreateReport T.codeCoverage.filename
- :If 0 ∆YesOrNo'View CodeCoverage report?'
-     APLTreeUtils2.GoToWebPage'file://',htmlFilename
+ :If 0<≢T.codeCoverage
+     {}CodeCoverage.ProcessData T.codeCoverage.filename
+     option←'Type of code coverage report' 0 1 CommTools.Select'Overview' 'Verbose' 'None'
+     :If 3>option
+         verbose←2=option
+         htmlFilename←verbose CodeCoverage.CreateReport T.codeCoverage.filename
+         ⎕←']Open file://',htmlFilename
+     :EndIf
  :EndIf
-⍝Done

APLSource/TestCases/RunTests.aplf

@@ -0,0 +1,8 @@
+ (success log)←RunTestsInBatchMode;rc
+⍝ Runs all test with the batch flag on and the debug flag off.
+⍝ Returns a two-item vector:\\
+⍝ [1] Boolean with 1 indicating success and 0 failure\\
+⍝ [2] A vector of character vectors with the messages
+ Prepare
+ (rc log)←T.RunBatchTests 0
+ success←rc=0

APLSource/TestCases/RunTestsInBatchMode.aplf

@@ -1,10 +1,8 @@
- R←Test_GetRelease_005(stopFlag batchFlag);⎕TRAP;data;more;rc
+ R←Test_GetRelease_005(stopFlag batchFlag);⎕TRAP;data
 ⍝ Get information regarding the latest release with the dedicated method `GetLatestReleaseInfo`
  ⎕TRAP←(999 'C' '. ⍝ Deliberate error')(0 'N')
  R←T._Failed
- (rc more data)←∆MyGitHubAPI.GetLatestReleaseInfo'TestRepo'
- →T.PassesIf 0=rc
- →T.PassesIf 0=≢more
+ data←∆MyGitHubAPI.GetLatestReleaseInfo'TestRepo'
  →T.PassesIf'aplteam'≡data.author.login
  →T.PassesIf'v2.0.0'≡data.tag_name
 

APLSource/TestCases/Test_GetRelease_005.aplf

@@ -1,11 +1,12 @@
- R←Test_GetRelease_006(stopFlag batchFlag);⎕TRAP;data;more;rc
+ R←Test_GetRelease_006(stopFlag batchFlag);⎕TRAP;data
 ⍝ Get list of releases with the dedicated method `GetAllReleases`
  ⎕TRAP←(999 'C' '. ⍝ Deliberate error')(0 'N')
  R←T._Failed
 
- (rc more data)←∆MyGitHubAPI.GetAllReleases'TestRepo'
- →T.PassesIf 0=rc
- →T.PassesIf 0=≢more
+ data←∆MyGitHubAPI.GetAllReleases'TestRepo'
+ →T.PassesIf(≢data)∊3 4  ⍝ Only users with "Push" rights will see the draft release!
+
+ data←1 ∆MyGitHubAPI.GetAllReleases'TestRepo'
  →T.PassesIf(≢data.name)∊3 4  ⍝ Only users with "Push" rights will see the draft release!
 
  R←T._OK

APLSource/TestCases/Test_GetRelease_006.aplf

@@ -1,11 +1,9 @@
- R←Test_GetRelease_007(stopFlag batchFlag);⎕TRAP;data;more;rc
+ R←Test_GetRelease_007(stopFlag batchFlag);⎕TRAP;data
 ⍝ Get a specific release with `GetRelease`.
  ⎕TRAP←(999 'C' '. ⍝ Deliberate error')(0 'N')
  R←T._Failed
 
- (rc more data)←∆MyGitHubAPI.GetReleaseInfoByTagName'TestRepo' 'v1.0.0'
- →T.PassesIf 0=rc
- →T.PassesIf 0=≢more
+ data←∆MyGitHubAPI.GetReleaseInfoByTagName'TestRepo' 'v1.0.0'
  →T.PassesIf data.tag_name≡'v1.0.0'
 
  R←T._OK