#!/usr/bin/env sh
exec guile -L $(dirname $(dirname $(realpath "$0"))) -e '(@@ (examples doctests-test) main)' -s "$0" "$@"
; !#

(define-module (examples doctests-test))

(import (examples doctests))

(define (foo)
    "(test \"foo\"
        (test-equal \"bar\" (foo)))
    "
    "bar")

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