nendo 0.6.8 → 0.7.0

data/test/nendo-util-test.nnd

@@ -1,496 +0,0 @@
-;;-*- mode: nendo; syntax: scheme -*-;;
-;; test for nendo's core utility
-
-(use nendo.test)
-
-(test-start "nendo's core utility")
-
-;;-------------------------------------------------------------------
-(test-section "disasm")
-
-(define (dummy-function arg1)
-  (let1 var (+ arg1 1)
-    var))
-
-(test* "disasm info"
-       " file:   ./test/nendo-util-test.nnd 
- lineno: 11 
- source: 
-(define
- (dummy-function arg1)
- (let1 var
-  (+ arg1 1) var))
- expanded: 
-(define dummy-function
- (lambda
-  (arg1)
-  (%let
-   ((var
-     (+ arg1 1))) var)))
-"       (disasm 'dummy-function 'info))
-(test* "disasm source  "
-       '(define (dummy-function arg1) (let1 var (+ arg1 1) var))
-       (disasm 'dummy-function 'source))
-(test* "disasm expanded"
-       '(define dummy-function (lambda (arg1) (%let ((var (+ arg1 1))) var)))
-       (disasm 'dummy-function 'expanded))
-(test* "disasm ruby-code"
-       "
-trampCall( 
-  begin
-      def self._dummy_MIMARKfunction_METHOD( origname, pred, args )   lispMethodEntry( origname, true ) ;   ret = callProcedure( '_dummy_MIMARKfunction', origname, pred, args ) ;  lispMethodExit( origname,  true ) ;   return ret end 
-      @global_lisp_binding['_dummy_MIMARKfunction'] = self.method( :_dummy_MIMARKfunction_METHOD )
-    @_dummy_MIMARKfunction = 
-    trampCall(
-          Proc.new { |_arg1| 
-              begin
-                ___lambda = lambda { |_var| 
-                    begin
-                        trampCall(_var)
-                      rescue => __e ; __e.set_backtrace( [\"./test/nendo-util-test.nnd:13\"] + __e.backtrace ) ; raise __e
-                    end
-                } ; ___lambda.call(
-                      begin
-                        embedBacktraceInfo( \"./test/nendo-util-test.nnd\", 12 ); 
-                          __PLMARK_ARGS2(
-                              begin
-                                  trampCall(_arg1)
-                                rescue => __e ; __e.set_backtrace( [\"./test/nendo-util-test.nnd:12\"] + __e.backtrace ) ; raise __e
-                              end                            ,
-                            1
-                          )
-                      end
-                           )
-              end
-          }
-    )
-  end
- )"
-       (disasm 'dummy-function))
-
-
-;;===================================================================
-(test-section "pretty-print-to-string")
-(define test-sexp1 '(a (b (c))))
-(define test-sexp2 '(define (function1 a b c) (+ a b c)))
-
-(test* "pretty-print-to-string"
-       (string-join
-        '("(a\n"
-          " (b\n"
-          "  (c)))\n"))
-       (pretty-print-to-string test-sexp1))
-
-(test* "pretty-print-to-string"
-       (string-join
-        '("(define\n"
-          " (function1 a b c)\n"
-          " (+ a b c))\n"))
-       (pretty-print-to-string test-sexp2))
-
-
-(define (wrap-str str)
-  (+ "[" str "]"))
-
-
-;;-------------------------------------------------------------------
-(test-section "map for Enumerable")
-
-(test* "map-pable? no"
-       #f
-       (%%map-able?
-        (lambda (x) x)
-        ' (1 2)))
-
-(test* "map-pable? yes"
-       #t
-       (%%map-able?
-        (lambda (x) x)
-        '#(1 2)))
-
-(test* "map-pable? yes"
-       #t
-       (%%map-able?
-        (lambda (x) x)
-        (Range.new 0 100)))
-
-(test* "map-pable? yes"
-       #t
-       (%%map-able?
-        (lambda (x) x)
-        (hash-table eq? '("a" 1) '("b" 2))))
-
-(test* "%%map"
-       '#("[a]" "[b]" "[C]")
-       (%%map
-        wrap-str
-        '#("a" "b" "C")))
-
-(test* "%map (for vector)"
-       '#("[a]" "[b]" "[C]")
-       (%map
-        wrap-str
-        '#("a" "b" "C")))
-
-(test* "map (for vector)"
-       '#("[a]" "[b]" "[C]")
-       (map
-        wrap-str
-        '#("a" "b" "C")))
-
-(test* "map (for list)"
-       '("[a]" "[b]" "[C]")
-       (map
-        wrap-str
-        '("a" "b" "C")))
-
-(test* "map (for lists)"
-       '("[1:3:5]" "[2:4:6]")
-       (map
-        (lambda (x y z) (+ "[" x ":" y ":" z "]"))
-        '("1" "2")
-        '("3" "4")
-        '("5" "6")))
-
-;;-------------------------------------------------------------------
-(test-section "for-each for Enumerable")
-
-(test* "for-each-pable? no"
-       #f
-       (%%for-each-able?
-        (lambda (x) x)
-        ' (1 2)))
-
-(test* "for-each-pable? yes"
-       #t
-       (%%for-each-able?
-        (lambda (x) x)
-        '#(1 2)))
-
-(test* "for-each-pable? yes"
-       #t
-       (%%for-each-able?
-        (lambda (x) x)
-        (Range.new 0 100)))
-
-(test* "for-each-pable? yes"
-       #t
-       (%%for-each-able?
-        (lambda (x) x)
-        (hash-table eq? '("a" 1) '("b" 2))))
-
-(test* "%%for-each"
-       '("[a]" "[b]" "[C]")
-       (let1 result '()
-         (%%for-each
-          (lambda (x) (set! result
-                            (cons (wrap-str x) result)))
-          '#("a" "b" "C"))
-         (reverse result)))
-
-(test* "%for-each (for vector)"
-       '("[a]" "[b]" "[C]")
-       (let1 result '()
-         (%for-each
-          (lambda (x) (set! result
-                            (cons (wrap-str x) result)))
-          '#("a" "b" "C"))
-         (reverse result)))
-
-(test* "for-each (for vector)"
-       '("[a]" "[b]" "[C]")
-       (let1 result '()
-         (for-each
-          (lambda (x) (set! result
-                            (cons (wrap-str x) result)))
-          '#("a" "b" "C"))
-         (reverse result)))
-
-(test* "for-each (for list)"
-       '("[a]" "[b]" "[C]")
-       (let1 result '()
-         (for-each
-          (lambda (x) (set! result
-                            (cons (wrap-str x) result)))
-          '("a" "b" "C"))
-         (reverse result)))
-
-(test* "for-each (for lists)"
-       '("[1:3:5]" "[2:4:6]")
-       (let1 result '()
-         (for-each
-          (lambda (x y z)
-            (set! result
-                  (cons
-                   (+ "[" x ":" y ":" z "]")
-                   result)))
-          
-          '("1" "2")
-          '("3" "4")
-          '("5" "6"))
-         (reverse result)))
-
-
-;;-------------------------------------------------------------------
-(test-section "filter for Enumerable")
-
-(test* "filter-pable? no"
-       #f
-       (%%filter-able?
-        (lambda (x) x)
-        ' (1 2)))
-
-(test* "filter-pable? yes"
-       #t
-       (%%filter-able?
-        (lambda (x) x)
-        '#(1 2)))
-
-(test* "filter-pable? yes"
-       #t
-       (%%filter-able?
-        (lambda (x) x)
-        (Range.new 0 100)))
-
-(test* "filter-pable? yes"
-       #t
-       (%%filter-able?
-        (lambda (x) x)
-        (hash-table eq? '("a" 1) '("b" 2))))
-
-(test* "%%filter"
-       '#("b")
-       (%%filter
-        (lambda (x) (= "b" x))
-        '#("a" "b" "C")))
-
-(test* "%filter (for vector)"
-       '#("b")
-       (%filter
-        (lambda (x) (= "b" x))
-        '#("a" "b" "C")))
-
-(test* "filter (for vector1)"
-       '#("b")
-       (filter
-        (lambda (x) (= "b" x))
-        '#("a" "b" "C")))
-
-(test* "filter (for vector2)"
-       '#("a" "C")
-       (filter
-        (lambda (x) (not (= "b" x)))
-        '#("a" "b" "C")))
-
-(test* "filter (for list)"
-       '("C")
-       (filter
-        (lambda (x) (= "C" x))
-        '("a" "b" "C")))
-
-
-;;-------------------------------------------------------------------
-(test-section "Enumerable on srfi-1")
-(use srfi-1)
-
-(test* "map (for vector)"
-       '#("[a]" "[b]" "[C]")
-       (map
-        wrap-str
-        '#("a" "b" "C")))
-
-(test* "map (for Range)"
-       '#(10 11 12)
-       (map
-        (lambda (x) x)
-        (Range.new 10 12)))
-
-(test* "map (for Enumerator)"
-       '#("[one]" "[two]" "[three]")
-       (map
-        wrap-str
-        (Enumerator.new
-         (&block (v)
-           (v.yield "one")
-           (v.yield "two")
-           (v.yield "three")))))
-           
-
-(test* "for-each (for vector)"
-       '("[a]" "[b]" "[C]")
-       (let1 result '()
-         (for-each
-          (lambda (x) (set! result
-                            (cons (wrap-str x) result)))
-          '#("a" "b" "C"))
-         (reverse result)))
-
-(test* "for-each (for Range)"
-       '(10 11 12)
-       (let1 result '()
-         (for-each
-          (lambda (x) (set! result
-                            (cons x result)))
-          (Range.new 10 12))
-         (reverse result)))
-
-(test* "for-each (for Enumerable)"
-       '("[one]" "[two]" "[three]")
-       (let1 result '()
-         (for-each
-          (lambda (x) (set! result
-                            (cons (wrap-str x) result)))
-          (Enumerator.new
-           (&block (v)
-             (v.yield "one")
-             (v.yield "two")
-             (v.yield "three"))))
-         (reverse result)))
-
-(test* "filter (for vector)"
-       '#("b")
-       (filter
-        (lambda (x) (= "b" x))
-        '#("a" "b" "C")))
-
-(test* "filter (for Range)"
-       '#(11)
-       (filter
-        (lambda (x) (= 11 x))
-        (Range.new 10 1000)))
-
-(test* "filter (for Enumerable)"
-       '#("one" "three")
-       (filter
-        (lambda (x) (not (= "two" x)))
-        (Enumerator.new
-         (&block (v)
-           (v.yield "one")
-           (v.yield "two")
-           (v.yield "three")))))
-        
-
-(test* "fold (for vector)"
-       120
-       (fold
-        (lambda (item result) (* item result))
-        1
-        '#(1 2 3 4 5)))
-
-(test* "fold (for Range)"
-       5050
-       (fold
-        (lambda (item result) (+ item result))
-        1
-        (Range.new 2 100)))
-
-(test* "fold (for string vector)"
-       "a/b/c/d/e/f/g/h"
-       (fold
-        (lambda (item result) (+ result "/" item))
-        "a"
-        (. "bcdefgh" split "")))
-
-(test* "fold (for Enumerable)"
-       "one:two:three:four"
-       (fold
-        (lambda (item result) (+ result ":" item))
-        "one"
-        (Enumerator.new
-         (&block (v)
-           (v.yield "two")
-           (v.yield "three")
-           (v.yield "four")
-           ))))
-        
-
-;;-------------------------------------------------------------------
-(test-section "ruby-lazy for Enumerable")
-
-(let1 arr '#(1 2 3)
-  (test* "ruby-lazy is a kind of vector? (1)"
-         #t
-         (vector? arr))
-  (test* "ruby-lazy is a kind of vector? (2)"
-         #t
-         (vector? (ruby-lazy arr)))
-  (test* "ruby-lazy is a kind of vector? (3)"
-         #t
-         (vector? (ruby-lazy (ruby-lazy arr)))))
-  
-(if (ruby-lazy-enabled-platform?)
-    ;; Ruby 2.0
-    (let ((arr '#(1 2 3))
-          (vec (ruby-lazy '#( 1 2 3 4 5 6 7 8 9 10 ))))
-
-      (test* "ruby-lazy? (for Ruby-2.0)"
-             #f
-             (ruby-lazy? arr))
-      (test* "ruby-lazy? (for Ruby-2.0)"
-             #t
-             (ruby-lazy? (ruby-lazy arr)))
-      (test* "ruby-lazy? (for Ruby-2.0)"
-             #t
-             (ruby-lazy? (ruby-lazy (ruby-lazy arr))))
-      (test* "ruby-lazy? (for Ruby-2.0)"
-             #f
-             (ruby-lazy? STDIN))
-      (test* "ruby-lazy? (for Ruby-2.0)"
-             #t
-             (ruby-lazy? (ruby-lazy STDIN)))
-      (test* "size of ruby-lazy (for Ruby-2.0)"
-             10
-             (vec.size))
-      (test* "size of ruby-lazy (for Ruby-2.0)"
-             10
-             (vector-length vec))
-      (test* "index of ruby-lazy"
-             (test-error NoMethodError)
-             (vector-ref vec 2))
-      (test* "ruby-lazy to list"
-             '(1 2 3 4 5 6 7 8 9 10)
-             (vector->list vec))
-      (test* "size of ruby-lazy"
-             10
-             (length (vector->list vec)))
-      (test* "index of ruby-lazy"
-             3
-             (vector-ref (list->vector (vector->list vec)) 2))
-      (test* "vector-equal?"
-             (test-error NoMethodError)
-             (vector-equal? vec (list->vector (range 10 1))))
-      (test* "vector-equal?"
-             #t
-             (vector-equal? (list->vector (vector->list vec)) (list->vector (range 10 1))))
-      (test* "vector-length"
-             (test-error TypeError)
-             (length (ruby-lazy (make-vector 100))))
-      (test* "vector-length"
-             100
-             (length (vector->list (ruby-lazy (make-vector 100)))))
-      )
-
-    ;; Ruby 1.9.x
-    (let1 arr '#(1 2 3)
-      (test* "ruby-lazy? (for Ruby 1.9.x)"
-             #f
-             (ruby-lazy? arr))
-      (test* "ruby-lazy? (for Ruby 1.9.x)"
-             #f
-             (ruby-lazy? (ruby-lazy arr)))
-      (test* "ruby-lazy? (for Ruby 1.9.x)"
-             #f
-             (ruby-lazy? (ruby-lazy (ruby-lazy arr))))
-      (test* "ruby-lazy? (for Ruby 1.9.x)"
-             #f
-             (ruby-lazy? STDIN))
-      (test* "ruby-lazy? (for Ruby 1.9.x)"
-             #f
-             (ruby-lazy? (ruby-lazy STDIN)))
-      ))
-
-  
-
-    
-;;===================================================================
-(test-end)