From 8eac26b17d996e3e171c92e43536333daf72b7c9 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 12 May 2019 17:01:51 +0100
Subject: Remove the sha1_hash from the package_metadata table

I'm thinking about adding more fields to this table, and the sha1_hash values
will make this tricker.

Therefore, remove the value, and adjust the existing code to cope. This commit
also adds a new test which coveres some of the changed functionality.
---
 tests/model-package-metadata.scm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 tests/model-package-metadata.scm

(limited to 'tests')

diff --git a/tests/model-package-metadata.scm b/tests/model-package-metadata.scm
new file mode 100644
index 0000000..4c2bc8e
--- /dev/null
+++ b/tests/model-package-metadata.scm
@@ -0,0 +1,37 @@
+(define-module (test-model-package-metadata)
+  #:use-module (ice-9 match)
+  #:use-module (srfi srfi-64)
+  #:use-module (tests mock-inferior)
+  #:use-module (guix-data-service database))
+
+(test-begin "test-model-package-metadata")
+
+(define mock-inferior-package-foo
+  (mock-inferior-package
+   (name "foo")
+   (version "2")
+   (synopsis "Foo")
+   (description "Foo description")
+   (home-page "https://example.com")))
+
+(with-mock-inferior-packages
+ (lambda ()
+   (use-modules (guix-data-service model package)
+                (guix-data-service model git-repository)
+                (guix-data-service model guix-revision)
+                (guix-data-service model package-metadata))
+
+   (with-postgresql-connection
+    (lambda (conn)
+      (test-assert "inferior-packages->package-metadata-ids"
+        (with-postgresql-transaction
+         conn
+         (lambda (conn)
+           (match
+               (inferior-packages->package-metadata-ids
+                conn
+                (list mock-inferior-package-foo))
+             ((x) (string? x))))
+         #:always-rollback? #t))))))
+
+(test-end)
-- 
cgit v1.2.3