RubyGems - nendo - Versions diffs - 0.6.8 → 0.7.0 - Mend

nendo 0.6.8 → 0.7.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (24) hide show

checksums.yaml +4 -4
data/Rakefile +10 -14
data/VERSION.yml +2 -2
data/lib/nendo/init.nnd +1 -1
data/lib/nendo/init.nndc +2 -2
data/lib/nendo/ruby/builtin_functions.rb +5 -5
data/lib/nendo/ruby/core.rb +1 -1
data/lib/nendo/ruby/types.rb +5 -1
metadata +7 -22
data/test/json-test.nnd +0 -178
data/test/match-test.nnd +0 -186
data/test/nendo-util-test.nnd +0 -496
data/test/nendo_spec.rb +0 -551
data/test/nendo_spec_2.rb +0 -2135
data/test/nendo_spec_3.rb +0 -105
data/test/rspec_formatter_for_emacs.rb +0 -26
data/test/srfi-1-test.nnd +0 -684
data/test/srfi-2-test.nnd +0 -63
data/test/srfi-26-test.nnd +0 -89
data/test/syntax_spec.rb +0 -1059
data/test/testframework_spec.rb +0 -153
data/test/textlib-test.nnd +0 -24
data/test/util-combinations-test.nnd +0 -383
data/test/util-list-test.nnd +0 -178

data/test/testframework_spec.rb DELETED Viewed

