1{- 2 Copyright (c) Facebook, Inc. and its affiliates. 3 4 Licensed under the Apache License, Version 2.0 (the "License"); 5 you may not use this file except in compliance with the License. 6 You may obtain a copy of the License at 7 8 http://www.apache.org/licenses/LICENSE-2.0 9 10 Unless required by applicable law or agreed to in writing, software 11 distributed under the License is distributed on an "AS IS" BASIS, 12 WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 13 See the License for the specific language governing permissions and 14 limitations under the License. 15-} 16 17module EnumTest where 18 19import ThriftTest_Types 20 21import Test.HUnit 22 23main :: IO Counts 24main = runTestTT $ TestList 25 26 [ TestLabel "succ" $ TestCase $ do 27 assertEqual "" TWO $ succ ONE 28 assertEqual "" FIVE $ succ THREE 29 30 , TestLabel "pred" $ TestCase $ do 31 assertEqual "" ONE $ pred TWO 32 assertEqual "" THREE $ pred FIVE 33 34 , TestLabel ".." $ TestCase $ do 35 assertEqual "" [ONE, TWO, THREE, FIVE, SIX, EIGHT] [minBound..] 36 assertEqual "" [ONE, TWO, THREE, FIVE, SIX, EIGHT] [minBound..maxBound] 37 38 ] 39