(import
  (chicken io)
  (srfi-1)
  test)

(include-relative "../dag")
(include-relative "../egg")

(test-group "dag"
  (let ((index (with-input-from-file "index" read-list)))
    (test-assert "generate" (dag-generate index))

    (let* ((dag (dag-generate index))) ;# no need to regenerate it for each test
      (test-assert
        "prune for simple egg"
        (lset=
          equal?
          (dag-prune dag '(locale))
          '((check-errors:3.8.2)
            (iset:2.2)
            (locale:0.9.2 check-errors:3.8.2 utf8:3.6.3 srfi-1:0.5.1)
            (regex:2.0)
            (srfi-1:0.5.1)
            (srfi-69:0.4.3)
            (utf8:3.6.3 regex:2.0 iset:2.2 srfi-69:0.4.3))))  
      (test-assert
        "prune for last egg"
        (dag-prune dag '(chicken-doc-admin)))

      (test
        "prune for skipped eggs"
        '()
        (dag-prune dag '(srfi-4 chicken)))) 

    )
  )

(test-exit)