Merge pull request #42 from objectionary/6

introduce .array-each object

pom.xml

@@ -53,8 +53,6 @@ SOFTWARE.
       <id>1</id>
       <name>Andrew Graur</name>
       <email>graur.andrew@gmail.com</email>
-      <organization>yegor256.com</organization>
-      <organizationUrl>https://www.yegor256.com</organizationUrl>
       <roles>
         <role>Developer</role>
       </roles>
@@ -84,7 +82,7 @@ SOFTWARE.
     <dependency>
       <groupId>org.eolang</groupId>
       <artifactId>eo-runtime</artifactId>
-      <version>0.23.4</version>
+      <version>0.23.5</version>
     </dependency>
     <dependency>
       <groupId>org.junit.jupiter</groupId>
@@ -104,7 +102,7 @@ SOFTWARE.
       <plugin>
         <groupId>org.eolang</groupId>
         <artifactId>eo-maven-plugin</artifactId>
-        <version>0.23.4</version>
+        <version>0.23.5</version>
         <executions>
           <execution>
             <id>compile</id>

src/main/eo/org/eolang/hamcrest/assert-that.eo

@@ -274,7 +274,7 @@
           TRUE
           seq
             mismatches.write
-              mismatches.append
+              mismatches.with
                 matcher.describe-mismatch
             FALSE
       seq > @
@@ -319,7 +319,7 @@
               count.write (i.add 1)
               seq
                 mismatches.write
-                  mismatches.append
+                  mismatches.with
                     describe-mismatch.
                       matchers.get i
                 count.write -1
@@ -346,3 +346,45 @@
           matchers
           [i]
             i.description-of > @
+
+  [matchers...] > array-each
+
+    memory > mismatches
+
+    [] > check-length
+      eq. > @
+        matchers.length
+        actual.length
+
+    [a] > match
+      if. > @
+        check-length
+        seq
+          mismatches.write *
+          a.reducei
+            TRUE
+            [acc i el]
+              and. > @
+                acc
+                if.
+                  (matchers.get i).match el
+                  TRUE
+                  seq
+                    mismatches.write
+                      mismatches.with
+                        describe-mismatch.
+                          matchers.get i
+                    FALSE
+        FALSE
+
+    [] > describe-mismatch
+      sprintf > @
+        "mismatches: [%s]"
+        ", ".joined mismatches
+
+    [] > description-of
+      " and ".joined > @
+        map.
+          matchers
+          [i]
+            i.description-of > @

src/test/eo/org/eolang/hamcrest/has-item-tests.eo → src/test/eo/org/eolang/hamcrest/arrays-matchers-tests.eo

@@ -53,4 +53,20 @@
   assert-that > @
     * "a" "b" "c" 'd'
     $.has-items
-      $.equal-to "c"
+      $.equal-to "c"
+
+[] > arrays-each-items
+  assert-that > @
+    * 1 2
+    $.array-each
+      $.equal-to 1
+      $.equal-to 2
+
+[] > arrays-each-items-complex-case
+  assert-that > @
+    * "vice" 'c' -5 (13.as-float)
+    $.array-each
+      $.equal-to "vice"
+      $.equal-to 'c'
+      $.less-than 0
+      $.greater-than 10.0