#!/usr/bin/env sh
# -*- wisp -*-
guile -L $(dirname $(dirname $(realpath "$0"))) -c '(import (language wisp spec))'
exec guile -L $(dirname $(dirname $(realpath "$0"))) -x .w --language=wisp -e '(@@ (examples doctests-test) main)' -s "$0" "$@"
; !#

define-module : examples doctests-test

import : examples doctests

define : foo
    . #((tests 
      ('foo
        (test-equal "bar" (foo)))))
    . "bar"

define %this-module : current-module
define : main args
       . " Testing doctests"
       . #((tests ('mytest
              (test-assert #t)
              (test-assert #f))))
       doctests-testmod %this-module