relisp 0.9.0

data/test/test_programming_types.rb

@@ -0,0 +1,275 @@
+# Code Generated by ZenTest v. 3.11.1
+
+require 'test/unit' unless defined? $ZENTEST and $ZENTEST
+
+$:.unshift File.dirname(__FILE__) + "/../lib" 
+require 'relisp'
+
+# when this elisp line:
+### (eval (read (trim-trailing-whitespace relisp-ruby-return)))))
+# was this (i.e., without the eval:
+###       (read (trim-trailing-whitespace relisp-ruby-return))))
+# this would return :hash-table':
+### @emacs.elisp_eval( "(type-of #{hash.to_elisp})" )
+# while this would return :cons':
+### @emacs.elisp_eval( '(type-of (ruby-eval "hash"))' )
+# So the second way needs to be included in testing.
+
+
+class TestArray < Test::Unit::TestCase
+  def setup
+    @emacs = Relisp::ElispSlave.new
+  end
+
+  def test_class_from_elisp
+    assert "if from_elisp works for Vector and Cons, then this works"
+  end
+
+  def test_class_default_elisp_type_equals
+    assert_raise ArgumentError do
+      Array.default_elisp_type = Fixnum
+    end
+    Array.default_elisp_type = Relisp::Vector    
+    assert_equal Relisp::Vector, Array.default_elisp_type
+    Array.default_elisp_type = Relisp::Cons
+    assert_equal Relisp::Cons, Array.default_elisp_type
+  end
+
+  def test_to_elisp
+    Array.default_elisp_type = Relisp::Cons
+    assert_equal :cons, @emacs.elisp_eval( "(type-of #{[1, 2, 3].to_elisp})" )
+    Array.default_elisp_type = Relisp::Vector
+    assert_equal :vector, @emacs.elisp_eval( "(type-of #{[1, 2, 3].to_elisp})" )
+  end
+
+  def test_elisp_type
+    array = [1, 2, 3]
+    assert_equal Array.default_elisp_type, array.elisp_type
+    assert_raise ArgumentError do
+      array.elisp_type = Fixnum
+    end
+    array.elisp_type = Relisp::Vector
+    assert_equal Relisp::Vector, array.elisp_type    
+  end
+
+  def test_elisp_type_equals
+    Array.default_elisp_type = Relisp::Cons
+    array = [1, 2, 3]
+    assert_equal :cons, @emacs.elisp_eval( "(type-of #{array.to_elisp})" )
+    array.elisp_type = Relisp::Vector
+    assert_equal :vector, @emacs.elisp_eval( "(type-of #{array.to_elisp})" )
+  end
+end
+
+class TestClass < Test::Unit::TestCase
+  def test_to_elisp
+    @emacs = Relisp::ElispSlave.new
+    assert_equal :Array, @emacs.elisp_eval('(ruby-eval "[1, 2].class")')
+  end
+end
+
+class TestFalseClass < Test::Unit::TestCase
+  def setup
+    @emacs = Relisp::ElispSlave.new
+  end
+
+  def test_to_elisp
+    assert @emacs.elisp_eval("(equal (equal 1 2) #{false.to_elisp})")
+    assert @emacs.elisp_eval("(equal (equal 1 2) (ruby-eval \"false\"))")
+  end
+end
+
+class TestNilClass < Test::Unit::TestCase
+  def setup
+    @emacs = Relisp::ElispSlave.new
+  end
+
+  def test_class_from_elisp
+    assert_nil @emacs.elisp_eval("(equal 1 2)")
+  end
+
+  def test_to_elisp
+    assert @emacs.elisp_eval("(null #{nil.to_elisp})")
+    assert @emacs.elisp_eval("(null (ruby-eval \"nil\"))")
+  end
+end
+
+class TestObject < Test::Unit::TestCase
+  def setup
+    @emacs = Relisp::ElispSlave.new
+  end
+
+  def test_class_from_elisp
+    assert_nothing_raised { IO.from_elisp("blah", 2345) }
+  end
+
+  def test_to_elisp
+    assert_nothing_raised { binding.to_elisp }
+  end
+end
+
+class TestTrueClass < Test::Unit::TestCase
+  def setup
+    @emacs = Relisp::ElispSlave.new
+  end
+
+  def test_to_elisp
+    assert @emacs.elisp_eval( '(ruby-eval "true")' )
+  end
+end
+
+module TestRelisp
+  class TestCons < Test::Unit::TestCase
+    def setup
+      @emacs = Relisp::ElispSlave.new
+    end
+
+    def test_class_from_elisp
+      Array.default_elisp_type = Relisp::Cons
+      result = @emacs.elisp_eval( "'(1 \"string\" 3 [4 5] )" )
+      assert result.kind_of?(Array)
+      assert_equal Relisp::Cons, result.class
+      assert_equal "string", result[1]
+      assert_equal [4, 5], result[3]
+    end
+
+    def test_to_elisp
+      list = [1,2,'a',[4,5]]
+      list.elisp_type = Relisp::Cons
+      assert @emacs.elisp_eval( "(equal (list 1 2 \"a\" (list 4 5)) #{list.to_elisp})" )
+      assert @emacs.elisp_eval( "(equal (list 1 2 \"a\" (list 4 5)) (ruby-eval \"[1, 2, 'a', [4, 5]]\"))" )
+      assert_equal 1, @emacs.elisp_eval( "(car #{list.to_elisp})" )
+    end
+  end
+
+  class TestFloat < Test::Unit::TestCase
+    def setup
+      @emacs = Relisp::ElispSlave.new
+    end
+
+    def test_class_from_elisp
+      assert_equal 2.5, @emacs.elisp_eval( "(/ 5.0 2)" )
+    end
+
+    def test_to_elisp
+      assert @emacs.elisp_eval( "(equal -7.5 (* 3 #{-2.5.to_elisp}))" )
+      assert @emacs.elisp_eval( '(equal -7.5 (* 3 (ruby-eval "-2.5")))' )
+    end
+  end
+
+  class TestHashTable < Test::Unit::TestCase
+    def setup
+      @emacs = Relisp::ElispSlave.new
+      @emacs.elisp_execute( '(setq ht (make-hash-table))' )
+      @emacs.elisp_execute( '(puthash "first" "john" ht)' )
+      @emacs.elisp_execute( '(puthash \'last "doe" ht)' )
+      @emacs.elisp_execute( '(setq subht (make-hash-table))' )
+      @emacs.elisp_execute( '(puthash "first" "john" subht)' )
+      @emacs.elisp_execute( '(puthash \'last "doe" subht)' )
+      @emacs.elisp_execute( '(puthash \'sub subht ht)' )
+    end
+
+    def test_class_from_elisp
+      hash = @emacs.elisp_eval( 'ht' )
+      ruby_hash = Hash.new
+      ruby_hash["first"] = 'john'
+      ruby_hash[:last] = 'doe'
+      copy = ruby_hash.dup
+      ruby_hash[:sub] = copy
+      assert_equal ruby_hash, hash
+    end
+
+    def test_to_elisp
+      hash = @emacs.elisp_eval( 'ht' )
+      ruby_hash = Hash.new
+      ruby_hash["first"] = 'john'
+      ruby_hash[:last] = 'doe'
+      copy = ruby_hash.dup
+      ruby_hash[:sub] = copy
+      assert_equal hash, @emacs.elisp_eval( hash.to_elisp )
+      @emacs.provide(:hash, binding)
+      @emacs.elisp_eval( '(type-of (ruby-eval "hash"))' )
+    end
+  end
+
+  class TestInteger < Test::Unit::TestCase
+    def setup
+      @emacs = Relisp::ElispSlave.new
+    end
+
+    def test_class_from_elisp
+      assert_equal 3, @emacs.elisp_eval( "(+ 1 2)" )
+    end
+
+    def test_to_elisp
+      assert @emacs.elisp_eval( "(equal -2 (+ 1 #{-3.to_elisp}))"  )
+      assert @emacs.elisp_eval( '(equal -2 (+ 1 (ruby-eval "-3")))'  )
+    end
+  end
+
+  class TestString < Test::Unit::TestCase
+    def setup
+      @emacs = Relisp::ElispSlave.new
+    end
+
+    def test_class_from_elisp
+      assert_equal "String test", @emacs.elisp_eval( '(concat "String " "test")')
+    end
+
+    def test_to_elisp
+      str = "a string\nwith two lines"
+      assert @emacs.elisp_eval( "(equal \"a string\\nwith two lines\" #{str.to_elisp}  )" )
+      @emacs.provide(:str, binding)
+      assert @emacs.elisp_eval( "(equal \"a string\\nwith two lines\" (ruby-eval \"str\")  )" )
+    end
+  end
+
+  class TestSymbol < Test::Unit::TestCase
+    def setup
+      @emacs = Relisp::ElispSlave.new
+    end
+
+    def test_class_from_elisp
+      assert_equal :+, @emacs.elisp_eval( "'+" )
+      assert_nil @emacs.elisp_eval( 'nil' )
+      assert_equal true, @emacs.elisp_eval( '(equal 1 1)' )
+    end
+
+    def test_to_elisp
+      assert_equal 3, @emacs.elisp_eval( "(funcall #{:+.to_elisp} 1 2)" )
+      assert_equal 3, @emacs.elisp_eval( "(#{:+} 1 2)" )
+      assert @emacs.elisp_eval( "(equal '+ #{:+.to_elisp})" )
+      assert @emacs.elisp_eval( "(equal '+ (ruby-eval \":+\"))" )
+      assert @emacs.elisp_eval( "(null #{nil.to_elisp})" )
+      assert @emacs.elisp_eval( "(null (ruby-eval \"nil\"))" )
+      assert @emacs.elisp_eval( "(equal #{true.to_elisp} (equal 1 1))" )
+      assert @emacs.elisp_eval( "(equal (ruby-eval \"true\") (equal 1 1))" )
+    end
+  end
+
+  class TestVector < Test::Unit::TestCase
+    def setup
+      @emacs = Relisp::ElispSlave.new
+    end
+
+    def test_class_from_elisp
+      result = @emacs.elisp_eval( "[1 \"string\" 3 [\"sub\" \"array\" 5] ]" )
+      assert result.kind_of?(Array) 
+      assert_equal Relisp::Vector, result.class
+      assert_equal "string", result[1]
+      assert_equal ["sub", "array", 5], result[3]
+    end
+
+    def test_to_elisp
+      vect = [1,2,'a',[4,5]]
+      vect.elisp_type=Relisp::Vector
+      assert @emacs.elisp_eval( "(equal [1 2 \"a\" (list 4 5)] #{vect.to_elisp})" )
+      Array.default_elisp_type=Relisp::Vector
+      assert @emacs.elisp_eval( "(equal [1 2 \"a\" [4 5]] #{vect.to_elisp})" )
+      vect = (1..100).to_a
+      assert_equal vect, @emacs.elisp_eval( vect.to_elisp )
+      assert_equal vect, @emacs.elisp_eval( "(ruby-eval \"(1..100).to_a \")" )
+    end
+  end
+end
+

