diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/model-package-metadata.scm | 37 |
1 files changed, 37 insertions, 0 deletions
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) |