Conversation
| module Homework2.Test.EvenNumCountTest.fs | ||
| open NUnit.Framework | ||
| open FsCheck | ||
| open EvenNumCount | ||
| let eqMapAndFilter (ls:list<int>) = countEvenNumMap ls = countEvenNumFilter ls | ||
| let eqMapAndFold (ls:list<int>) = countEvenNumMap ls = countEvenNumFold ls | ||
| let eqFoldAndFilter (ls:list<int>) = countEvenNumFold ls = countEvenNumFilter ls | ||
| [<Test>] | ||
| let ``Equality of EvenNumCountMap and EvenNumCountFilter`` () = Check.Quick eqMapAndFilter | ||
| [<Test>] | ||
| let ``Equality of EvenNumCountMap and EvenNumCountFold`` () = Check.Quick eqMapAndFold | ||
| [<Test>] | ||
| let ``Equality of EvenNumCountFold and EvenNumCountFilter`` () = Check.Quick eqFoldAndFilter No newline at end of file |
There was a problem hiding this comment.
можно было бы написать один тест, в котором проверялась бы эквивалентность всех трех. Так же нужен отдельный текст, который проверит просто корректность какой-либо функции. Иначе может оказаться, что функции эквивалентно некорректны.
Homework2/Homework2/TreeEvaluate.fs
Outdated
| type treeExpression = | ||
| | Number of float | ||
| | Add of treeExpression * treeExpression | ||
| | Multiply of treeExpression * treeExpression | ||
| | Subtract of treeExpression * treeExpression | ||
| | Divide of treeExpression * treeExpression |
There was a problem hiding this comment.
Можно сделать BinaryOperation, который бы принимал оператор и операнды
| @@ -0,0 +1,16 @@ | |||
| module Homework2.Test.TreeEvaluateTest | |||
There was a problem hiding this comment.
конечно, лучше покрывать тестами все операции, которые добавили
| module PrimeNumbers | ||
| let isPrime n = | ||
| let rec check i = | ||
| i > n / 2 || (n % i <> 0 && check (i + 1)) |
| open FsUnit | ||
|
|
||
| [<Test>] | ||
| let ``Check first 10 prime numbers`` () = |
There was a problem hiding this comment.
тогда уже было бы неплохо проверить, что если передать вместо n другое число, то простые числа будут считаться от него
| | "/" -> try | ||
| evaluateTree left / evaluateTree right | ||
| with | ||
| | :? System.DivideByZeroException -> "Division by zero"; infinity |
There was a problem hiding this comment.
я бы не стал ловить тут исключения, а оставил как есть. Пусть вызывающий код разбирается с эксепшеном
| @@ -5,12 +5,12 @@ open FsUnit | |||
|
|
|||
| [<Test>] | |||
There was a problem hiding this comment.
было бы неплохо иметь тест, где левое поддерево так же составное
2 participants
No description provided.