@@ -1,153 +0,0 @@
-#!/usr/bin/env ruby
-# -*- encoding: utf-8 -*-
-#
-# syntax_spec.rb -  "RSpec file for nendo language (nendo.test framework part)"
-#
-#   Copyright (c) 2009-2011  Kiyoka Nishiyama  <kiyoka@sumibi.org>
-#
-#   Redistribution and use in source and binary forms, with or without
-#   modification, are permitted provided that the following conditions
-#   are met:
-#
-#   1. Redistributions of source code must retain the above copyright
-#      notice, this list of conditions and the following disclaimer.
-#
-#   2. Redistributions in binary form must reproduce the above copyright
-#      notice, this list of conditions and the following disclaimer in the
-#      documentation and/or other materials provided with the distribution.
-#
-#   3. Neither the name of the authors nor the names of its contributors
-#      may be used to endorse or promote products derived from this
-#      software without specific prior written permission.
-#
-#   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-#   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-#   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-#   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-#   OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-#   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
-#   TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-#   PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-#   LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-#   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-#   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-#
-require 'nendo'
-include Nendo
-require 'timeout'
-describe Nendo, "when use NendoTestError " do
-  before do
-    @nendoError1   = NendoTestError.new
-    @runtimeError  = RuntimeError.new
-    @argumentError = ArgumentError.new
-    @nendoError2   = NendoTestError.new( @runtimeError.class )
-  end
-  it "should" do
-    @nendoError1.type.should ==           RuntimeError
-    @nendoError1.type = @runtimeError.class
-    @nendoError1.type.should ==           RuntimeError
-    @nendoError1.type = RuntimeError
-    @nendoError1.type.should ==           RuntimeError
-    @nendoError1.type = Timeout::Error
-    @nendoError1.type.should ==           Timeout::Error
-    @nendoError2.type.should ==           RuntimeError
-  end
-end
-describe Nendo, "when use test function " do
-  before do
-    @nendo = Nendo::Core.new()
-    @nendo.loadInitFile
-    @nendo.evalStr( "(use nendo.test)" )
-  end
-  it "should" do
-    @nendo.evalStr( '(test-section "(test)")' ).should  ==  '"(test)"'
-    @nendo.evalStr( '(test "true false" #t (lambda () #t))' ).should             ==  '#t'
-    @nendo.evalStr( '(test "true false" #f (lambda () #f))' ).should             ==  '#t'
-    @nendo.evalStr( '(test "number" 0 (lambda () 0))' ).should                   ==  '#t'
-    @nendo.evalStr( '(test "number" 0 (lambda () 1))' ).should                   ==  '#f'
-    @nendo.evalStr( '(test "string" "ab" (lambda () (+ "a" "b")))' ).should      ==  '#t'
-  end
-end
-describe Nendo, "when use test* function " do
-  before do
-    @nendo = Nendo::Core.new()
-    @nendo.loadInitFile
-    @nendo.evalStr( "(use nendo.test)" )
-  end
-  it "should" do
-    @nendo.evalStr( '(test-section "(test*)")' ).should  ==  '"(test*)"'
-    @nendo.evalStr( '(test* "true false" #t #t)' ).should                        ==  '#t'
-    @nendo.evalStr( '(test* "true false" #f #f)' ).should                        ==  '#t'
-    @nendo.evalStr( '(test* "number" 0 0)' ).should                              ==  '#t'
-    @nendo.evalStr( '(test* "number" 0 1)' ).should                              ==  '#f'
-    @nendo.evalStr( '(test* "string" "ab" (+ "a" "b"))' ).should                 ==  '#t'
-    @nendo.evalStr( <<EOS
-(test* "eq?"     '(a b) '(a b)  eq?)
-EOS
-           ).should               ==  '#f'
-    @nendo.evalStr( <<EOS
-(test* "eqv?"     '(a b) '(a b) eqv?)
-EOS
-           ).should               ==  '#f'
-    @nendo.evalStr( <<EOS
-(test* "equal?"   '(a b) '(a b)     )
-EOS
-           ).should               ==  '#t'
-  end
-end
-describe Nendo, "when test framework handle exception " do
-  before do
-    @nendo = Nendo::Core.new()
-    @nendo.loadInitFile
-    @nendo.evalStr( "(use nendo.test)" )
-  end
-  it "should" do
-    @nendo.evalStr( '(test-section "exceptions")' ).should  ==  '"exceptions"'
-    @nendo.evalStr( '(. (test-error ) class)' ).should                     ==  'Nendo::NendoTestError'
-    @nendo.evalStr( '(. (test-error RuntimeError)  class)' ).should        ==  'Nendo::NendoTestError'
-    @nendo.evalStr( '(. (test-error RuntimeError)  type)' ).should         ==  'RuntimeError'
-    @nendo.evalStr( '(. (test-error ArgumentError) type)' ).should         ==  'ArgumentError'
-    @nendo.evalStr( '(. (test-error SyntaxError)   type)' ).should         ==  'SyntaxError'
-    @nendo.evalStr( '(test-error? (test-error))               ' ).should   ==  '#t'
-    @nendo.evalStr( '(test-error? (test-error RuntimeError))  ' ).should   ==  '#t'
-    @nendo.evalStr( '(test-error? (test-error ArgumentError)) ' ).should   ==  '#t'
-    @nendo.evalStr( '(test-error? (test-error SyntaxError))   ' ).should   ==  '#t'
-    @nendo.evalStr( '(test-check   (test-error RuntimeError)   (test-error RuntimeError ))' ).should   ==  '#t'
-    @nendo.evalStr( '(test-check   1                           (test-error RuntimeError ))' ).should   ==  '#f'
-    @nendo.evalStr( '(test-check   (test-error RuntimeError)   1                         )' ).should   ==  '#f'
-    @nendo.evalStr( '(test-check   1                           1                         )' ).should   ==  '#t'
-    @nendo.evalStr( '(test-check   1                           2                         )' ).should   ==  '#f'
-    @nendo.evalStr( '(test-check   (test-error RuntimeError)   (test-error ArgumentError))' ).should   ==  '#f'
-    @nendo.evalStr( '(test-check   (test-error RuntimeError)   (test-error SyntaxError  ))' ).should   ==  '#f'
-    @nendo.evalStr( '(test-check   (test-error ArgumentError)  (test-error RuntimeError ))' ).should   ==  '#f'
-    @nendo.evalStr( '(test-check   (test-error SyntaxError)    (test-error RuntimeError ))' ).should   ==  '#f'
-    @nendo.evalStr( '(test* "exception" (test-error TypeError)    (+ 1.1 "str"))' ).should                      ==  '#t'
-    @nendo.evalStr( '(test* "exception" (test-error RuntimeError) (+ 1.1 "str"))' ).should                      ==  '#f'
-    @nendo.evalStr( '(test* "exception" (test-error TypeError)    (error "[RuntimeError]"))' ).should           ==  '#f'
-    @nendo.evalStr( '(test* "exception" (test-error RuntimeError) (error "[RuntimeError]"))' ).should           ==  '#t'
-    @nendo.evalStr( '(test* "exception" (test-error ArgumentError)    (raise RuntimeError  "[RuntimeError]"))'  ).should           ==  '#f'
-    @nendo.evalStr( '(test* "exception" (test-error ArgumentError)    (raise ArgumentError "[ArgumentError]"))' ).should           ==  '#t'
-    @nendo.evalStr( '(test* "exception" (test-error ArgumentError)    (raise TypeError     "[TypeError]"))'     ).should           ==  '#f'
-    @nendo.evalStr( '(test* "exception" (test-error ArgumentError)    (raise NoMethodError "[NoMethodError]"))' ).should           ==  '#f'
-  end
-end

