test GET /private/transfers

1 files changed, 121 insertions, 3 deletions

diff --git a/src/testing/testing_api_cmd_get_transfers.c b/src/testing/testing_api_cmd_get_transfers.c
index d0efa13a..34889e88 100644
--- a/src/testing/testing_api_cmd_get_transfers.c
+++ b/src/testing/testing_api_cmd_get_transfers.c
@@ -117,9 +117,127 @@ get_transfers_cb (
       TALER_TESTING_interpreter_fail (gts->is);
       return;
     }
-    // {
-    // FIXME: check that list of returned transactions matches our expectations!
-    // }
+    for (unsigned int i = 0; i < transfers_length; ++i)
+    {
+      const struct TALER_TESTING_Command *transfer_cmd;
+
+      transfer_cmd = TALER_TESTING_interpreter_lookup_command (
+        gts->is,
+        gts->transfers[i]);
+      {
+        const struct TALER_WireTransferIdentifierRawP *wtid;
+
+        if (GNUNET_OK !=
+            TALER_TESTING_get_trait_wtid (transfer_cmd,
+                                          0,
+                                          &wtid))
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+                      "Could not fetch wire transfer id\n");
+          TALER_TESTING_interpreter_fail (gts->is);
+          return;
+        }
+        if (0 != GNUNET_memcmp (wtid,
+                                &transfers[i].wtid))
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+                      "Wire transfer id does not match\n");
+          TALER_TESTING_interpreter_fail (gts->is);
+          return;
+        }
+      }
+      {
+        const char *payto_uri;
+
+        if (GNUNET_OK !=
+            TALER_TESTING_get_trait_string (transfer_cmd,
+                                            0,
+                                            &payto_uri))
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+                      "Could not fetch wire transfer payto uri\n");
+          TALER_TESTING_interpreter_fail (gts->is);
+          return;
+        }
+        if (0 != strcmp (payto_uri,
+                         transfers[i].payto_uri))
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+                      "Wire transfer payto uri does not match\n");
+          TALER_TESTING_interpreter_fail (gts->is);
+          return;
+        }
+      }
+      {
+        const struct TALER_Amount *credit_amount;
+
+        if (GNUNET_OK !=
+            TALER_TESTING_get_trait_amount_obj (transfer_cmd,
+                                                0,
+                                                &credit_amount))
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+                      "Could not fetch wire transfer credit amount\n");
+          TALER_TESTING_interpreter_fail (gts->is);
+          return;
+        }
+        if ((GNUNET_OK != TALER_amount_cmp_currency (credit_amount,
+                                                     &transfers[i].credit_amount))
+            ||
+            (0 != TALER_amount_cmp (credit_amount,
+                                    &transfers[i].credit_amount)))
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+                      "Wire transfer credit amount does not match\n");
+          TALER_TESTING_interpreter_fail (gts->is);
+          return;
+        }
+      }
+      {
+        const char *exchange_url;
+
+        if (GNUNET_OK !=
+            TALER_TESTING_get_trait_string (transfer_cmd,
+                                            1,
+                                            &exchange_url))
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+                      "Could not fetch wire transfer exchange url\n");
+          TALER_TESTING_interpreter_fail (gts->is);
+          return;
+        }
+        if (0 != strcmp (exchange_url,
+                         transfers[i].exchange_url))
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+                      "Wire transfer exchange url does not match\n");
+          TALER_TESTING_interpreter_fail (gts->is);
+          return;
+        }
+      }
+      {
+        const struct GNUNET_TIME_Absolute *execution_time;
+
+        if (GNUNET_OK !=
+            TALER_TESTING_get_trait_absolute_time (transfer_cmd,
+                                                   0,
+                                                   &execution_time))
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+                      "Could not fetch wire transfer execution time\n");
+          TALER_TESTING_interpreter_fail (gts->is);
+          return;
+        }
+        if (execution_time->abs_value_us !=
+            transfers[i].execution_time.abs_value_us)
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+                      "Wire transfer execution time does not match\n");
+          TALER_TESTING_interpreter_fail (gts->is);
+          return;
+        }
+      }
+    }
     break;
   default:
     GNUNET_log (GNUNET_ERROR_TYPE_WARNING,