anchor.diff:  let partition () : unit =
       Assert.Fail ()
   
  -[<TestCase>]
  -let ofList () : unit =
  -    Assert.Fail ()
  -
  -[<TestCase>]
  -let toList () : unit =
  -    Assert.Fail ()
  -
  -[<TestCase>]
  -let ofArray () : unit =
  -    Assert.Fail ()
  -
  -[<TestCase>]
  -let toArray () : unit =
  -    Assert.Fail ()
  -
  +
  
positive.code:     |> Bimap.count
      |> should equal 1
  
      Bimap.empty
      |> Bimap.add "foo" 5
      |> Bimap.add "bar" 8
      |> Bimap.add "baz" 2
      |> Bimap.add "cdr" 9
      |> Bimap.add "car" 6
      |> Bimap.count
      |> should equal 5
  
  [<TestCase>]
  let containsKey () : unit =
      Assert.Fail ()
  
  [<TestCase>]
  let containsValue () : unit =
      Assert.Fail ()
  
  [<TestCase>]
  let paired () : unit =
      Assert.Fail ()
  
  [<TestCase>]
  let tryFind () : unit =
      Assert.Fail ()
  
  [<TestCase>]
  let tryFindValue () : unit =
      Assert.Fail ()
  
  [<TestCase>]
  let find () : unit =
      Assert.Fail ()
  
  [<TestCase>]
  let findValue () : unit =
      Assert.Fail ()
  
  [<TestCase>]
  let remove () : unit =
      Assert.Fail ()
  
  [<TestCase>]
  let removeValue () : unit =
      Assert.Fail ()
  
  [<TestCase>]
  let add () : unit =
      Assert.Fail ()
  
  [<TestCase>]
  let tryAdd () : unit =
      Assert.Fail ()
  
  [<TestCase>]
  
negative.code: /// Unit tests for the ExtCore.Collections.Bimap type and module.
  module ExtCore.Collections.Bimap.Tests
  
  open System.Collections.Generic
  open NUnit.Framework
  open FsUnit
  //open FsCheck
  
  // TODO : Implement tests for equality/comparison.
  
  [<TestCase>]
  let equality () : unit =
      Bimap.empty = Bimap.empty
      |> should be True
  
      Bimap.singleton "Hello" "World!"
      |> Bimap.remove "Hello"
      |> should equal (Bimap.empty : Bimap<string, string>)
  
      [| ("foo", 5); ("bar", 8); ("baz", 2); ("cdr", 9); ("car", 6); |]
      |> Bimap.ofArray
      |> should equal (
          Bimap.empty
          |> Bimap.add "foo" 5
          |> Bimap.add "bar" 8
          |> Bimap.add "baz" 2
          |> Bimap.add "cdr" 9
          |> Bimap.add "car" 6)
  
  [<TestCase>]
  let singleton () : unit =
  