data/test/test_slaves.rb

@@ -0,0 +1,84 @@
+# Code Generated by ZenTest v. 3.11.1
+
+require 'test/unit' unless defined? $ZENTEST and $ZENTEST
+
+$:.unshift File.dirname(__FILE__) + "/../lib" 
+require 'relisp'
+
+module TestRelisp
+  class TestElispSlave < Test::Unit::TestCase
+    def setup
+      @emacs = Relisp::ElispSlave.new
+    end
+
+    def test_debugging
+      @emacs.debugging
+      assert @emacs.debug
+      @emacs.debugging
+      assert ! @emacs.debug      
+    end
+
+    def test_do
+      assert_equal 3, @emacs.do("(+ 1 2)")
+    end
+  end
+end
+
+# module TestRelisp
+#   class TestRubySlave < Test::Unit::TestCase
+#   end
+# end
+
+module TestRelisp
+  class TestSlave < Test::Unit::TestCase
+    def setup
+      @emacs = Relisp::ElispSlave.new
+    end
+
+    def test_elisp_eval
+      # this is really tested in plenty of other places
+      assert_equal 3, @emacs.elisp_eval("(+ 1 2)")
+    end
+
+    def test_elisp_execute
+      @emacs.elisp_execute("(setq blah 17)")
+      assert_equal 17, @emacs.elisp_eval(:blah)
+      assert_raise Relisp::ElispError do 
+        puts @emacs.elisp_execute("(relisp-nonsense-function 2)")
+      end
+
+    end
+
+    def test_get_permanent_variable
+      @emacs.elisp_eval("(setq foo 3)")
+      new_foo = @emacs.get_permanent_variable :foo
+      assert_equal @emacs.elisp_eval(new_foo), 3
+    end
+
+    def test_new_elisp_variable
+      vars = Array.new
+      size = 1000
+      size.times do 
+        vars << @emacs.new_elisp_variable
+      end
+      assert_equal size, vars.uniq.size
+    end
+
+    def test_provide
+      test_array = [1, 2, 4]
+      @emacs.provide(:test_array, binding)
+      assert_equal test_array, @emacs.test_array
+      test_array.pop
+      assert_equal test_array, @emacs.test_array
+    end
+
+    def test_method_missing
+      assert_equal 6, @emacs.+(1, 2, 3)
+      assert_raise NameError do
+        @emacs.utter_nonsense
+      end
+    end
+  end
+end
+
+

