fb-util-0.1.0.1: tests/MD5Test.hs

{-
  Copyright (c) Meta Platforms, Inc. and affiliates.
  All rights reserved.

  This source code is licensed under the BSD-style license found in the
  LICENSE file in the root directory of this source tree.
-}

module MD5Test (main) where

import Test.HUnit
import TestRunner

import Util.MD5

tests :: Test
tests = TestList
  [ TestLabel "md5Test" $ TestCase $
      assertEqual "md5Test" (md5 "wibble") "50eccc6e2b0d307d5e8a40fb296f6171" ]

main :: IO ()
main = testRunner tests