(use-modules (fruix packages freebsd)
             (ice-9 format))

(define (assert condition message . rest)
  (unless condition
    (apply error message rest)))

(define local-source
  (freebsd-source
   #:name "host-usr-src"
   #:kind 'local-tree
   #:path "/usr/src"))

(define git-source
  (freebsd-source
   #:name "stable15-git"
   #:kind 'git
   #:ref "stable/15"))

(define txz-source
  (freebsd-source
   #:name "release-15.0-txz"
   #:kind 'src-txz
   #:url "https://download.freebsd.org/releases/amd64/15.0-RELEASE/src.txz"
   #:sha256 "example-sha256"))

(define git-base
  (freebsd-base
   #:name "git-base"
   #:source git-source
   #:source-root "/usr/src"))

(define txz-base
  (freebsd-base
   #:name "txz-base"
   #:source txz-source
   #:source-root "/usr/src"))

(assert (eq? (freebsd-source-kind local-source) 'local-tree)
        "unexpected local source kind")
(assert (string=? (freebsd-source-path local-source) "/usr/src")
        "unexpected local source path")
(assert (eq? (freebsd-source-kind git-source) 'git)
        "unexpected git source kind")
(assert (string=? (freebsd-source-url git-source) "https://git.FreeBSD.org/src.git")
        "unexpected default git source URL")
(assert (string=? (freebsd-source-ref git-source) "stable/15")
        "unexpected git source ref")
(assert (eq? (freebsd-source-kind txz-source) 'src-txz)
        "unexpected txz source kind")
(assert (string=? (freebsd-source-url txz-source)
                  "https://download.freebsd.org/releases/amd64/15.0-RELEASE/src.txz")
        "unexpected txz source URL")
(assert (string=? (freebsd-source-sha256 txz-source) "example-sha256")
        "unexpected txz source sha256")
(assert (freebsd-source? (freebsd-base-source git-base))
        "git base did not preserve source record")
(assert (freebsd-source? (freebsd-base-source txz-base))
        "txz base did not preserve source record")

(format #t "local_kind=~a~%" (freebsd-source-kind local-source))
(format #t "local_path=~a~%" (freebsd-source-path local-source))
(format #t "git_kind=~a~%" (freebsd-source-kind git-source))
(format #t "git_url=~a~%" (freebsd-source-url git-source))
(format #t "git_ref=~a~%" (freebsd-source-ref git-source))
(format #t "txz_kind=~a~%" (freebsd-source-kind txz-source))
(format #t "txz_url=~a~%" (freebsd-source-url txz-source))
(format #t "txz_sha256=~a~%" (freebsd-source-sha256 txz-source))
(format #t "base_source_accessor=ok~%")