2017-07-30: testone

testone

diff --git a/examples/doctests-test.scm b/examples/doctests-testone.scm
copy from examples/doctests-test.scm
copy to examples/doctests-testone.scm
--- a/examples/doctests-test.scm
+++ b/examples/doctests-testone.scm
@@ -1,9 +1,7 @@
 #!/usr/bin/env sh
-exec guile -L $(dirname $(dirname $(realpath "$0"))) -e '(@@ (examples doctests-test) main)' -s "$0" "$@"
+exec guile -L $(dirname $(dirname $(realpath "$0"))) -s "$0" "$@"
 ; !#
 
-(define-module (examples doctests-test))
-
 (import (examples doctests))
 
 (define (foo)
@@ -12,14 +10,7 @@ exec guile -L $(dirname $(dirname $(real
     "
     "bar")
 
-(define %this-module (current-module))
-(define (main args)
-       " Testing doctests
-   (test 'mytest
-       (test-assert #t)
-       (test-assert #f))
-"
-       (doctests-testmod %this-module))
+(doctests-testmod (current-module))