||| Copyright 2016 Google Inc.
|||
||| Licensed under the Apache License, Version 2.0 (the "License");
||| you may not use this file except in compliance with the License.
||| You may obtain a copy of the License at
|||
|||     http://www.apache.org/licenses/LICENSE-2.0
|||
||| Unless required by applicable law or agreed to in writing, software
||| distributed under the License is distributed on an "AS IS" BASIS,
||| WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
||| See the License for the specific language governing permissions and
||| limitations under the License.

module Test.Protobuf

import Test.UnitTest
import Test.Utils
import Protobuf.Core

%access export

allTests : IO ()
allTests = runTests (MkTestFixture "Protobuf" [
  MkTestCase "GetName" (assertEq (getName John) "John Doe"),
  MkTestCase "GetId" (assertEq (getId John) 1234),
  MkTestCase "GetEmail" (assertEq (getEmail John) (Just "jdoe@example.com"))
])
