nendo 0.6.0 → 0.6.1

data/test/nendo_spec.rb

@@ -1230,6 +1230,8 @@ describe Nendo, "when use #xxxx syntax " do
     @nendo.evalStr( " '#?." ).should == '"(string):1"'
     @nendo.evalStr( " '#?." ).should == '"(string):1"'
     @nendo.evalStr( " (begin #?. (+ 1 1))" ).should == "2"
+    @nendo.evalStr( " (rxmatch #/[a-z]/ \"abc\")" ).should == "a"
+    @nendo.evalStr( " (quote #?=(rxmatch #/[a-z]/ \"abc\"))" ).should == '(debug-print (rxmatch #/[a-z]/ "abc") "(string)" 1 (quote (rxmatch #/[a-z]/ "abc")))'
     @nendo.evalStr( <<EOS
 (begin
   #?.
@@ -2130,6 +2132,37 @@ describe Nendo, "when use macros expand some syntax. " do
   end
 end
 
+describe Nendo, "when occur illegal syntax. " do
+  before do
+    @nendo = Nendo::Core.new()
+    @nendo.loadInitFile
+  end
+  it "should" do
+
+    lambda { @nendo.evalStr( <<EOS
+(let abc 1  ;; let1 style form is illegal syntax for let form.
+  (print abc))
+EOS
+                    ) }.should  raise_error( SyntaxError, /^named let requires/ )
+
+    lambda { @nendo.evalStr( "(let 1)"           ) }.should  raise_error( SyntaxError, /^let requires/  )
+    lambda { @nendo.evalStr( "(let ())"          ) }.should  raise_error( SyntaxError, /^let requires/  )
+    @nendo.evalStr(          "(let () 1)"          ).should  == '1'
+    lambda { @nendo.evalStr( "(let loop 1)"      ) }.should  raise_error( SyntaxError, /^named let requires/ )
+    lambda { @nendo.evalStr( "(let loop ())"     ) }.should  raise_error( SyntaxError, /^named let requires/ )
+    @nendo.evalStr(          "(let loop () 1)"     ).should  == '1'
+
+    lambda { @nendo.evalStr( "(let1)"                       ) }.should  raise_error( SyntaxError, /^let1 requires/ )
+    lambda { @nendo.evalStr( "(let1 a)"                     ) }.should  raise_error( SyntaxError, /^let1 requires/ )
+    lambda { @nendo.evalStr( "(let1 a 1)"                   ) }.should  raise_error( SyntaxError, /^let1 requires/ )
+    lambda { @nendo.evalStr( "(let1 (a 1)   (print a))"     ) }.should  raise_error( SyntaxError, /^let1 requires/ )
+    lambda { @nendo.evalStr( "(let1 ((a 1)) (print a))"     ) }.should  raise_error( SyntaxError, /^let1 requires/ )
+    @nendo.evalStr(          "(let1 a 123 a)"               ).should  == '123'
+    @nendo.evalStr(          "(let1 b (+ 100 20 3) b)"      ).should  == '123'
+  end
+end
+
+
 describe Nendo, "when use dot-operator (.) macro " do
   before do
     @nendo = Nendo::Core.new()

data/test/syntax_spec.rb

@@ -751,7 +751,7 @@ EOS
   (%guard-clause (exc
                   (else (print "ELSE"))))))
 EOS
-                    ).should == '(cond (else (print "ELSE")))'
+                    ).should match( /^[(]cond.+else.+print.+ELSE.+[(]#t [(]raise.+exc[)][)][)]$/ )
 
 
     @nendo.evalStr( <<EOS
@@ -762,7 +762,23 @@ EOS
                    (print "<<RuntimeError>>"))
                   (else (print "ELSE"))))))
 EOS
-                    ).should == '(cond ((exc.is_a? RuntimeError) (print "<<RuntimeError>>")) (else (print "ELSE")))'
+                    ).should match( /^[(]cond.+exc.is_a.+RuntimeError.+<<RuntimeError>>.+else.+print.+ELSE.+[(]#t [(]raise.+exc[)][)][)]$/ )
+
+    @nendo.evalStr( <<EOS
+(macroexpand-1
+ (quote
+  (%guard-clause (exc
+                  ((exc.is_a? RuntimeError)
+                   (print "<<RuntimeError>>"))))))
+EOS
+                    ).should match( /^[(]cond.+exc.is_a.+RuntimeError.+<<RuntimeError>>.+[(]#t [(]raise.+exc[)][)][)]$/ )
+
+    @nendo.evalStr( <<EOS
+(macroexpand-1
+ (quote
+  (%guard-clause (exc))))
+EOS
+                    ).should match( /^[(]cond.+[(]#t [(]raise.+exc[)][)][)]$/ )
 
     @nendo.evalStr( <<EOS
 (macroexpand-1
@@ -772,9 +788,10 @@ EOS
                    (print "<<RuntimeError>>"))
                   (else
                    => (lambda (e)
-                        (printf "Type is [%s]\n" e.class)))))))
+                        (sprintf "Type is [%s]" e.class)))))))
 EOS
-                    ).should == "(cond ((exc.is_a? RuntimeError) (print \"<<RuntimeError>>\")) (else feedto (lambda (e) (printf \"Type is [%s]\n\" e.class))))"
+                    ).should match( /^[(]cond.+exc.is_a.+RuntimeError.+print.+RuntimeError.+else.+feedto.+[(]#t [(]raise exc[)][)][)]$/ )
+
 
   end
 end
@@ -783,6 +800,7 @@ end
 describe Nendo, "When use guard special form" do
   before do
     @nendo = Nendo::Core.new()
+    @nendo.setDisplayErrors( false )
     @nendo.loadInitFile
   end
   it "should" do
@@ -858,7 +876,14 @@ EOS
 EOS
                     ).should  == '"Type is [RuntimeError]"'
 
-    @nendo.evalStr( <<EOS
+    lambda { @nendo.evalStr( <<EOS
+(guard
+   (exc)
+  (error "This is RuntimeError"))
+EOS
+                    ) }.should  raise_error( RuntimeError )
+
+    lambda { @nendo.evalStr( <<EOS
 (begin
   (guard
       (exc ((exc.is_a? RuntimeError)
@@ -866,7 +891,7 @@ EOS
     (+ (Array.new) 1))
   \"-END-\")
 EOS
-                    ).should  == '"-END-"'
+                    ) }.should  raise_error( TypeError )
 
   end
 end
@@ -1032,4 +1057,3 @@ EOS
 
   end
 end
-

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: nendo
 version: !ruby/object:Gem::Version 
-  hash: 7
+  hash: 5
   prerelease: 
   segments: 
   - 0
   - 6
-  - 0
-  version: 0.6.0
+  - 1
+  version: 0.6.1
 platform: ruby
 authors: 
 - Kiyoka Nishiyama
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-10-27 00:00:00 Z
+date: 2011-11-05 00:00:00 Z
 dependencies: 
 - !ruby/object:Gem::Dependency 
   name: rspec
@@ -209,7 +209,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
 requirements: []
 
 rubyforge_project: 
-rubygems_version: 1.8.10
+rubygems_version: 1.8.11
 signing_key: 
 specification_version: 3
 summary: Nendo is a dialect of Lisp.