anchor.diff:                      Root   = (rootO,rootO')//
                       }
                   let O' = createTri "O" (Isotopes.Table.O16,Isotopes.Table.O16.NatAbundance) (Isotopes.Table.O17,Isotopes.Table.O17.NatAbundance) (Isotopes.Table.O18,Isotopes.Table.O18.NatAbundance)
  -                Expect.isTrue (O=O') (sprintf "%A <> %A, check parameter order 'create'" O O')
  -                Expect.isTrue (compareComplexNumbers (fst O.Root) (fst O'.Root) && compareComplexNumbers (snd O.Root) (snd O'.Root)) (sprintf "%A <> %A, check private function 'calcRootsTri' and if the isotope composition of O has changed." O.Root O'.Root)
  -                
  -            testCase "test_TriIsotopicCompare" <| fun () ->
  +                yield 
  +                    testList "test_createTriIsotopic" [
  +                        testCase "calcRootsTri_firstReal" <| fun () ->
  +                            Expect.floatClose Accuracy.high (fst O.Root).Real (fst O'.Root).Real ""
  +                        testCase "calcRootsTri_secondReal" <| fun () ->
  +                            Expect.floatClose Accuracy.high (snd O.Root).Real (snd O'.Root).Real ""
  +                        testCase "calcRootsTri_firstImaginary" <| fun () ->
  +                            Expect.floatClose Accuracy.high (fst O.Root).Imaginary (fst O'.Root).Imaginary ""
  +                        testCase "calcRootsTri_secondImaginary" <| fun () ->
  +                            Expect.floatClose Accuracy.high (snd O.Root).Imaginary (snd O'.Root).Imaginary ""
  +                    ]                                 
  +                yield 
  +                    testCase "initialization" <| fun () ->
  +                        Expect.equal  O O' "Record initialization via function differs from initialization via record expression. Check parameter order of 'createTri'"                       
  +            ]
  +
  +            testList "test_TriIsotopicCompare" [    
                   let O   = createTri "O" (Isotopes.Table.O16,Isotopes.Table.O16.NatAbundance) (Isotopes.Table.O17,Isotopes.Table.O17.NatAbundance) (Isotopes.Table.O18,Isotopes.Table.O18.NatAbundance)
                   let O'  = {O with Symbol = "N"}
                   let O'' = {O with Xcomp = nan}
  -                Expect.isFalse (O=O') (sprintf "Expected False, because the member 'CompareTo' checks for equality of the record field Symbol")
  -                Expect.isTrue (O=O'')(sprintf "Expected True, because the member 'CompareTo' checks for equality of the record field Symbol")
  -               
  +                yield 
  +                    testCase "negative" <| fun () ->
  +                        Expect.notEqual O O' "Expected equality, because the member 'CompareTo' checks for equality of the record field Symbol"                           
  +                yield 
  +                    testCase "positive" <| fun () ->
  +                        Expect.equal O O'' "Expected equality, because the member 'CompareTo' checks for equality of the record field Symbol"                             
  +            ]                                    
           ]
       
       open BioFSharp.Formula
  
positive.code:                         Expect.floatClose Accuracy.high min expMin "Delta mass calculation failed, lower border is incorrect."
                  yield 
                      testCase "upper_Border" <| fun () ->
                          Expect.floatClose Accuracy.high max expMax "Delta mass calculation failed, upper border is incorrect."
                      
              ]
              
          ]
          
negative.code:                     Root   = (-1. * Isotopes.Table.H1.NatAbundance / Isotopes.Table.H2.NatAbundance)
                      }
                  let H' = createDi "H" (Isotopes.Table.H1,Isotopes.Table.H1.NatAbundance) (Isotopes.Table.H2,Isotopes.Table.H2.NatAbundance) 
                  Expect.equal H H' "Record initialization via function differs from initialization via record expression. Check parameter order of 'createDi'" 
  
              testList "test_createTriIsotopic" [    
                  let (rootO,rootO') =
                      System.Numerics.Complex(-0.0926829268292669, 22.0592593273255),
                      System.Numerics.Complex(-0.0926829268292696, -22.0592593273255)
  