Vendor the tested "NamedTuple" constructor

Author: timholy

test/runtests.jl

@@ -266,9 +266,9 @@ isdefined(Main, :Revise) ? Main.Revise.includet("script.jl") : include("script.j
     @test line == m.line
 
     # Issue 115, Cthulhu issue 474
-    m = @which NamedTuple{(),Tuple{}}(())
+    m = @which MyNamedTuple{(),Tuple{}}(())
     src, line = definition(String, m)
-    @test occursin("NamedTuple{names, T}(args::T) where {names, T <: Tuple}", src)
+    @test occursin("MyNamedTuple{names, T}(args::T) where {names, T <: Tuple}", src)
     @test line == m.line
 
     # Parsed result gives a symbol instead of expression

test/script.jl

@@ -160,3 +160,9 @@ end
 function (::Type{MyArray2{T,1}})(::UndefInitializer, m::Int) where {T}
     return nothing
 end
+
+# Issue #115
+struct MyNamedTuple{names, T} end
+@eval (MyNamedTuple{names, T}(args::T) where {names, T <: Tuple}) = begin
+    $(Expr(:splatnew, :(MyNamedTuple{names, T}), :args))
+end