Documntation corrected and test case bug fixed

⎕IO and ⎕ML were not set for test cases.

Author: aplteam

APLSource/EventCodes-21.class

@@ -1,5 +1,5 @@
 :Class EventCodes
-⍝ This class carries all trappable event codes in Dyalog APL up to -- and including -- version 15.0.\\
+⍝ This class carries all trappable event codes in Dyalog APL up to -- and including -- version 17.0.\\
 ⍝ For transforming a number to the symbolic name see function `GetName`.
 
     ⎕IO←1 ⋄ ⎕ML←1
@@ -60,11 +60,13 @@
 
     ∇ r←Version
       :Access Public Shared
-      r←({⍵}⍕⎕THIS)'1.2.0.5' '2018-02-19'
+      r←({⍵}⍕⎕THIS)'1.2.1.7' '2018-10-22'
     ∇
 
     ∇ History
       :Access Public Shared
+      ⍝ * 1.2.1
+      ⍝   * Fix: documentation mentioned "up to 15.0" when it's actually up to and including 17.0
       ⍝ * 1.2.0
       ⍝   * First release after the conversion from the APL wiki to GitHub.
       ⍝ * 1.1.0

APLSource/TestCases-11/Initial-1.function

@@ -1,2 +1,3 @@
  Initial
+ ⎕IO←0 ⋄ ⎕ML←3
  #.Tester.EstablishHelpersIn ⍬

APLSource/TestCases-11/Test_ZZZ_999-e1.function

@@ -1,38 +1,33 @@
- R←Test_ZZZ_999(stopFlag batchFlag);v;n;d;xml;rf;f1;f2;f3;⎕TRAP
- ⍝ Check the "Version" function and publish.config and history.txt
+ R←Test_ZZZ_999(stopFlag batchFlag);v;n;d;xml;rf;f1;f2;⎕TRAP
+ ⍝ Check the "Version" function and publish.config.
  ⎕TRAP←(999 'C' '. ⍝ Deliberate error')(0 'N')
  R←∆Failed
 
- rf←##.EventCodes
+ rf←#._EventCodes.EventCodes
 
 ⍝ First we check whether "Version" returns a valid result:
  (n v d)←rf.Version
+ v←{⍵/⍨3>+\'.'=⍵}v      ⍝ Remove build ID
  f1←~5≤⍴v
  f1∨←2≠'.'+.=v
  f1∨←~∧/⎕D∊⍨v~'.'
 
  f1∨←10≠⍴d
- f1∨←d[4 7]∨.≠'-'
+ f1∨←d[4 7+⎕IO]∨.≠'-'
  f1∨←~∧/⎕D∊⍨d~'-'
+
 ⍝ publish.config must be in line with what "Version" returns of course:
  xml←⎕XML'flat'#.APLTreeUtils.ReadUtf8File'publish.config'
- f2←v≢2⊃xml[xml[;1]⍳⊂'version';]
- f2∨←d≢2⊃xml[xml[;1]⍳⊂'date';]
-
-⍝ history.txt might be useful during development but must not exist
-⍝ when the project is checked in:
- f3←⎕NEXISTS'history.txt'
+ f2←v≢(2+⎕IO)⊃xml[xml[;1+⎕IO]⍳⊂'version';]
+ f2∨←d≢(2+⎕IO)⊃xml[xml[;1+⎕IO]⍳⊂'date';]
 
  :If f1
      ⎕←'Result of the "Version" function is invalid.'
  :EndIf
  :If f2
-     ⎕←'The contents of "/publish.config" is not in line with "Version".'
- :EndIf
- :If f3
-     ⎕←'There is a file "history.txt" but it shouldn''t.'
+     ⎕←'The contents of "publish.config" is not in line with "Version".'
  :EndIf
 
- →FailsIf f1∨f2∨f3
+ →FailsIf f1∨f2
 
  R←∆OK

publish.config

@@ -1 +1 @@
-<tool name="EventCodes">  <version>1.2.0</version>  <date>2018-02-19</date>  <container>#._EventCodes</container>  <files></files>  <needs>    <script>APLTreeUtils</script>    <script>FilesAndDirs</script>    <script>OS</script>    <script>Tester</script>  </needs>  <scriptOnly>1</scriptOnly>  <wsid>Development</wsid>  <autoload>1</autoload>  <buildid>5</buildid></tool>
+<tool name="EventCodes">  <version>1.2.1</version>  <date>2018-10-22</date>  <container>#._EventCodes</container>  <files></files>  <needs>    <script>APLTreeUtils</script>    <script>FilesAndDirs</script>    <script>OS</script>    <script>Tester</script>  </needs>  <scriptOnly>1</scriptOnly>  <wsid>Development</wsid>  <autoload>1</autoload>  <buildid>7</buildid></tool>