Test code for https://github.com/JuliaLang/julia/pull/7047

PR7047.jl

t = m = 0
for i in 1:5
	S = sparse(rand(10^2, 10^2))
	(_,ti,mi) = @timed for I in 1:size(S,1), J in 1:size(S,2)
		S[I,J] = I
	end
	t += ti; m += mi
end
for i in 1:5
	S = speye(10^2, 10^2)
	(_,ti,mi) = @timed for I in 1:size(S,1), J in 1:size(S,2)
		S[I,J] = I
	end
	t += ti; m += mi
end
println("setindex!: elapsed time: $(t/10) seconds ($(m/10) bytes allocated)")

t = m = 0
for i in 1:5
	S = speye(10^3, 10^3)
	(_,ti,mi) = @timed diag(S);
	t += ti; m += mi
end
for i in 1:5
	S = sparse(rand(10^3, 10^3))
	(_,ti,mi) = @timed diag(S);
	t += ti; m += mi
end
println("diag: elapsed time: $(t/10) seconds ($(m/10) bytes allocated)")