add tests for char separately

Author: sloorush

tests/modified_assignment.apln

@@ -13,7 +13,7 @@
       Ints←#.random.Ints
       Chars←#.random.Chars
       ⎕DIV←1
-     
+      ⎕IO←1
 
       ⍝ data
       case←⍬
@@ -23,13 +23,6 @@
       data_i2←100 Ints 16
       data_i4←100 Ints 32
 
-    ⍝   data_char0←⎕AV                                    ⍝ 82: DyalogAPL classic char set
-    ⍝   :If ~#.utils.isClassic
-    ⍝       data_char1←100 Chars 8                        ⍝ 80: 8 bits character
-    ⍝       data_char2←100 Chars 16                       ⍝ 160: 16 bits character
-    ⍝       data_char3←100 Cha2rs 32                       ⍝ 320: 32 bits character
-    ⍝     ⍝   data_char_ptr←data_char1 data_char2 data_char3⍝ 326: Pointer (32-bit or 64-bit as appropriate)
-    ⍝   :EndIf
     ⍝   data_ptr←data_i1 data_i2 data_i4                  ⍝ 326: Pointer (32-bit or 64-bit as appropriate)
       data_dbl←{⍵,-⍵}data_i4+0.1                        ⍝ 645: 64 bits Floating
       data_cmplx←{⍵,-⍵}(0J1×⍳100)+⌽⍳100                 ⍝ 1289: 128 bits Complex
@@ -49,13 +42,11 @@
       data_Hfl←{⍵,-⍵}200000000000000000000000000000+(10000000000000000×⍳10)
       ⎕FR←#.utils.fr_dbl
 
+      caselist←⎕NL ¯2
+      caselist←caselist⌿⍨{'data_'⊃⍤⍷⍵}¨caselist
       :For fr :In 1 2
           ⎕FR←fr⊃#.utils.(fr_dbl fr_decf)
-          ⎕IO←1
 
-        ⍝   quadparams←⎕CT ⎕DCT ⎕FR ⎕IO ⎕DIV
-          caselist←⎕NL ¯2
-          caselist←caselist⌿⍨{'data_'⊃⍤⍷⍵}¨caselist
 
           :For f :In '+' '-' '×' '÷' ','
               :For case :In caselist
@@ -77,7 +68,7 @@
                       b←a←(?≢data)⊃data
                       c←(?≢data2)⊃data2
 
-                    ⍝ uses model to test modified assignment on all of the functions
+                      ⍝ uses model to test modified assignment on all of the functions
                       r,←('TCross1',f)desc Assert 3⊃(a(⍎f)←c ⋄ b←b(⍎f)model c ⋄ a≡b)
                       ⍝ array w scalar
                       b←a←data
@@ -87,17 +78,20 @@
                       data data2←data(#.utils.stripToSameLen)data2
                       b←a←data
                       c←data2
-                      r,←('TCross2',f)desc Assert 3⊃(a(⍎f)←c ⋄ b←b(⍎f)model c ⋄ a≡b)
+                      r,←('TCross3',f)desc Assert 3⊃(a(⍎f)←c ⋄ b←b(⍎f)model c ⋄ a≡b)
                   :EndFor
 
                   ⍝ array w array of different shape and length - should error
+                  :If f≡','
+                      :Continue
+                  :EndIf
                   len←(1+?≢data)
                   a←len↑data
                   c←(len+2)↑data
 
                   flag←0 ⍝ flag
                   :Trap 5 ⍝ 5: Length error
-                      a+←c
+                      a(⍎f)←c
                   :Else
                       flag←1
                       m←⎕DMX.Message
@@ -106,5 +100,42 @@
               :EndFor
           :EndFor
       :EndFor
+
+      ⍝ test character data separately as only , is allowed
+      data_char0←⎕AV                                    ⍝ 82: DyalogAPL classic char set
+      :If ~#.utils.isClassic
+          data_char1←100 Chars 8                        ⍝ 80: 8 bits character
+          data_char2←100 Chars 16                       ⍝ 160: 16 bits character
+          data_char3←100 Chars 32                       ⍝ 320: 32 bits character
+        ⍝   data_char_ptr←data_char1 data_char2 data_char3⍝ 326: Pointer (32-bit or 64-bit as appropriate)
+      :EndIf
+     
+      caselist←⎕NL ¯2
+      caselist←caselist⌿⍨{'data_char'⊃⍤⍷⍵}¨caselist
+      :For case :In caselist
+          data←⍎case
+          desc←testDesc
+          b←a←(?≢data)⊃data
+          c←(?≢data2)⊃data2
+     
+          ⍝ scalars
+          r,←('TCharCross1',f)desc Assert 3⊃(a,←c ⋄ b←b,model c ⋄ a≡b)
+          
+          ⍝ array w scalar
+          b←a←data
+          r,←('TCharCross2',f)desc Assert 3⊃(a,←c ⋄ b←b,model c ⋄ a≡b)
+     
+          ⍝ array w array of same length
+          data data2←data(#.utils.stripToSameLen)data2
+          b←a←data
+          c←data2
+          r,←('TCharCross3',f)desc Assert 3⊃(a,←c ⋄ b←b,model c ⋄ a≡b)
+     
+          ⍝ array w array of different shape and length - should error
+          len←(1+?≢data)
+          b←a←len↑data
+          c←(len+2)↑data
+          r,←('TCharCross4',f)desc Assert 3⊃(a,←c ⋄ b←b,model c ⋄ a≡b)
+      :EndFor
     ∇
 :EndNamespace