nendo 0.3.3 → 0.3.4

data/test/nendo_util.nnd

@@ -0,0 +1,98 @@
+;;-*- mode: nendo; syntax: scheme -*-;;
+;; test for nendo's core utility
+
+(use nendo.test)
+(test-start "nendo's core utility")
+
+;;===================================================================
+(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))
+
+
+;;-------------------------------------------------------------------
+(test-section "disasm")
+
+(define (dummy-function arg1)
+  (let1 var (+ arg1 1)
+    var))
+
+(test* "disasm info"
+" file:   ./test/nendo_util.nnd 
+ lineno: 30 
+ 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( 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.nnd:32\"] + __e.backtrace ) ; raise __e
+                    end
+                } ; ___lambda.call(
+                      trampCall( self.__PLMARK_METHOD(  '+',
+                          begin
+                            if @global_lisp_binding.has_key?('__PLMARK') then
+                              trampCall(@__PLMARK)
+                            else raise NameError.new( \"Error: undefined variable __PLMARK\", \"__PLMARK\" ) end
+                            rescue => __e ; __e.set_backtrace( [\"./test/nendo_util.nnd:31\"] + __e.backtrace ) ; raise __e
+                          end                        ,
+                          Cell.new(
+                            begin
+                                trampCall(_arg1)
+                              rescue => __e ; __e.set_backtrace( [\"./test/nendo_util.nnd:31\"] + __e.backtrace ) ; raise __e
+                            end                          ,Cell.new(
+                          1
+                                   ))))
+                           )
+              end
+          }
+    )
+  end
+ )"
+       (disasm 'dummy-function))
+
+;;===================================================================
+(test-end)

data/test/srfi-1-test.nnd

@@ -335,6 +335,10 @@
 	    (map + '(3 1 4 1) (circular-list 1 0)))
     (fail 'map:1))
 
+(or (equal? 99990000
+            (apply + (map (lambda (x) (* x 2)) (iota 10000))))
+    (fail 'map:2))
+
 (or (equal? '(5 4 3 2 1)
 	    (let ((v 1)
 		  (l '()))
@@ -347,6 +351,14 @@
 	      l))
     (fail 'for-each:1))
 
+(or (equal? 49995000
+            (let1 total 0
+              (for-each
+               (lambda (x) (set! total (+ x total)))
+               (iota 10000))
+              total))
+    (fail 'for-each:2))
+
 (or (equal? '(1 -1 3 -3 8 -8) 
 	    (append-map (lambda (x) (list x (- x))) '(1 3 8)))
     (fail 'append-map:1))
@@ -383,9 +395,25 @@
 			(circular-list 1 2)))
     (fail 'filter-map:1))
 
+(or (equal? '(0 -1 -2 -3 -4 -5 -6 -7 -8 -9)
+            (filter-map (lambda (x) (when (< x 10) (- x))) (iota  1000)))
+    (fail 'filter-map:2))
+
+(or (equal? 10000
+            (length (filter-map (lambda (x) x) (iota  10000))))
+    (fail 'filter-map:3))
+
 (or (equal? '(0 8 8 -4) (filter even? '(0 7 8 8 43 -4)))
     (fail 'filter:1))
 
+(or (equal? '(0 1 2 3 4 5 6 7 8 9)
+            (filter     (lambda (x) (< x 10)) (range  1000)))
+    (fail 'filter:2))
+
+(or (equal? 10000
+            (length (filter (lambda (x) x) (iota  10000))))
+    (fail 'filter:3))
+
 (or (let-values (((a b) (partition symbol? '(one 2 3 four five 6))))
       (and (equal? a '(one four five))
 	   (equal? b '(2 3 6))))

data/test/textlib.nnd

@@ -0,0 +1,24 @@
+;;-*- 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)

metadata

@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
   segments: 
   - 0
   - 3
-  - 3
-  version: 0.3.3
+  - 4
+  version: 0.3.4
 platform: ruby
 authors: 
 - Kiyoka Nishiyama
@@ -14,7 +14,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-07-24 00:00:00 +09:00
+date: 2010-09-09 00:00:00 +09:00
 default_executable: nendo
 dependencies: []
 
@@ -29,23 +29,31 @@ extra_rdoc_files:
 files: 
 - bin/nendo
 - emacs/nendo-mode.el
+- example/KyotoCabinet/kcbench.rb
+- example/KyotoCabinet/kcbench1.nnd
+- example/KyotoCabinet/kcbench2.nnd
+- example/KyotoCabinet/kcbench3.nnd
 - example/cgi/dekamoji.cgi
 - example/cgi/sample.cgi
 - example/deep-loop1.nnd
 - example/deep-loop2.nnd
 - example/exit.nnd
+- example/export-lisp-functions.rb
 - example/fact.nnd
 - example/fizzbuzz1.nnd
 - example/html-lite-sample.nnd
 - example/nqueen.nnd
 - example/scratch.nnd
 - example/tak.nnd
+- example/tak_ruby_version.rb
 - example/twitterTL.nnd
 - lib/debug/syslog.nnd
 - lib/debug/syslog.nndc
 - lib/init.nnd
 - lib/init.nndc
 - lib/nendo.rb
+- lib/nendo/test.nnd
+- lib/nendo/test.nndc
 - lib/srfi-1.nnd
 - lib/srfi-1.nndc
 - lib/text/html-lite.nnd
@@ -53,7 +61,9 @@ files:
 - lib/text/tree.nnd
 - lib/text/tree.nndc
 - test/nendo_spec.rb
+- test/nendo_util.nnd
 - test/srfi-1-test.nnd
+- test/textlib.nnd
 - README
 has_rdoc: true
 homepage: http://github.com/kiyoka/nendo