#| Copyright 2024 Peter McGoron
 |
 | Licensed under the Apache License, Version 2.0 (the "License");
 | you may not use this file except in compliance with the License.
 | You may obtain a copy of the License at
 |
 |     http://www.apache.org/licenses/LICENSE-2.0
 |
 | Unless required by applicable law or agreed to in writing, software
 | distributed under the License is distributed on an "AS IS" BASIS,
 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 | See the License for the specific language governing permissions and
 | limitations under the License.
 |#

(import r7rs (srfi 64) (mcgoron srfi 64))

(load "random-number-vector.sld")
(load "util.sld")

;;; ;;;;;;;;;;;;;;;;;;;;
;;; Setup my test runner
;;; ;;;;;;;;;;;;;;;;;;;;

(test-runner-factory factory)
(test-runner-current (test-runner-create))
(set-verbosity! '(fails))

#;(define-library (mcgoron weight-balanced-trees test internal)
  (import (scheme base)
          (chicken condition)
          (mcgoron weight-balanced-trees test util)
          (mcgoron weight-balanced-trees test random-number-vector)
          (except (mcgoron srfi 64) factory)
          (srfi 1) (srfi 26) (srfi 64) (srfi 128) (srfi 132) (srfi 133)
          (srfi 158) (srfi 194) (srfi 197) (srfi 252)
          (except (mcgoron weight-balanced-trees internal)
                  every)
          (prefix (only (mcgoron weight-balanced-trees internal)
                          every)
                  node-))
  (include "internal.scm"))

(define-library (mcgoron weight-balanced-trees test srfi 113 sets)
  (import (scheme base) (scheme write) (scheme inexact)
          (scheme case-lambda)
          (chicken condition)
          (except (mcgoron srfi 64) factory)
          (srfi 1) (srfi 26) (srfi 27) (srfi 64) (srfi 69) (srfi 128)
          (srfi 133) (srfi 158) (srfi 194) (srfi 252)
          (mcgoron weight-balanced-trees srfi 113 sets)
          (mcgoron weight-balanced-trees srfi 113 252))
  (include "srfi-113-sets.scm"))