diff --git a/base/reflection.jl b/base/reflection.jl index 36b8ad34a23147..c81471b0801ef1 100644 --- a/base/reflection.jl +++ b/base/reflection.jl @@ -160,7 +160,7 @@ function _subtypes(m::Module, x::DataType, sts=Set(), visited=Set()) push!(visited, m) for s in names(m,true) if isdefined(m,s) - t = eval(m,s) + t = getfield(m, s) if isa(t, DataType) && t.name.name == s && supertype(t).name == x.name ti = typeintersect(t, x) ti != Bottom && push!(sts, ti) diff --git a/base/replutil.jl b/base/replutil.jl index edbc2863e53a9c..478b8cfe4c3e89 100644 --- a/base/replutil.jl +++ b/base/replutil.jl @@ -267,7 +267,7 @@ function showerror(io::IO, ex::MethodError) name = ft.name.mt.name f_is_function = false kwargs = Any[] - if startswith(string(ft.name), "#kw#") + if startswith(string(ft.name.name), "#kw#") f = ex.args[2] ft = typeof(f) name = ft.name.mt.name diff --git a/examples/lru_test.jl b/examples/lru_test.jl index 57fca9e0979801..92117f027ba5e6 100644 --- a/examples/lru_test.jl +++ b/examples/lru_test.jl @@ -1,6 +1,6 @@ # This file is a part of Julia. License is MIT: http://julialang.org/license -using LRUExample +using .LRUExample TestLRU = LRUExample.UnboundedLRU{String, String}() TestBLRU = LRUExample.BoundedLRU{String, String}(1000) diff --git a/test/core.jl b/test/core.jl index d98db8c25826f9..8aeb7828aac5c0 100644 --- a/test/core.jl +++ b/test/core.jl @@ -3,6 +3,7 @@ # test core language features const Bottom = Union{} +const name_prefix = "$(["$m." for m in fullname(current_module())]...)" macro testintersect(args...) _testintersect(args...) @@ -1184,8 +1185,8 @@ immutable Foo2509; foo::Int; end # issue #2517 immutable Foo2517; end -@test repr(Foo2517()) == "Foo2517()" -@test repr(Array{Foo2517}(1)) == "Foo2517[Foo2517()]" +@test repr(Foo2517()) == "$(name_prefix)Foo2517()" +@test repr(Array{Foo2517}(1)) == "$(name_prefix)Foo2517[$(name_prefix)Foo2517()]" @test Foo2517() === Foo2517() # issue #1474 @@ -2451,7 +2452,7 @@ let x,y,f y = f() # invoke llvm constant folding @test Int(0x468ace) === Int(y) @test x !== y - @test string(y) == "Int24(0x468ace)" + @test string(y) == "$(name_prefix)Int24(0x468ace)" end # issue #10570 @@ -3077,7 +3078,7 @@ x7864 = 1 end @test_throws UndefVarError x7864 -using M7864 +using .M7864 @test x7864 == 1 # issue #11715 @@ -4399,7 +4400,7 @@ module A15838 const x = :a end module B15838 - import A15838.@f + import ..A15838.@f macro f(x); return :x; end const x = :b end diff --git a/test/docs.jl b/test/docs.jl index 563bc9366f98f6..592d1d82a14399 100644 --- a/test/docs.jl +++ b/test/docs.jl @@ -2,6 +2,8 @@ import Base.Docs: meta, @var, DocStr, parsedoc +const name_prefix = "$(["$m." for m in fullname(current_module())]...)" + # Test helpers. function docstrings_equal(d1, d2) io1 = IOBuffer() @@ -450,10 +452,13 @@ end end let T = meta(DocVars)[@var(DocVars.T)], - S = meta(DocVars)[@var(DocVars.S)] + S = meta(DocVars)[@var(DocVars.S)], + Tname = Markdown.parse("```\n$(name_prefix)DocVars.T\n```"), + Sname = Markdown.parse("```\n$(name_prefix)DocVars.S\n```") + # Splicing the expression directly doesn't work @test docstrings_equal(T.docs[Union{}], doc""" - DocVars.T + $Tname # Fields @@ -464,7 +469,7 @@ let T = meta(DocVars)[@var(DocVars.T)], ) @test docstrings_equal(S.docs[Union{}], doc""" - DocVars.S + $Sname """ ) @@ -545,11 +550,12 @@ end @doc "This should document @m1... since its the result of expansion" @m2_11993 @test (@doc @m1_11993) !== nothing -let d = (@doc :@m2_11993) +let d = (@doc :@m2_11993), + macro_doc = Markdown.parse("`$(name_prefix)@m2_11993` is a macro.") @test docstring_startswith(d, doc""" No documentation found. - `@m2_11993` is a macro.""") + $macro_doc""") end @doc "Now @m2... should be documented" :@m2_11993 @@ -707,56 +713,60 @@ undocumented(x,y) = 3 end -@test docstrings_equal(@doc(Undocumented.bindingdoesnotexist), doc""" +doc_str = Markdown.parse(""" No documentation found. -Binding `Undocumented.bindingdoesnotexist` does not exist. +Binding `$(name_prefix)Undocumented.bindingdoesnotexist` does not exist. """) +@test docstrings_equal(@doc(Undocumented.bindingdoesnotexist), doc"$doc_str") -@test docstrings_equal(@doc(Undocumented.A), doc""" +doc_str = Markdown.parse(""" No documentation found. **Summary:** ``` -abstract Undocumented.A <: Any +abstract $(name_prefix)Undocumented.A <: Any ``` **Subtypes:** ``` -Undocumented.B -Undocumented.C +$(name_prefix)Undocumented.B +$(name_prefix)Undocumented.C ``` """) +@test docstrings_equal(@doc(Undocumented.A), doc"$doc_str") -@test docstrings_equal(@doc(Undocumented.B), doc""" +doc_str = Markdown.parse(""" No documentation found. **Summary:** ``` -abstract Undocumented.B <: Undocumented.A +abstract $(name_prefix)Undocumented.B <: $(name_prefix)Undocumented.A ``` **Subtypes:** ``` -Undocumented.D +$(name_prefix)Undocumented.D ``` """) +@test docstrings_equal(@doc(Undocumented.B), doc"$doc_str") -@test docstrings_equal(@doc(Undocumented.C), doc""" +doc_str = Markdown.parse(""" No documentation found. **Summary:** ``` -type Undocumented.C <: Undocumented.A +type $(name_prefix)Undocumented.C <: $(name_prefix)Undocumented.A ``` """) +@test docstrings_equal(@doc(Undocumented.C), doc"$doc_str") -@test docstrings_equal(@doc(Undocumented.D), doc""" +doc_str = Markdown.parse(""" No documentation found. **Summary:** ``` -immutable Undocumented.D <: Undocumented.B +immutable $(name_prefix)Undocumented.D <: $(name_prefix)Undocumented.B ``` **Fields:** @@ -766,6 +776,7 @@ two :: String three :: Float64 ``` """) +@test docstrings_equal(@doc(Undocumented.D), doc"$doc_str") let d = @doc Undocumented.f io = IOBuffer() @@ -773,7 +784,7 @@ let d = @doc Undocumented.f @test startswith(takebuf_string(io),""" No documentation found. - `Undocumented.f` is a `Function`. + `$(name_prefix)Undocumented.f` is a `Function`. """) end @@ -783,7 +794,7 @@ let d = @doc Undocumented.undocumented @test startswith(takebuf_string(io), """ No documentation found. - `Undocumented.undocumented` is a `Function`. + `$(name_prefix)Undocumented.undocumented` is a `Function`. """) end @@ -862,7 +873,7 @@ let x = Binding(Base, :bindingdoesnotexist) @test @var(Base.bindingdoesnotexist) == x end -let x = Binding(Main, :bindingdoesnotexist) +let x = Binding(current_module(), :bindingdoesnotexist) @test defined(x) == false @test @var(bindingdoesnotexist) == x end diff --git a/test/enums.jl b/test/enums.jl index f6524104a04df2..7ce0c6fca2dc61 100644 --- a/test/enums.jl +++ b/test/enums.jl @@ -1,6 +1,6 @@ # This file is a part of Julia. License is MIT: http://julialang.org/license -module TestEnums +const name_prefix = "$(["$m." for m in fullname(current_module())]...)" using Base.Test @@ -156,7 +156,7 @@ end @test string(apple) == "apple" @test reprmime("text/plain", Fruit) == "Enum $(string(Fruit)):\napple = 0\norange = 1\nkiwi = 2" -@test reprmime("text/plain", orange) == "orange::TestEnums.Fruit = 1" +@test reprmime("text/plain", orange) == "orange::$(name_prefix)Fruit = 1" @enum LogLevel DEBUG INFO WARN ERROR CRITICAL @test DEBUG < CRITICAL @@ -167,5 +167,3 @@ let b = IOBuffer() seekstart(b) @test deserialize(b) === apple end - -end # module diff --git a/test/examples.jl b/test/examples.jl index 494a93deebd826..2fbcf21593ce45 100644 --- a/test/examples.jl +++ b/test/examples.jl @@ -82,8 +82,7 @@ catch end if !zmq_found - eval(parse("module ZMQ end")) + eval(Main, parse("module ZMQ end")) end include(joinpath(dir, "clustermanager/0mq/ZMQCM.jl")) - diff --git a/test/lineedit.jl b/test/lineedit.jl index 3f24fdf9e87927..1a653bf4665bab 100644 --- a/test/lineedit.jl +++ b/test/lineedit.jl @@ -2,7 +2,7 @@ using Base.LineEdit isdefined(:TestHelpers) || include(joinpath(dirname(@__FILE__), "TestHelpers.jl")) -using TestHelpers +using .TestHelpers a_foo = 0 diff --git a/test/misc.jl b/test/misc.jl index 16066830498e94..e27723dc5ed14c 100644 --- a/test/misc.jl +++ b/test/misc.jl @@ -118,6 +118,8 @@ end @test gc_enable(true) # test methodswith +# `methodwith` relies on exported symbols +export func4union, Base immutable NoMethodHasThisType end @test isempty(methodswith(NoMethodHasThisType)) @test !isempty(methodswith(Int)) diff --git a/test/nullable.jl b/test/nullable.jl index 7ef888f2d87eda..66b9303f54c56d 100644 --- a/test/nullable.jl +++ b/test/nullable.jl @@ -104,10 +104,11 @@ for (i, T) in enumerate(types) end module NullableTestEnum + const name_prefix = "$(["$m." for m in fullname(current_module())]...)" io = IOBuffer() @enum TestEnum a b show(io, Nullable(a)) - Base.Test.@test takebuf_string(io) == "Nullable{NullableTestEnum.TestEnum}(a)" + Base.Test.@test takebuf_string(io) == "Nullable{$(name_prefix)TestEnum}(a)" end # showcompact(io::IO, x::Nullable) diff --git a/test/offsetarray.jl b/test/offsetarray.jl index 4a91bf6a29f269..e248d5e85b1a03 100644 --- a/test/offsetarray.jl +++ b/test/offsetarray.jl @@ -95,7 +95,7 @@ indsoffset(i::Integer) = 0 end -using OAs +using .OAs let # Basics diff --git a/test/reflection.jl b/test/reflection.jl index 6b4864c772cccc..64baae764fc84f 100644 --- a/test/reflection.jl +++ b/test/reflection.jl @@ -161,8 +161,12 @@ not_const = 1 ## find bindings tests @test ccall(:jl_get_module_of_binding, Any, (Any, Any), Base, :sin)==Base +const curmod = current_module() +const curmod_name = fullname(curmod) + module TestMod7648 using Base.Test +import ..curmod_name, ..curmod export a9475, c7648, foo7648 const c7648 = 8 @@ -173,6 +177,7 @@ foo7648(x) = x module TestModSub9475 using Base.Test using ..TestMod7648 + import ..curmod_name export a9475 a9475 = 5 b9475 = 7 @@ -180,7 +185,8 @@ foo7648(x) = x @test Base.binding_module(:a9475)==current_module() @test Base.binding_module(:c7648)==TestMod7648 @test Base.module_name(current_module())==:TestModSub9475 - @test Base.fullname(current_module())==(:TestMod7648, :TestModSub9475) + @test Base.fullname(current_module()) == (curmod_name..., :TestMod7648, + :TestModSub9475) @test Base.module_parent(current_module())==TestMod7648 end end # module TestModSub9475 @@ -191,7 +197,7 @@ let @test Base.binding_module(:d7648)==current_module() @test Base.binding_module(:a9475)==TestModSub9475 @test Base.module_name(current_module())==:TestMod7648 - @test Base.module_parent(current_module())==Main + @test Base.module_parent(current_module())==curmod end end # module TestMod7648 @@ -205,7 +211,7 @@ let end let - using TestMod7648 + using .TestMod7648 @test Base.binding_module(:a9475)==TestMod7648.TestModSub9475 @test Base.binding_module(:c7648)==TestMod7648 @test Base.function_name(foo7648)==:foo7648 @@ -326,7 +332,7 @@ end end let - using MacroTest + using .MacroTest a = 1 m = getfield(current_module(), Symbol("@macrotest")) @test which(m, Tuple{Int,Symbol})==@which @macrotest 1 a diff --git a/test/repl.jl b/test/repl.jl index e6b3369c75d39c..965c35e91b7869 100644 --- a/test/repl.jl +++ b/test/repl.jl @@ -1,8 +1,10 @@ # This file is a part of Julia. License is MIT: http://julialang.org/license +const name_prefix = "$(["$m." for m in fullname(current_module())]...)" + # REPL tests isdefined(:TestHelpers) || include(joinpath(dirname(@__FILE__), "TestHelpers.jl")) -using TestHelpers +using .TestHelpers import Base: REPL, LineEdit function fake_repl() @@ -38,12 +40,15 @@ if !is_windows() || Sys.windows_version() >= Sys.WINDOWS_VISTA_VER Base.REPL.run_repl(repl) end - sendrepl(cmd) = write(stdin_write,"inc || wait(b); r = $cmd; notify(c); r\r") + sendrepl(cmd) = begin + write(stdin_write,"$(name_prefix)inc || wait($(name_prefix)b); r = $cmd; notify($(name_prefix)c); r\r") + end inc = false b = Condition() c = Condition() sendrepl("\"Hello REPL\"") + inc=true begin notify(b) diff --git a/test/replcompletions.jl b/test/replcompletions.jl index 8abd0c35a01f1d..2112f5e2563f97 100644 --- a/test/replcompletions.jl +++ b/test/replcompletions.jl @@ -2,7 +2,10 @@ using Base.REPLCompletions -module CompletionFoo +const name_prefix = "$(["$m." for m in fullname(current_module())]...)" + +ex = quote + module CompletionFoo type Test_y yy end @@ -51,7 +54,14 @@ module CompletionFoo const tuple = (1, 2) test_y_array=[CompletionFoo.Test_y(rand()) for i in 1:10] + end + # FIXME this completion doesn't work when putting in a module + test_repl_comp_dict = Dict("abc"=>1, "abcd"=>10, :bar=>2, :bar2=>9, Base=>3, + contains=>4, `ls`=>5, 66=>7, 67=>8, ("q",3)=>11, + "α"=>12, :α=>13) end +ex.head = :toplevel +eval(Main, ex) function temp_pkg_dir(fn::Function) # Used in tests below to setup and teardown a sandboxed package directory @@ -218,7 +228,7 @@ end s = "CompletionFoo.test(1,1, " c, r, res = test_complete(s) @test !res -@test c[1] == string(first(methods(CompletionFoo.test, Tuple{Int, Int}))) +@test c[1] == string(first(methods(Main.CompletionFoo.test, Tuple{Int, Int}))) @test length(c) == 3 @test r == 1:18 @test s[r] == "CompletionFoo.test" @@ -226,7 +236,7 @@ c, r, res = test_complete(s) s = "CompletionFoo.test(CompletionFoo.array," c, r, res = test_complete(s) @test !res -@test c[1] == string(first(methods(CompletionFoo.test, Tuple{Array{Int, 1}, Any}))) +@test c[1] == string(first(methods(Main.CompletionFoo.test, Tuple{Array{Int, 1}, Any}))) @test length(c) == 2 @test r == 1:18 @test s[r] == "CompletionFoo.test" @@ -234,7 +244,7 @@ c, r, res = test_complete(s) s = "CompletionFoo.test(1,1,1," c, r, res = test_complete(s) @test !res -@test c[1] == string(first(methods(CompletionFoo.test, Tuple{Any, Any, Any}))) +@test c[1] == string(first(methods(Main.CompletionFoo.test, Tuple{Any, Any, Any}))) @test r == 1:18 @test s[r] == "CompletionFoo.test" @@ -262,26 +272,26 @@ for (T, arg) in [(String,"\")\""),(Char, "')'")] s = "(1, CompletionFoo.test2($arg," c, r, res = test_complete(s) @test length(c) == 1 - @test c[1] == string(first(methods(CompletionFoo.test2, Tuple{T,}))) + @test c[1] == string(first(methods(Main.CompletionFoo.test2, Tuple{T,}))) @test r == 5:23 @test s[r] == "CompletionFoo.test2" end s = "(1, CompletionFoo.test2(`)`," c, r, res = test_complete(s) -@test c[1] == string(first(methods(CompletionFoo.test2, Tuple{Cmd}))) +@test c[1] == string(first(methods(Main.CompletionFoo.test2, Tuple{Cmd}))) @test length(c) == 1 s = "CompletionFoo.test3([1, 2] + CompletionFoo.varfloat," c, r, res = test_complete(s) @test !res -@test c[1] == string(first(methods(CompletionFoo.test3, Tuple{Array{Float64, 1}, Float64}))) +@test c[1] == string(first(methods(Main.CompletionFoo.test3, Tuple{Array{Float64, 1}, Float64}))) @test length(c) == 1 s = "CompletionFoo.test3([1.,2.], 1.," c, r, res = test_complete(s) @test !res -@test c[1] == string(first(methods(CompletionFoo.test3, Tuple{Array{Float64, 1}, Float64}))) +@test c[1] == string(first(methods(Main.CompletionFoo.test3, Tuple{Array{Float64, 1}, Float64}))) @test r == 1:19 @test length(c) == 1 @test s[r] == "CompletionFoo.test3" @@ -289,7 +299,7 @@ c, r, res = test_complete(s) s = "CompletionFoo.test4(\"e\",r\" \"," c, r, res = test_complete(s) @test !res -@test c[1] == string(first(methods(CompletionFoo.test4, Tuple{String, Regex}))) +@test c[1] == string(first(methods(Main.CompletionFoo.test4, Tuple{String, Regex}))) @test r == 1:19 @test length(c) == 1 @test s[r] == "CompletionFoo.test4" @@ -298,13 +308,13 @@ s = "CompletionFoo.test5(push!(Base.split(\"\",' '),\"\",\"\").==\"\"," c, r, res = test_complete(s) @test !res @test length(c) == 1 -@test c[1] == string(first(methods(CompletionFoo.test5, Tuple{BitArray{1}}))) +@test c[1] == string(first(methods(Main.CompletionFoo.test5, Tuple{BitArray{1}}))) s = "CompletionFoo.test4(CompletionFoo.test_y_array[1]()[1], CompletionFoo.test_y_array[1]()[2], " c, r, res = test_complete(s) @test !res @test length(c) == 1 -@test c[1] == string(first(methods(CompletionFoo.test4, Tuple{String, String}))) +@test c[1] == string(first(methods(Main.CompletionFoo.test4, Tuple{String, String}))) # Test that string escaption is handled correct s = """CompletionFoo.test4("\\"",""" @@ -663,59 +673,57 @@ c, r, res = test_complete(s) @test isempty(c) # test Dicts -test_dict = Dict("abc"=>1, "abcd"=>10, :bar=>2, :bar2=>9, Base=>3, contains=>4, `ls`=>5, - 66=>7, 67=>8, ("q",3)=>11, "α"=>12, :α=>13) -s="test_dict[\"ab" +s="test_repl_comp_dict[\"ab" c,r = test_complete(s) @test c == Any["\"abc\"","\"abcd\""] -s="test_dict[\"abcd" +s="test_repl_comp_dict[\"abcd" c,r = test_complete(s) @test c == Any["\"abcd\"]"] -s="test_dict[ \"abcd" # leading whitespace +s="test_repl_comp_dict[ \"abcd" # leading whitespace c,r = test_complete(s) @test c == Any["\"abcd\"]"] -s="test_dict[\"abcd]" # trailing close bracket +s="test_repl_comp_dict[\"abcd]" # trailing close bracket c,r = completions(s,endof(s)-1) @test c == Any["\"abcd\""] -s="test_dict[:b" +s="test_repl_comp_dict[:b" c,r = test_complete(s) @test c == Any[":bar",":bar2"] -s="test_dict[:bar2" +s="test_repl_comp_dict[:bar2" c,r = test_complete(s) @test c == Any[":bar2]"] -s="test_dict[Ba" +s="test_repl_comp_dict[Ba" c,r = test_complete(s) @test c == Any["Base]"] -s="test_dict[co" +s="test_repl_comp_dict[co" c,r = test_complete(s) @test c == Any["contains]"] -s="test_dict[`l" +s="test_repl_comp_dict[`l" c,r = test_complete(s) @test c == Any["`ls`]"] -s="test_dict[6" +s="test_repl_comp_dict[6" c,r = test_complete(s) @test c == Any["66","67"] -s="test_dict[66" +s="test_repl_comp_dict[66" c,r = test_complete(s) @test c == Any["66]"] -s="test_dict[(" +s="test_repl_comp_dict[(" c,r = test_complete(s) @test c == Any["(\"q\",3)]"] -s="test_dict[\"\\alp" +s="test_repl_comp_dict[\"\\alp" c,r = test_complete(s) @test c == String["\\alpha"] -s="test_dict[\"\\alpha" +s="test_repl_comp_dict[\"\\alpha" c,r = test_complete(s) @test c == String["α"] -s="test_dict[\"α" +s="test_repl_comp_dict[\"α" c,r = test_complete(s) @test c == Any["\"α\"]"] -s="test_dict[:\\alp" +s="test_repl_comp_dict[:\\alp" c,r = test_complete(s) @test c == String["\\alpha"] -s="test_dict[:\\alpha" +s="test_repl_comp_dict[:\\alpha" c,r = test_complete(s) @test c == String["α"] -s="test_dict[:α" +s="test_repl_comp_dict[:α" c,r = test_complete(s) @test c == Any[":α]"] diff --git a/test/replutil.jl b/test/replutil.jl index c0a34b29df5e9b..511323dacc1d35 100644 --- a/test/replutil.jl +++ b/test/replutil.jl @@ -1,5 +1,7 @@ # This file is a part of Julia. License is MIT: http://julialang.org/license +const name_prefix = "$(["$m." for m in fullname(current_module())]...)" + function test_have_color(buf, color, no_color) if Base.have_color @test takebuf_string(buf) == color @@ -79,12 +81,12 @@ type PR16155 end Base.show_method_candidates(buf, MethodError(PR16155,(1.0, 2.0, Int64(3)))) -test_have_color(buf, "\e[0m\nClosest candidates are:\n PR16155(::Any, ::Any)\n PR16155(\e[1m\e[31m::Int64\e[0m, ::Any)\n PR16155{T}(::Any)\e[0m", - "\nClosest candidates are:\n PR16155(::Any, ::Any)\n PR16155(!Matched::Int64, ::Any)\n PR16155{T}(::Any)") +test_have_color(buf, "\e[0m\nClosest candidates are:\n $(name_prefix)PR16155(::Any, ::Any)\n $(name_prefix)PR16155(\e[1m\e[31m::Int64\e[0m, ::Any)\n $(name_prefix)PR16155{T}(::Any)\e[0m", + "\nClosest candidates are:\n $(name_prefix)PR16155(::Any, ::Any)\n $(name_prefix)PR16155(!Matched::Int64, ::Any)\n $(name_prefix)PR16155{T}(::Any)") Base.show_method_candidates(buf, MethodError(PR16155,(Int64(3), 2.0, Int64(3)))) -test_have_color(buf, "\e[0m\nClosest candidates are:\n PR16155(::Int64, ::Any)\n PR16155(::Any, ::Any)\n PR16155{T}(::Any)\e[0m", - "\nClosest candidates are:\n PR16155(::Int64, ::Any)\n PR16155(::Any, ::Any)\n PR16155{T}(::Any)") +test_have_color(buf, "\e[0m\nClosest candidates are:\n $(name_prefix)PR16155(::Int64, ::Any)\n $(name_prefix)PR16155(::Any, ::Any)\n $(name_prefix)PR16155{T}(::Any)\e[0m", + "\nClosest candidates are:\n $(name_prefix)PR16155(::Int64, ::Any)\n $(name_prefix)PR16155(::Any, ::Any)\n $(name_prefix)PR16155{T}(::Any)") method_c6(; x=1) = x method_c6(a; y=1) = y @@ -178,14 +180,14 @@ let f11007(::MethodType11007) = nothing err_str = @except_str(invoke(f11007, Tuple{InvokeType11007}, InstanceType11007()), MethodError) - @test !contains(err_str, "::InstanceType11007") - @test contains(err_str, "::InvokeType11007") + @test !contains(err_str, "::$(name_prefix)InstanceType11007") + @test contains(err_str, "::$(name_prefix)InvokeType11007") end module __tmp_replutil using Base.Test -import Main.@except_str +import ..@except_str global + +() = nothing err_str = @except_str 1 + 2 MethodError @@ -210,7 +212,7 @@ end abstract T11007 let err_str = @except_str T11007() MethodError - @test contains(err_str, "no method matching T11007()") + @test contains(err_str, "no method matching $(name_prefix)T11007()") end immutable TypeWithIntParam{T <: Integer} end @@ -286,17 +288,17 @@ let err_str, err_str = @except_str :a() MethodError @test contains(err_str, "MethodError: objects of type Symbol are not callable") err_str = @except_str EightBitType() MethodError - @test contains(err_str, "MethodError: no method matching EightBitType()") + @test contains(err_str, "MethodError: no method matching $(name_prefix)EightBitType()") err_str = @except_str i() MethodError - @test contains(err_str, "MethodError: objects of type EightBitType are not callable") + @test contains(err_str, "MethodError: objects of type $(name_prefix)EightBitType are not callable") err_str = @except_str EightBitTypeT() MethodError - @test contains(err_str, "MethodError: no method matching EightBitTypeT{T}()") + @test contains(err_str, "MethodError: no method matching $(name_prefix)EightBitTypeT{T}()") err_str = @except_str EightBitTypeT{Int32}() MethodError - @test contains(err_str, "MethodError: no method matching EightBitTypeT{Int32}()") + @test contains(err_str, "MethodError: no method matching $(name_prefix)EightBitTypeT{Int32}()") err_str = @except_str j() MethodError - @test contains(err_str, "MethodError: objects of type EightBitTypeT{Int32} are not callable") + @test contains(err_str, "MethodError: objects of type $(name_prefix)EightBitTypeT{Int32} are not callable") err_str = @except_str FunctionLike()() MethodError - @test contains(err_str, "MethodError: no method matching (::FunctionLike)()") + @test contains(err_str, "MethodError: no method matching (::$(name_prefix)FunctionLike)()") err_str = @except_str [1,2](1) MethodError @test contains(err_str, "MethodError: objects of type Array{$Int,1} are not callable\nUse square brackets [] for indexing an Array.") # Issue 14940 @@ -325,13 +327,13 @@ let err_str, @test sprint(show, which(Symbol, Tuple{})) == "Symbol() at $sp:$(method_defs_lineno + 0)" @test sprint(show, which(:a, Tuple{})) == "(::Symbol)() at $sp:$(method_defs_lineno + 1)" - @test sprint(show, which(EightBitType, Tuple{})) == "EightBitType() at $sp:$(method_defs_lineno + 2)" - @test sprint(show, which(reinterpret(EightBitType, 0x54), Tuple{})) == "(::EightBitType)() at $sp:$(method_defs_lineno + 3)" - @test sprint(show, which(EightBitTypeT, Tuple{})) == "(::Type{EightBitTypeT})() at $sp:$(method_defs_lineno + 4)" - @test sprint(show, which(EightBitTypeT{Int32}, Tuple{})) == "(::Type{EightBitTypeT{T}}){T}() at $sp:$(method_defs_lineno + 5)" - @test sprint(show, which(reinterpret(EightBitTypeT{Int32}, 0x54), Tuple{})) == "(::EightBitTypeT)() at $sp:$(method_defs_lineno + 6)" + @test sprint(show, which(EightBitType, Tuple{})) == "$(name_prefix)EightBitType() at $sp:$(method_defs_lineno + 2)" + @test sprint(show, which(reinterpret(EightBitType, 0x54), Tuple{})) == "(::$(name_prefix)EightBitType)() at $sp:$(method_defs_lineno + 3)" + @test sprint(show, which(EightBitTypeT, Tuple{})) == "(::Type{$(name_prefix)EightBitTypeT})() at $sp:$(method_defs_lineno + 4)" + @test sprint(show, which(EightBitTypeT{Int32}, Tuple{})) == "(::Type{$(name_prefix)EightBitTypeT{T}}){T}() at $sp:$(method_defs_lineno + 5)" + @test sprint(show, which(reinterpret(EightBitTypeT{Int32}, 0x54), Tuple{})) == "(::$(name_prefix)EightBitTypeT)() at $sp:$(method_defs_lineno + 6)" @test startswith(sprint(show, which(getfield(Base, Symbol("@doc")), Tuple{Vararg{Any}})), "@doc(x...) at boot.jl:") - @test startswith(sprint(show, which(FunctionLike(), Tuple{})), "(::FunctionLike)() at $sp:$(method_defs_lineno + 7)") + @test startswith(sprint(show, which(FunctionLike(), Tuple{})), "(::$(name_prefix)FunctionLike)() at $sp:$(method_defs_lineno + 7)") @test stringmime("text/plain", FunctionLike()) == "(::FunctionLike) (generic function with 1 method)" @test stringmime("text/plain", Core.arraysize) == "arraysize (built-in function)" @@ -340,17 +342,17 @@ let err_str, err_str = @except_stackframe :a() ErrorException @test err_str == " in (::Symbol)() at $sn:$(method_defs_lineno + 1)" err_str = @except_stackframe EightBitType() ErrorException - @test err_str == " in EightBitType() at $sn:$(method_defs_lineno + 2)" + @test err_str == " in $(name_prefix)EightBitType() at $sn:$(method_defs_lineno + 2)" err_str = @except_stackframe i() ErrorException - @test err_str == " in (::EightBitType)() at $sn:$(method_defs_lineno + 3)" + @test err_str == " in (::$(name_prefix)EightBitType)() at $sn:$(method_defs_lineno + 3)" err_str = @except_stackframe EightBitTypeT() ErrorException - @test err_str == " in EightBitTypeT{T}() at $sn:$(method_defs_lineno + 4)" + @test err_str == " in $(name_prefix)EightBitTypeT{T}() at $sn:$(method_defs_lineno + 4)" err_str = @except_stackframe EightBitTypeT{Int32}() ErrorException - @test err_str == " in EightBitTypeT{Int32}() at $sn:$(method_defs_lineno + 5)" + @test err_str == " in $(name_prefix)EightBitTypeT{Int32}() at $sn:$(method_defs_lineno + 5)" err_str = @except_stackframe j() ErrorException - @test err_str == " in (::EightBitTypeT{Int32})() at $sn:$(method_defs_lineno + 6)" + @test err_str == " in (::$(name_prefix)EightBitTypeT{Int32})() at $sn:$(method_defs_lineno + 6)" err_str = @except_stackframe FunctionLike()() ErrorException - @test err_str == " in (::FunctionLike)() at $sn:$(method_defs_lineno + 7)" + @test err_str == " in (::$(name_prefix)FunctionLike)() at $sn:$(method_defs_lineno + 7)" end # Issue #13032 diff --git a/test/runtests.jl b/test/runtests.jl index 4fef9b34cfbf28..de9ff80ed7bb73 100644 --- a/test/runtests.jl +++ b/test/runtests.jl @@ -41,7 +41,9 @@ cd(dirname(@__FILE__)) do test = shift!(tests) local resp try - resp = remotecall_fetch(t -> runtests(t), p, test) + # FIXME: `remote_fetch` doesn't work when + # a new module is define. + resp = remotecall_fetch(t -> runtests(t, t != "examples"), p, test) catch e resp = e end diff --git a/test/show.jl b/test/show.jl index 3eadf5e1e434c3..20cf5a0c6f6e50 100644 --- a/test/show.jl +++ b/test/show.jl @@ -1,5 +1,7 @@ # This file is a part of Julia. License is MIT: http://julialang.org/license +const name_prefix = "$(["$m." for m in fullname(current_module())]...)" + replstr(x) = sprint((io,x) -> show(IOContext(io, limit=true), MIME("text/plain"), x), x) @test replstr(Array{Any}(2)) == "2-element Array{Any,1}:\n #undef\n #undef" @@ -9,7 +11,7 @@ replstr(x) = sprint((io,x) -> show(IOContext(io, limit=true), MIME("text/plain") immutable T5589 names::Vector{String} end -@test replstr(T5589(Array(String,100))) == "T5589(String[#undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef … #undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef])" +@test replstr(T5589(Array(String,100))) == "$(name_prefix)T5589(String[#undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef … #undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef,#undef])" @test replstr(parse("type X end")) == ":(type X # none, line 1:\n end)" @test replstr(parse("immutable X end")) == ":(immutable X # none, line 1:\n end)" @@ -324,8 +326,8 @@ let @test sprint(show, B) == "\n\t[1, 1] = #undef\n\t[2, 2] = #undef\n\t[3, 3] = #undef" @test sprint(print, B) == "\n\t[1, 1] = #undef\n\t[2, 2] = #undef\n\t[3, 3] = #undef" B[1,2] = T12960() - @test sprint(show, B) == "\n\t[1, 1] = #undef\n\t[1, 2] = T12960()\n\t[2, 2] = #undef\n\t[3, 3] = #undef" - @test sprint(print, B) == "\n\t[1, 1] = #undef\n\t[1, 2] = T12960()\n\t[2, 2] = #undef\n\t[3, 3] = #undef" + @test sprint(show, B) == "\n\t[1, 1] = #undef\n\t[1, 2] = $(name_prefix)T12960()\n\t[2, 2] = #undef\n\t[3, 3] = #undef" + @test sprint(print, B) == "\n\t[1, 1] = #undef\n\t[1, 2] = $(name_prefix)T12960()\n\t[2, 2] = #undef\n\t[3, 3] = #undef" end # issue #13127 @@ -335,7 +337,7 @@ function f13127() show(buf, f) takebuf_string(buf) end -@test f13127() == "f" +@test f13127() == "$(name_prefix)f" let a = Pair(1.0,2.0) @test sprint(show,a) == "1.0=>2.0" diff --git a/test/testdefs.jl b/test/testdefs.jl index 0c9a7cb4f002b3..4f067d69f688aa 100644 --- a/test/testdefs.jl +++ b/test/testdefs.jl @@ -1,10 +1,28 @@ # This file is a part of Julia. License is MIT: http://julialang.org/license -using Base.Test - -function runtests(name) +function runtests(name, isolate=true) + if isolate + mod_name = Symbol("TestMain_", basename(name)) + m = Module(mod_name, true) + eval(m, :(const $mod_name = $m; + eval(x) = Core.eval($m, x); + eval(m, x) = Core.eval(m, x))) + # Make this visible from Main module. + # Certain functions (e.g. `deserialize`, `subtypes` and `methodswith` + # relies on this). + eval(Main, :($mod_name = $m)) + # Non-anonymous version + # mod_name = Symbol("TestMain_", basename(name)) + # m = eval(Main, :(module $mod_name end)) + else + m = Main + end + eval(m, :(using Base.Test)) @printf(" \033[1m*\033[0m \033[31m%-21s\033[0m", name) - tt = @elapsed include("$name.jl") + tt = @elapsed eval(m, :(include($"$name.jl"))) + if isolate + eval(Main, :($mod_name = nothing)) + end rss = Sys.maxrss() @printf(" in %6.2f seconds, maxrss %7.2f MB\n", tt, rss / 2^20) rss