data/test/textlib-test.nnd DELETED Viewed

@@ -1,24 +0,0 @@
-;;-*- mode: nendo; syntax: scheme -*-;;
-;; test for text.* ( ported from Gauche by kiyoka )
-(use nendo.test)
-(test-start "text utilities")
-;;===================================================================
-;;-------------------------------------------------------------------
-(test-section "tree")
-(use text.tree)
-(test-module 'text.tree)
-(test* "tree->string" "" (tree->string '()))
-(test* "tree->string" "" (tree->string ""))
-(test* "tree->string" "ab" (tree->string "ab"))
-(test* "tree->string" "ab" (tree->string 'ab))
-(test* "tree->string" "ab" (tree->string '(a . b)))
-(test* "tree->string" "ab" (tree->string '(a b)))
-(test* "tree->string" "Ab" (tree->string '(:A . :b)))
-(test* "tree->string" "ab" (tree->string '((((() ())) . a) ((((b)))))))
-;;===================================================================
-(test-end)

data/test/util-combinations-test.nnd DELETED Viewed

@@ -1,383 +0,0 @@
-;;-*- mode: nendo; syntax: scheme -*-;;
-;;
-;; util-combinations-test.nnd - test suite for util.combinations
-;;
-;;   Copyright (c) 2000-2010  Shiro Kawai  <shiro@acm.org>
-;;
-;;   Redistribution and use in source and binary forms, with or without
-;;   modification, are permitted provided that the following conditions
-;;   are met:
-;;
-;;   1. Redistributions of source code must retain the above copyright
-;;      notice, this list of conditions and the following disclaimer.
-;;
-;;   2. Redistributions in binary form must reproduce the above copyright
-;;      notice, this list of conditions and the following disclaimer in the
-;;      documentation and/or other materials provided with the distribution.
-;;
-;;   3. Neither the name of the authors nor the names of its contributors
-;;      may be used to endorse or promote products derived from this
-;;      software without specific prior written permission.
-;;
-;;   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-;;   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-;;   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-;;   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-;;   OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-;;   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
-;;   TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-;;   PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-;;   LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-;;   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-;;   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-(use nendo.test)
-(use util.match)
-(test-start "util.combination")
-;;===================================================================
-;;-------------------------------------------------------------------
-(test-section "util.combinations")
-(use util.combinations)
-(test* "permutations (boundary)" '(())
-       (permutations '()))
-(test* "permutations (boundary)" '((a))
-       (permutations '(a)))
-(test* "permutations" '((a b) (b a))
-       (permutations '(a b)))
-(test* "permutations" '((a a) (a a))
-       (permutations '(a a)))
-(test* "permutations" '((a b c) (a c b) (b a c) (b c a) (c a b) (c b a))
-       (permutations '(a b c)))
-(test* "permutations" '((a b c d) (a b d c) (a c b d) (a c d b)
-                        (a d b c) (a d c b) (b a c d) (b a d c)
-                        (b c a d) (b c d a) (b d a c) (b d c a)
-                        (c a b d) (c a d b) (c b a d) (c b d a)
-                        (c d a b) (c d b a) (d a b c) (d a c b)
-                        (d b a c) (d b c a) (d c a b) (d c b a))
-       (permutations '(a b c d)))
-(test* "permutations* (boundary)" '(())
-       (permutations* '()))
-(test* "permutations* (boundary)" '((a))
-       (permutations* '(a)))
-(test* "permutations*" '((a b) (b a))
-       (permutations* '(a b)))
-(test* "permutations*" '((a a))
-       (permutations* '(a a)))
-(test* "permutations*" '((a b c) (a c b) (b a c) (b c a) (c a b) (c b a))
-       (permutations* '(a b c)))
-(test* "permutations*" '((a a b) (a b a) (b a a))
-       (permutations* '(a a b)))
-(test* "permutations*" '((a b a) (a a b) (b a a))
-       (permutations* '(a b a)))
-(test* "permutations*" '((b a a) (a b a) (a a b))
-       (permutations* '(b a a)))
-(test* "permutations*" '((a a a))
-       (permutations* '(a a a)))
-(test* "permutations*" '((a b c d) (a b d c) (a c b d) (a c d b)
-                         (a d b c) (a d c b) (b a c d) (b a d c)
-                         (b c a d) (b c d a) (b d a c) (b d c a)
-                         (c a b d) (c a d b) (c b a d) (c b d a)
-                         (c d a b) (c d b a) (d a b c) (d a c b)
-                         (d b a c) (d b c a) (d c a b) (d c b a))
-       (permutations* '(a b c d)))
-(test* "permutations*" '((a a b c) (a a c b) (a b a c) (a b c a)
-                         (a c a b) (a c b a) (b a a c) (b a c a)
-                         (b c a a) (c a a b) (c a b a) (c b a a))
-       (permutations* '(a a b c)))
-(test* "permutations*" '((a b a c) (a b c a) (a a b c) (a a c b)
-                         (a c b a) (a c a b) (b a a c) (b a c a)
-                         (b c a a) (c a b a) (c a a b) (c b a a))
-       (permutations* '(a b a c)))
-(test* "permutations*" '((a b c a) (a b a c) (a c b a) (a c a b)
-                         (a a b c) (a a c b) (b a c a) (b a a c)
-                         (b c a a) (c a b a) (c a a b) (c b a a))
-       (permutations* '(a b c a)))
-(test* "permutations*" '((a b a b) (a b b a) (a a b b)
-                         (b a a b) (b a b a) (b b a a))
-       (permutations* '(a b a b)))
-(test* "permutations*" '((a a a b) (a a b a) (a b a a) (b a a a))
-       (permutations* '(a a a b)))
-(test* "permutations*" '((a b a a) (a a b a) (a a a b) (b a a a))
-       (permutations* '(a b a a)))
-(test* "permutations*" '((a a a a))
-       (permutations* '(a a a a)))
-(test* "permutations*" '(("a" "b" "b" "a") ("a" "b" "a" "b") ("a" "a" "b" "b")
-                         ("b" "a" "b" "a") ("b" "a" "a" "b") ("b" "b" "a" "a"))
-       (permutations* '("a" "b" "b" "a") string=?))
-(test* "permutations-for-each"
-       '()
-       (let1 r '()
-         (permutations-for-each (lambda (p) (push! r p)) '())
-         (reverse r)))
-(test* "permutations-for-each"
-       '((a))
-       (let1 r '()
-         (permutations-for-each (lambda (p) (push! r p)) '(a))
-         (reverse r)))
-(test* "permutations-for-each"
-       '((a b c) (a c b) (b a c) (b c a) (c a b) (c b a))
-       (let1 r '()
-         (permutations-for-each (lambda (p) (push! r p)) '(a b c))
-         (reverse r)))
-(test* "permutations-for-each"
-       '((a b c d) (a b d c) (a c b d) (a c d b)
-         (a d b c) (a d c b) (b a c d) (b a d c)
-         (b c a d) (b c d a) (b d a c) (b d c a)
-         (c a b d) (c a d b) (c b a d) (c b d a)
-         (c d a b) (c d b a) (d a b c) (d a c b)
-         (d b a c) (d b c a) (d c a b) (d c b a))
-       (let1 r '()
-         (permutations-for-each (lambda (p) (push! r p)) '(a b c d))
-         (reverse r)))
-(test* "permutations-for-each"
-       (let* ((set '(a b c d e))
-              (all-patterns
-               (append-map
-                (lambda (v1)
-                  (append-map
-                   (lambda (v2)
-                     (append-map
-                      (lambda (v3)
-                        (append-map
-                         (lambda (v4)
-                           (map
-                            (lambda (v5)
-                              (list v1 v2 v3 v4 v5))
-                            set))
-                         set))
-                      set))
-                   set))
-                set)))
-         (filter
-          (lambda (x)
-            (eq? (length x)
-                 (length (delete-duplicates x))))
-          all-patterns))
-       (let1 r '()
-         (permutations-for-each (lambda (p) (push! r p)) '(a b c d e))
-         (reverse r)))
-(test* "permutations*-for-each"
-       '()
-       (let1 r '()
-         (permutations*-for-each (lambda (p) (push! r p)) '())
-         (reverse r)))
-(test* "permutations*-for-each"
-       '((a))
-       (let1 r '()
-         (permutations*-for-each (lambda (p) (push! r p)) '(a))
-         (reverse r)))
-(test* "permutations*-for-each"
-       '((a b c) (a c b) (b a c) (b c a) (c a b) (c b a))
-       (let1 r '()
-         (permutations*-for-each (lambda (p) (push! r p)) '(a b c))
-         (reverse r)))
-(test* "permutations*-for-each"
-       '((a a b) (a b a) (b a a))
-       (let1 r '()
-         (permutations*-for-each (lambda (p) (push! r p)) '(a a b))
-         (reverse r)))
-(test* "permutations*-for-each"
-       '((a a a))
-       (let1 r '()
-         (permutations*-for-each (lambda (p) (push! r p)) '(a a a))
-         (reverse r)))
-(test* "permutations*-for-each"
-       '(("a" "a" "b") ("a" "b" "a") ("b" "a" "a"))
-       (let1 r '()
-         (permutations*-for-each (lambda (p) (push! r p)) '("a" "a" "b")
-                                 string=?)
-         (reverse r)))
-(test* "combinations" '(())
-       (combinations '() 0))
-(test* "combinations" '((a))
-       (combinations '(a) 1))
-(test* "combinations" '((a) (b) (c) (d))
-       (combinations '(a b c d) 1))
-(test* "combinations" '((a b) (a c) (b c))
-       (combinations '(a b c) 2))
-(test* "combinations" '((a b c))
-       (combinations '(a b c) 3))
-(test* "combinations" '((a b c) (a b d) (a c d) (b c d))
-       (combinations '(a b c d) 3))
-(test* "combinations*" '(())
-       (combinations* '() 0))
-(test* "combinations*" '((a))
-       (combinations* '(a) 1))
-(test* "combinations*" '((a) (b) (c) (d))
-       (combinations* '(a b c d) 1))
-(test* "combinations*" '((a b) (a c) (b c))
-       (combinations* '(a b c) 2))
-(test* "combinations*" '((a b c))
-       (combinations* '(a b c) 3))
-(test* "combinations*" '((a b c) (a b d) (a c d) (b c d))
-       (combinations* '(a b c d) 3))
-(test* "combinations*" '((a) (b))
-       (combinations* '(a a b) 1))
-(test* "combinations*" '((a a) (a b))
-       (combinations* '(a a b) 2))
-(test* "combinations*" '((a a b))
-       (combinations* '(a a b) 3))
-(test* "combinations*" '((a b) (a a))
-       (combinations* '(a b a a) 2))
-(test* "combinations*" '((a b a) (a a a))
-       (combinations* '(a b a a) 3))
-(test* "combinations*" '((a b b) (a b a))
-       (combinations* '(a b b a) 3))
-(test* "combinations*" '(("a" "b" "b") ("a" "b" "a"))
-       (combinations* '("a" "b" "b" "a") 3 string=?))
-(test* "combinations-for-each" '(())
-       (let1 r '()
-         (combinations-for-each (lambda (c) (push! r c)) '() 0)
-         (reverse! r)))
-(test* "combinations-for-each" '((a))
-       (let1 r '()
-         (combinations-for-each (lambda (c) (push! r c)) '(a) 1)
-         (reverse! r)))
-(test* "combinations-for-each" '((a) (b) (c) (d))
-       (let1 r '()
-         (combinations-for-each (lambda (c) (push! r c)) '(a b c d) 1)
-         (reverse! r)))
-(test* "combinations-for-each" '((a b) (a c) (b c))
-       (let1 r '()
-         (combinations-for-each (lambda (c) (push! r c)) '(a b c) 2)
-         (reverse! r)))
-(test* "combinations-for-each" '((a b c))
-       (let1 r '()
-         (combinations-for-each (lambda (c) (push! r c)) '(a b c) 3)
-         (reverse! r)))
-(test* "combinations-for-each" '((a b c) (a b d) (a c d) (b c d))
-       (let1 r '()
-         (combinations-for-each (lambda (c) (push! r c)) '(a b c d) 3)
-         (reverse! r)))
-(test* "combinations*-for-each" '(())
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '() 0)
-         (reverse! r)))
-(test* "combinations*-for-each" '((a))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '(a) 1)
-         (reverse! r)))
-(test* "combinations*-for-each" '((a) (b) (c) (d))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '(a b c d) 1)
-         (reverse! r)))
-(test* "combinations*-for-each" '((a b) (a c) (b c))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '(a b c) 2)
-         (reverse! r)))
-(test* "combinations*-for-each" '((a b c))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '(a b c) 3)
-         (reverse! r)))
-(test* "combinations*-for-each" '((a b c) (a b d) (a c d) (b c d))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '(a b c d) 3)
-         (reverse! r)))
-(test* "combinations*-for-each" '((a) (b))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '(a a b) 1)
-         (reverse! r)))
-(test* "combinations*-for-each" '((a a) (a b))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '(a a b) 2)
-         (reverse! r)))
-(test* "combinations*-for-each" '((a a b))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '(a a b) 3)
-         (reverse! r)))
-(test* "combinations*-for-each" '((a b) (a a))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '(a b a a) 2)
-         (reverse! r)))
-(test* "combinations*-for-each" '((a b a) (a a a))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '(a b a a) 3)
-         (reverse! r)))
-(test* "combinations*-for-each" '((a b b) (a b a))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '(a b b a) 3)
-         (reverse! r)))
-(test* "combinations*-for-each" '(("a" "b" "b") ("a" "b" "a"))
-       (let1 r '()
-         (combinations*-for-each (lambda (c) (push! r c)) '("a" "b" "b" "a") 3
-                                 string=?)
-         (reverse! r)))
-(test* "power-set-binary" '(())
-       (power-set-binary '()))
-(test* "power-set-binary" '(() (a))
-       (power-set-binary '(a)))
-(test* "power-set-binary" '(() (c) (b) (b c) (a) (a c) (a b) (a b c))
-       (power-set-binary '(a b c)))
-(test* "power-set" '(())
-       (power-set '()))
-(test* "power-set" '(() (a))
-       (power-set '(a)))
-(test* "power-set" '(() (a) (b) (c) (a b) (a c) (b c) (a b c))
-       (power-set '(a b c)))
-(test* "power-set*" '(())
-       (power-set* '()))
-(test* "power-set*" '(() (a))
-       (power-set* '(a)))
-(test* "power-set*" '(() (a) (b) (a a) (a b) (a a b))
-       (power-set* '(a a b)))
-(test* "power-set*" '(() ("a") ("b") ("a" "a") ("a" "b") ("a" "a" "b"))
-       (power-set* '("a" "a" "b") string=?))
-(test* "power-set-for-each" '(())
-       (let1 r '()
-         (power-set-for-each (lambda (s) (push! r s)) '())
-         (reverse! r)))
-(test* "power-set-for-each" '(() (a))
-       (let1 r '()
-         (power-set-for-each (lambda (s) (push! r s))  '(a))
-         (reverse! r)))
-(test* "power-set-for-each" '(() (a) (b) (c) (a b) (a c) (b c) (a b c))
-       (let1 r '()
-         (power-set-for-each (lambda (s) (push! r s))  '(a b c))
-         (reverse! r)))
-(test* "power-set*-for-each" '(())
-       (let1 r '()
-         (power-set*-for-each (lambda (s) (push! r s)) '())
-         (reverse! r)))
-(test* "power-set*-for-each" '(() (a))
-       (let1 r '()
-         (power-set*-for-each (lambda (s) (push! r s))  '(a))
-         (reverse! r)))
-(test* "power-set*-for-each" '(() (a) (b) (a a) (a b) (a a b))
-       (let1 r '()
-         (power-set*-for-each (lambda (s) (push! r s))  '(a a b))
-         (reverse! r)))
-(test* "power-set*-for-each" '(() ("a") ("b") ("a" "a") ("a" "b") ("a" "a" "b"))
-       (let1 r '()
-         (power-set*-for-each (lambda (s) (push! r s))  '("a" "a" "b")
-                              string=?)
-         (reverse! r)))
-(test* "cartesian-product" '((a 0) (a 1) (b 0) (b 1) (c 0) (c 1))
-       (cartesian-product '((a b c) (0 1))))
-(test* "cartesian-product" '((a 0 0) (a 0 1) (a 1 0) (a 1 1)
-                             (b 0 0) (b 0 1) (b 1 0) (b 1 1))
-       (cartesian-product '((a b) (0 1) (0 1))))
-(test* "cartesian-product-right" '((a 0) (b 0) (c 0) (a 1) (b 1) (c 1))
-       (cartesian-product-right '((a b c) (0 1))))
-;;===================================================================
-(test-end)