anchor.diff:  
                       Expect.sequenceEqual motiv testMotiv
                           "Motivy 3 2 did not yield the expected result"
  -
                   )
                   testCase "digest" (fun () ->
                       let digest =
  
positive.code: 
                      Expect.isTrue isCuttingSite_Arg
                          "Digestion.isCuttingSite did not identify the CuttingSite correctly."
  
                  )
                  testCase "isCuttingSite_lysPro" (fun () ->
                      let isCuttingSite_lysPro =
  
negative.code: 
                      Expect.isTrue isCuttingSite_argPro
                          "Digestion.isCuttingSite did not identify the CuttingSite correctly."
                  )
                  ]
              testList "BioSeq" [
      
                  testCase "motivy" (fun () ->
                      let motiv =
                          Digestion.BioSeq.motivy 3 2 (trypsinTestCuttingSiteLys)
  
                      Expect.sequenceEqual motiv testMotiv
                          "Motivy 3 2 did not yield the expected result"
                  )
                  testCase "digest" (fun () ->
                      let digest =
                          Digestion.BioSeq.digest testProtease 1 testSequence
  
                      Expect.sequenceEqual digest testDigest
                          "Digestion.BioArray.digest failed sto produce expected digested peptides."
                  )
                  //testCase "concernMissCleavages" (fun () ->
                  //    let withMissCleavages =
                  //        Digestion.BioArray.concernMissCleavages 0 2 testDigest
  
                  //    Expect.sequenceEqual withMissCleavages testMissCleavages
                  //        "Digestion.BioArray.concernMissCleavages failed to produce the expected digested peptides."
                  //)
              ]
              testList "BioArray" [
                  
                  testCase "motivy" (fun () ->
  