Fixed Unit Test

The first basis vector was always chosen before, instead of a random one.

Author: rabaniten

Unit_tests.m

@@ -1695,9 +1695,9 @@
 If[Quiet[Check[CheckStatePreparation[PickRandomPsi[2^4],level->1],error=1;False]]&&
 Quiet[Check[CheckStatePreparation[PickRandomPsi[2^4],level->2],error=2;False]]&&
 Quiet[Check[CheckStatePreparation[PickRandomPsi[2^4],level->3],error=3;False]]&&
-Quiet[Check[CheckStatePreparation[N[randPermutMat[1,8]],level->1],error=1;False]]&&
-Quiet[Check[CheckStatePreparation[N[randPermutMat[1,8]],level->2],error=2;False]]&&
-Quiet[Check[CheckStatePreparation[N[randPermutMat[1,8]],level->3],error=3;False]]
+Quiet[Check[CheckStatePreparation[N[{{0},{0},{1},{0},{0},{0},{0},{0}}],level->1],error=1;False]]&&
+Quiet[Check[CheckStatePreparation[N[{{0},{0},{0},{0},{0},{1},{0},{0}}],level->2],error=2;False]]&&
+Quiet[Check[CheckStatePreparation[N[{{0},{0},{0},{0},{0},{1},{0},{0}}],level->3],error=3;False]]
 ,
 True,
 Print["Error in StatePrepRecursive with error message code ",error];False
@@ -1738,9 +1738,9 @@
 If[Quiet[Check[checkSparseStatePreparation[PickRandomPsi[2^4]],error=1;False]]&&
 Quiet[Check[checkSparseStatePreparation[PickRandomSparsePsi[2^4,2^3]],error=2;False]]&&
 Quiet[Check[checkSparseStatePreparation[PickRandomPsi[2^4]],error=3;False]]&&
-Quiet[Check[checkSparseStatePreparation[N[randPermutMat[1,8]]],error=1;False]]&&
-Quiet[Check[checkSparseStatePreparation[N[randPermutMat[1,8]]],error=2;False]]&&
-Quiet[Check[checkSparseStatePreparation[N[randPermutMat[1,8]]],error=3;False]]
+Quiet[Check[checkSparseStatePreparation[N[(randPermutMat[8,8])[[1]]]],error=1;False]]&&
+Quiet[Check[checkSparseStatePreparation[N[(randPermutMat[8,8])[[1]]]],error=2;False]]&&
+Quiet[Check[checkSparseStatePreparation[N[(randPermutMat[8,8])[[1]]]],error=3;False]]
 ,
 True,
 Print["Error in SparseStatePreparation with error message code ",error];False