0
@@ -73,20 +73,25 @@ class BusSchemeLambdaTest < Test::Unit::TestCase
0
def test_lambdas_know_what_file_they_were_defined_in
0
- filename = File.expand_path("#{File.dirname(__FILE__)}/../examples/fib.scm")
0
- eval "(load \"#{filename}\")"
0
- assert_equal filename, Lambda[:fib].defined_in.first
0
- eval "(define fab 'warble)"
0
- assert_equal "(eval)", Lambda[:fab].defined_in.first
0
- def test_lambdas_know_what_line_they_were_defined_in
0
- eval "#{"\n" * 7} (define fab 'warble)"
0
- assert_equal 7, Lambda[:fab].defined_in.last
0
+ assert_equal "(primitive)", Lambda[:if].file
0
+ eval "(define fab (lambda () \"warble\"))"
0
+ assert_equal "(eval)", Lambda[:fab.node].file
0
filename = File.expand_path("#{File.dirname(__FILE__)}/../examples/fib.scm")
0
eval "(load \"#{filename}\")"
0
- assert_equal
1, Lambda.scope[:fib].defined_in.last0
+ assert_equal
filename, Lambda[:fib.node].file0
+# def test_lambdas_know_what_line_they_were_defined_in
0
+# assert_equal nil, Lambda[:if].line
0
+# filename = File.expand_path("#{File.dirname(__FILE__)}/../examples/fib.scm")
0
+# eval "(load \"#{filename}\")"
0
+# assert Lambda.scope[:fib.node].is_a?(Lambda)
0
+# assert_equal 1, Lambda.scope[:fib.node].line
0
+# eval "#{"\n" * 7} (define fab 'warble)"
0
+# assert_equal 7, Lambda[:fab.node].line
Comments
No one has commented yet.