adding QR test

test/QrAlgo_test.jl

+    
+n = 10
+
+#for elty in (Float32, Float64, ComplexF32, ComplexF64)
+
+#    A0 = randn(elty, n, n)
+    A0 = randn(n, n)
+
+    A = copy(A0)
+    ws = QrAlgo.QrpWs(A)
+
+    QrAlgo.geqp3!(A, ws)
+
+    target = qr(A0, Val(true))
+
+#display(triu(A))
+#display(triu(target.R))
+
+
+A = randn(n, 15)
+vA = zeros(n, 2)
+vA .= view(A, :, [7, 9])
+ws = QrAlgo.QrWs(vA)
+geqrf_core!(vA, ws)
+ormqr_core!('L', vA', A, ws)