Add a test for a custom interp_receive method

git-svn-id: svn://rubyforge.org/var/svn/tcl/trunk@6 017b7ecb-b1d0-4998-98d6-e9014aaf4887
arthurschreiber · Dec 6, 2007 · 3805cda · 3805cda
1 parent 0da7faa
commit 3805cda
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/test/interp_receive_test.rb b/test/interp_receive_test.rb
@@ -63,5 +63,12 @@ def test_interp_send_converts_non_string_results_to_string
     assert_equal "0",           @interp.eval("interp_send multiply_by_5 0")
     assert_equal "25",          @interp.eval("interp_send multiply_by_5 5")
   end
+
+  def test_interp_send_with_custom_interp_receive_method
+    @interp = InterpWithCustomReceiveMethod.new
+    assert_raises(Tcl::Error) { @interp.eval("interp_send") }
+    assert_equal "foo",         @interp.eval("interp_send foo")
+    assert_equal "foo bar",     @interp.eval("interp_send foo bar")
+  end
 end