toRNATests :: [Test]
toRNATests =
  [ testCase "transcribes cytidine to guanosine" $
    "G" @=? toRNA "C"
  , testCase "transcribes guanosine to cytidine" $
    "C" @=? toRNA "G"
  , testCase "transcribes adenosine to uracil" $
    "U" @=? toRNA "A"
  , testCase "transcribes thymidine to adenosine" $
    "A" @=? toRNA "T"
  , testCase "transcribes all ACGT to UGCA" $
    "UGCACCAGAAUU" @=? toRNA "ACGTGGTCTTAA"
  ]
toRNATests :: [Test]
toRNATests =
  [ testCase "transcribes cytidine to guanosine" $
    "G" @=? toRNA "C"
  , testCase "transcribes guanosine to cytidine" $
    "C" @=? toRNA "G"
  , testCase "transcribes adenosine to uracil" $
    "U" @=? toRNA "A"
  , testCase "transcribes thymidine to adenosine" $
    "A" @=? toRNA "T"
  , testCase "transcribes all ACGT to UGCA" $
    "UGCACCAGAAUU" @=? toRNA "ACGTGGTCTTAA"
  ]
toRNATests =
  [ testCase "transcribes cytidine to guanosine" $
    "G" @=? toRNA "C"
  , testCase "transcribes guanosine to cytidine" $
    "C" @=? toRNA "G"
  , testCase "transcribes adenosine to uracil" $
    "U" @=? toRNA "A"
  , testCase "transcribes thymidine to adenosine" $
    "A" @=? toRNA "T"
  , testCase "transcribes all ACGT to UGCA" $
    "UGCACCAGAAUU" @=? toRNA "ACGTGGTCTTAA"
  ]