Commit8deafc3

authored and

committed

Improve error message when VerifySeqsEqual fails

1 parent4f18868 commit8deafc3Copy full SHA for 8deafc3

File tree

-7

lines changed

-7

lines changed

Lines changed: 5 additions & 7 deletions

Original file line number	Diff line number	Diff line change
`@@ -57,13 +57,11 @@ let CheckThrowsFormatException f = CheckThrowsExn<FormatException>`
`57`	`57`
`58`	`58`	`// Verifies two sequences are equal (same length, equiv elements)`
`59`	`59`	`letVerifySeqsEqual seq1 seq2=`
`60`		`-if Seq.length seq1<> Seq.length seq2then Assert.Fail()`
`61`		`-`
`62`		`-letzippedElements= Seq.zip seq1 seq2`
`63`		`-if zippedElements\|> Seq.forall(fun(a,b)-> a= b)`
`64`		`-then()`
`65`		`-else Assert.Fail()`
`66`		`-`
	`60`	`+ Assert.AreEqual(Seq.length seq1, Seq.length seq2,"Sequences are different lengths.")`
	`61`	`+`
	`62`	`+ Seq.zip seq1 seq2`
	`63`	`+\|> Seq.iteri(fun i(a,b)->if a<> bthen Assert.Fail("Sequences are different in position {0}\n Expected: {1}\n But was: {2}", i, a, b))`
	`64`	`+`
`67`	`65`	`letsleep(n:int32)=`
`68`	`66`	`#if FX_NO_THREAD`
`69`	`67`	`async{do! Async.Sleep(n)}\|> Async.RunSynchronously`

Comments

(0)