Merge pull request #561 from HarlanH/master

tests framework

jl/sysimg.jl

@@ -84,6 +84,7 @@ include("darray.jl")
 include("version.jl")
 include("util.jl")
 include("datafmt.jl")
+include("test.jl")
 
 ## Load optional external libraries
 

jl/test.jl

@@ -0,0 +1,155 @@
+# test suite functions and macros
+
+# tests
+# TODO: re-enable when filesystem tests become available!
+# function tests(onestr::String, outputter::Function) 
+#     # if onestr is an existing file, pass it to the primary testing function 
+#     stat = strip(readall(`stat -f "%HT" $onestr`))
+#     if (stat == "Regular File")
+#         tests([onestr], outputter)
+#     elseif (stat == "Directory")
+#         # if it's a directory name, find all test_*.jl in that and subdirectories, and pass
+#         # that list
+#         files_str = strip(readall(`find $onestr -name test_*.jl -print`))
+#         if (length(files_str) > 0)
+#             tests(split(files_str, "\n"), outputter)
+#         else
+#             # otherwise, throw an error
+#             error("no test_*.jl files in directory: $onestr")
+#         end
+#     end
+# end
+# tests(onestr::String) = tests(onestr, test_printer_raw)
+# tests(fn::Function) = tests(".", fn)
+# tests() = tests(".")
+
+tests(onestr::String, outputter::Function) = tests([onestr], outputter)
+tests(onestr::String) = tests([onestr], test_printer_raw)
+
+function tests(filenames, outputter::Function)
+    # run these files as a task
+    hdl = Task(() -> _tests_task(filenames))
+    outputter(hdl)
+end
+tests(filenames) = tests(filenames, test_printer_raw)
+
+function _tests_task(filenames)
+    for fn = filenames
+        load(fn)
+    end
+end
+
+# the default printer
+function test_printer_raw(hdl::Task)
+    for t = hdl
+        if (t.result)
+            print(".")
+        else
+            println("")
+            show(t) # TODO spiff up
+            println("")
+        end
+    end
+end
+
+# things to set state
+function test_context(context::String)
+    tls(:context, context)
+end
+function test_group(group::String)
+    tls(:group, group)
+end
+
+# data structures
+type NoException <: Exception
+end
+
+type TestResult
+    context
+    group
+    expr_str::String
+    result::Bool
+    elapsed::Float
+    exception_thrown::Exception
+    operation
+    arg1
+    arg2
+    arg3
+end
+TestResult() = TestResult("", "", "", false, NaN, NoException(), Nothing, Nothing, Nothing, Nothing)
+
+# the macro just wraps the expression in a couple layers of quotes, then passes it to a function
+# that does the real work
+macro test(ex)
+    quote
+        $_test(expr(:quote, ex))
+    end
+end
+
+function _test(ex::Expr)
+    local tr = TestResult()
+    tr.context = tls(:context)
+    tr.group = tls(:group)
+
+    # unwrap once
+    ex = eval(ex)
+
+    # save the string
+    tr.expr_str = string(ex)
+
+    # eval the whole thing, capturing exceptions and times
+    try
+        tr.elapsed = @elapsed tr.result = eval(ex)
+    catch except
+        tr.exception_thrown = except
+    end
+
+    # if we failed without an exception, pull apart the expression and see about evaluating
+    # the parts
+    if (tr.result == false && tr.exception_thrown == NoException())
+        if (ex.head == :comparison)
+            tr.operation = ex.head
+            tr.arg1 = eval(ex.args[1])
+            tr.arg2 = eval(ex.args[3])
+        elseif (ex.head == :call) # is it a helper we know about?
+            if (ex.args[1] == :approx_eq)
+                tr.operation = ex.args[1]
+                tr.arg1 = eval(ex.args[2])
+                tr.arg2 = eval(ex.args[3])
+            elseif (ex.args[1] == :prints)
+                tr.operation = ex.args[1]
+                tr.arg1 = print_to_string(eval(ex.args[2]), eval(ex.args[3])...)
+                tr.arg2 = eval(ex.args[4]) 
+            end
+        end
+    end
+
+    # if we're running takes_less_than, see how we did
+    if (ex.args[1] == :takes_less_than)
+        tr.result = tr.elapsed < eval(ex.args[3])
+        tr.operation = ex.args[1]
+        tr.arg1 = tr.elapsed
+        tr.arg2 = eval(ex.args[3])
+    end
+
+
+    produce(tr)
+end
+
+# helpful utility tests, supported by the macro
+# 
+
+function approx_eq(a, b, tol)
+    abs(a - b) < tol
+end
+approx_eq(a, b) = approx_eq(a, b, 1e-6)
+
+function prints(fn::Function, args, expected::String) 
+    print_to_string(fn, args...) == expected
+end
+
+function takes_less_than(anything, expected)
+    # the magic happens in _test
+    true
+end
+

test/test_test.jl

@@ -0,0 +1,40 @@
+# test file to test testing
+
+
+test_context("Testing test tests")
+# setup goes here
+
+test_group("string tests")
+@test strip("\t  hi   \n") == "hi"
+@test strip("\t  this should fail   \n") == "hi" #fail
+
+
+test_group("numeric tests")
+@test approx_eq(airy(1.8), 0.0470362)
+@test approx_eq(airy(1, 1.8), 1 + -0.0685248) # fail, using helper function
+
+test_group("array tests")
+a = Array(Float64, 2, 2, 2, 2, 2)
+a[1,1,1,1,1] = 10
+@test a[1,1,1,1,1] == 10
+@test a[1,1,1,1,1] == 2 # fail
+
+
+test_group("random tests")
+@test rand() != rand() # not very likely to fail
+@test rand() == rand() # fail
+
+test_group("exception tests")
+@test complex(1,2) > 0 # fail
+
+test_group("printing tests")
+@test print_to_string(show, :(1+2)) == "+(1,2)"
+@test prints(print_joined, ([1,2,3], " : "), "1 : 2 : 3") # prints is a helper
+@test prints(print_joined, ([1,2,3], " ! "), "1 : 2 : 3") # fail
+
+test_group("performance tests")
+fib(n) = n < 2 ? n : fib(n-1) + fib(n-2)
+@test fib(20) == 6765
+@test takes_less_than(fib(20), 1e-6)
+
+# shutdown goes here