metadata

@@ -0,0 +1,110 @@
+--- !ruby/object:Gem::Specification 
+name: relisp
+version: !ruby/object:Gem::Version 
+  version: 0.9.0
+platform: ruby
+authors: 
+- Don
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-01-26 00:00:00 -05:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: bones
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 2.2.0
+    version: 
+description: Call ruby from emacs and call elisp from ruby. If you never did you should. These things are fun and fun is good.
+email: don@ohspite.net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README
+files: 
+- CHANGELOG
+- COPYING
+- Manifest
+- README
+- Rakefile
+- examples/elisp_master/elisp_master.el
+- examples/elisp_master/ruby_slave
+- examples/ruby_master/ruby_master_example
+- lib/relisp.rb
+- lib/relisp/editing_types.rb
+- lib/relisp/programming_types.rb
+- lib/relisp/slaves.rb
+- setup.rb
+- src/relisp.el
+- src/relisp.elc
+- tasks/ann.rake
+- tasks/bones.rake
+- tasks/gem.rake
+- tasks/git.rake
+- tasks/manifest.rake
+- tasks/notes.rake
+- tasks/post_load.rake
+- tasks/rdoc.rake
+- tasks/rubyforge.rake
+- tasks/setup.rb
+- tasks/spec.rake
+- tasks/svn.rake
+- tasks/test.rake
+- test/test_editing_types.rb
+- test/test_programming_types.rb
+- test/test_slaves.rb
+has_rdoc: true
+homepage: relisp.rubyforge.org
+post_install_message: |
+  ---------------------------
+  Wait! You're not finished!
+  
+  The gem is installed, and you can now call elisp from ruby.  But if
+  you want to call ruby from emacs (and you do, right?) you need to go
+  into the 'src' directory of this gem and copy 'relisp.el' and/or
+  'relisp.elc' to your elisp folder (probably '~/.elisp').  Then you
+  might want to add the line "(require 'relisp)" to your emacs
+  initialization file (probably '~/.emacs').
+  
+  If you don't know where to find the files for this gem, run the
+  command "gem env gemdir".  Or you can download the tarball for this
+  gem and get the files there.
+  ---------------------------
+
+rdoc_options: 
+- --main
+- README
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: relisp
+rubygems_version: 1.3.1
+signing_key: 
+specification_version: 2
+summary: Call ruby from emacs and call elisp from ruby. If you never did you should. These things are fun and fun is good.
+test_files: 
+- test/test_editing_types.rb
+- test/test_programming_types.rb
+- test/test_slaves.rb