;; This file is part of Beastie <https://purl.org/nxg/dist/beastie>
;; SPDX-FileCopyrightText: 2024 Norman Gray <https://nxg.me.uk>
;; SPDX-License-Identifier: BSD-2-Clause

(check
 (assert-equal (map entry->list/debug (sort! (map cdr DB) entry<?))
               '((article a1
                          (author . #"First Alpha")
                          (note . #"s=topstring"))
                 (article a1-inc1
                          (author . #"First Beta")
                          (note . #"s=topstring and bibinc1-string"))
                 (article a1-inc2
                          (author . #"First Gamma")
                          (note . #"s=topstring and bibinc1-string and bibinc2-string"))
                 (article a2
                          (author . #"Second Alpha")
                          (note . #"s=topstring and bibinc1-string and bibinc2-string"))
                 (article a2-inc1
                          (author . #"Second Beta")
                          (note . #"s=topstring and bibinc1-string and bibinc2-string")))))

@string{s1="topstring"}

@article{a1,
  author =       {First Alpha},
  note =         "s=" # s1,
}

@include{bibinc1.bib}

@article{a2,
  author =       {Second Alpha},
  note =         "s=" # s1 # " and " # sa1 # " and " # sb1
}