@@ -199,21 +199,6 @@ function copy(seq) return map(function(x) return x end, seq) end --- Returns a new function that when called will first write all arguments --- passed in before executing the passed in function. This method will use --- `tostring(func)` as the name of this function unless `name` is defined. This --- method will use `io.stdout` unless `out` is defined. -function trace(func, name, out) - local out = out or g.io.stdout - local name = name or g.tostring(func) - return function(...) - string_args = map(function(x) return g.tostring(x) end, {...}) - out:write("Entering: " .. name .. "(" .. - g.table.concat(string_args, ', ', 1, g.select('#', ...)) .. ")\n") - return func(...) - end -end - -- Adds all public functions and variables for this module to the given environment. -- An error will be raised if this would cause an existing key in the given -- environment to be written. Passing `true` to `force` will skip this check. functional.lua @@ -143,19 +143,6 @@ function test_wrap_iter_example() assert_equals("abce", result) end -function test_trace() - local mock_out = { - buffer = "", - write = function (self, ...) - self.buffer = self.buffer .. ... - end - } - - local tracer = trace(function(...) end, nil, mock_out) - tracer(100, 'abc', function() end) - assert(mock_out.buffer ~= "", "Buffer should contain trace output, but it was empty") -end - -- Run the tests for test_name, test in pairs(getfenv()) do if string.match(test_name, "test_.*") then functional_tests.lua feb692204b7342992ba9d5343ff9e1575e764aaa Chris Pettitt chris@samsarin.com http://github.com/samsarin/lua-functional/commit/44c9cb2b54bac0c315143782b862d7fc8f565427 44c9cb2b54bac0c315143782b862d7fc8f565427 2008-06-15T17:25:39-07:00 2008-06-15T17:06:31-07:00 Deprecate trace function. c70e089679bdcc583812bd1e52b5f2de4a371339 Chris Pettitt chris@samsarin.com