test Module short names

Author: IanButterworth

stdlib/Profile/test/runtests.jl

@@ -204,6 +204,21 @@ end
     @test getline(values(fdictc)) == getline(values(fdict0)) + 2
 end
 
+@testset "Module short names" begin
+    Profile.clear()
+    @profile peakflops()
+    io = IOBuffer()
+    IOContext(io, :displaysize=>(1000,1000))
+    Profile.print(ioc, C=true)
+    str = String(take!(io))
+    @test occursin("@Compiler/src", str)
+    @test occursin("@Base/src", str)
+    @test occursin("@InteractiveUtils/src", str)
+    @test occursin("@LinearAlgebra/src", str)
+    @test occursin("@juliasrc", str)
+    @test occursin("@julialib", str)
+end
+
 # Profile deadlocking in compilation (debuginfo registration)
 let cmd = Base.julia_cmd()
     script = """