Add: julia-0.6.2

Former-commit-id: ccc667cf67d569f3fb3df39aa57c2134755a7551

julia-0.6.2/share/julia/test/backtrace.jl

@@ -0,0 +1,151 @@
+# This file is a part of Julia. License is MIT: https://julialang.org/license
+
+bt = backtrace()
+have_backtrace = false
+for l in bt
+    lkup = ccall(:jl_lookup_code_address, Any, (Ptr{Void}, Cint), l, true)
+    if lkup[1][1] == :backtrace
+        @test lkup[1][5] == false # fromC
+        have_backtrace = true
+        break
+    end
+end
+
+@test have_backtrace
+
+# Test location information for inlined code (ref issues #1334 #12544)
+module test_inline_bt
+using Base.Test
+
+function get_bt_frames(functionname, bt)
+    for i = 1:length(bt)
+        lkup = Base.StackTraces.lookup(bt[i])
+        lkup[end].func == functionname && (return lkup)
+    end
+end
+
+# same-file inline
+eval(Expr(:function, Expr(:call, :test_inline_1),
+          Expr(:block, Expr(:line, 99, Symbol("backtrace.jl")),
+                       Expr(:block, Expr(:line, 42),
+                                    Expr(:meta, :push_loc, Symbol("backtrace.jl"), :inlfunc),
+                                    Expr(:line, 37),
+                                    Expr(:call, :throw, "foo"),
+                                    Expr(:meta, :pop_loc),
+                                    Expr(:line, 99)))))
+
+@test functionloc(test_inline_1) == ("backtrace.jl", 99)
+try
+    test_inline_1()
+    error("unexpected")
+catch err
+    lkup = get_bt_frames(:test_inline_1, catch_backtrace())
+    @test length(lkup) == 2
+    @test endswith(string(lkup[2].file), "backtrace.jl")
+    @test lkup[2].line == 42
+    @test lkup[1].func == :inlfunc
+    @test endswith(string(lkup[1].file), "backtrace.jl")
+    @test lkup[1].line == 37
+end
+
+# different-file inline
+const absfilepath = is_windows() ? "C:\\foo\\bar\\baz.jl" : "/foo/bar/baz.jl"
+eval(Expr(:function, Expr(:call, :test_inline_2),
+          Expr(:block, Expr(:line, 81, Symbol("backtrace.jl")),
+                       Expr(:block, Expr(:meta, :push_loc, Symbol(absfilepath)),
+                                    Expr(:line, 111),
+                                    Expr(:call, :throw, "foo"),
+                                    Expr(:meta, :pop_loc),
+                                    Expr(:line, 99)))))
+
+@test functionloc(test_inline_2) == ("backtrace.jl", 81)
+try
+    test_inline_2()
+    error("unexpected")
+catch err
+    lkup = get_bt_frames(:test_inline_2, catch_backtrace())
+    @test length(lkup) == 2
+    @test endswith(string(lkup[2].file), "backtrace.jl")
+    @test lkup[2].line == 81
+    @test string(lkup[1].file) == absfilepath
+    @test lkup[1].line == 111
+end
+
+end # module
+
+#issue 12977: line numbers for kwarg methods.
+linenum = @__LINE__; f12977(; args...) = ()
+loc = functionloc(f12977)
+@test endswith(loc[1], "backtrace.jl")
+@test loc[2] == linenum
+
+@noinline function test_throw_commoning(x)
+    if x==1; throw(AssertionError()); end
+    if x==2; throw(AssertionError()); end
+end
+
+let
+    local b1, b2
+    try
+        test_throw_commoning(1)
+    catch
+        b1 = stacktrace(catch_backtrace())
+    end
+    try
+        test_throw_commoning(2)
+    catch
+        b2 = stacktrace(catch_backtrace())
+    end
+    i1 = findfirst(frame -> frame.func === :test_throw_commoning, b1)
+    i2 = findfirst(frame -> frame.func === :test_throw_commoning, b2)
+    @test i1 > 0 && i2 > 0
+    @test b1[i1].line != b2[i2].line
+end
+
+module BackTraceTesting
+
+using Base.Test
+
+@inline bt2() = backtrace()
+@inline bt1() = bt2()
+bt() = bt1()
+
+lkup = map(StackTraces.lookup, bt())
+hasbt = hasbt2 = false
+for sfs in lkup
+    for sf in sfs
+        if sf.func == :bt
+            hasbt = true
+        end
+        if sf.func == :bt2
+            hasbt2 = true
+        end
+    end
+end
+@test hasbt
+if Base.JLOptions().can_inline != 0
+    @test_broken hasbt2
+else
+    @test hasbt2
+end
+
+function btmacro()
+    ret = @timed backtrace()
+    ret[1]
+end
+lkup = map(StackTraces.lookup, btmacro())
+hasme = hasbtmacro = false
+for sfs in lkup
+    for sf in sfs
+        if sf.func == Symbol("macro expansion")
+            hasme = true
+        end
+        if sf.func == :btmacro
+            hasbtmacro = true
+        end
+    end
+end
+@test hasme
+@test hasbtmacro
+
+end