(package (name "texlive-collection-texworks") (version (number->string %texlive-revision)) (source #f) (build-system trivial-build-system) (arguments (list #:builder (gexp (mkdir (ungexp output))))) (propagated-inputs (list texlive-collection-basic)) (home-page "https://www.tug.org/texlive/") (synopsis "TeXworks editor...") (description "See http...") (license (license:fsf-free "https://www.tug.org/texlive/copying.html")))

;;; (fail (package (name "texlive-collection-texworks") (version (number->string %texlive-revision)) (source #f) (build-system trivial-build-system) (arguments (list #:builder (gexp (mkdir (ungexp output))))) (propagated-inputs (list texlive-collection-basic)) (home-page "https://www.tug.org/texlive/") (synopsis "TeXworks editor...") (description "See http...") (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))) #f)
test-name: texlive->guix-package, meta-package
location: /home/janneke/src/guix/master/tests/texlive.scm:521
source:
+ (test-assert
+   "texlive->guix-package, meta-package"
+   (mock ((guix build svn)
+          svn-fetch
+          (lambda* (url
+                    revision
+                    directory
+                    #:key
+                    (svn-command "svn")
+                    (user-name #f)
+                    (password #f)
+                    (recursive? #t))
+            (mkdir-p directory)
+            (with-output-to-file
+              (string-append directory "/foo")
+              (lambda () (display "source")))))
+         (let ((result
+                 (texlive->guix-package
+                   "collection-texworks"
+                   #:package-database
+                   (lambda _ %fake-tlpdb))))
+           (match result
+                  (('package
+                    ('name "texlive-collection-texworks")
+                    ('version _)
+                    ('source #f)
+                    ('build-system 'trivial-build-system)
+                    ('arguments
+                     ('list
+                      '#:builder
+                      ('gexp ('mkdir ('ungexp 'output)))))
+                    ('propagated-inputs
+                     ('list
+                      'texlive-collection-basic
+                      'texlive-texworks))
+                    ('home-page "https://www.tug.org/texlive/")
+                    ('synopsis (? string?))
+                    ('description (? string?))
+                    ('license
+                     ('license:fsf-free
+                      "https://www.tug.org/texlive/copying.html")))
+                   #t)
+                  (_ (begin
+                       (format #t "~s~%" result)
+                       (pk 'fail result #f)))))))
actual-value: #f
result: FAIL