HUnit test for 'buildVersion'

Add 'HUnit' test for 'buildVersion'.
Signed-off-by: Jose A. Lopes <jabolopes@google.com>
Reviewed-by: Thomas Thrainer <thomasth@google.com>

Makefile.am

@@ -719,6 +719,7 @@ HS_TEST_SRCS = \
 	test/hs/Test/Ganeti/Common.hs \
 	test/hs/Test/Ganeti/Confd/Types.hs \
 	test/hs/Test/Ganeti/Confd/Utils.hs \
+	test/hs/Test/Ganeti/Constants.hs \
 	test/hs/Test/Ganeti/Daemon.hs \
 	test/hs/Test/Ganeti/Errors.hs \
 	test/hs/Test/Ganeti/HTools/Backend/Simu.hs \

test/hs/Test/Ganeti/Constants.hs

+{-# LANGUAGE TemplateHaskell #-}
+{-| Unittests for constants
+
+-}
+
+{-
+
+Copyright (C) 2013 Google Inc.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+02110-1301, USA.
+
+-}
+
+module Test.Ganeti.Constants (testConstants) where
+
+import Test.HUnit (Assertion)
+import qualified Test.HUnit as HUnit
+
+import qualified Ganeti.Constants as Constants
+import qualified Ganeti.ConstantUtils as ConstantUtils
+import qualified Test.Ganeti.TestHelper as TestHelper
+
+case_buildVersion :: Assertion
+case_buildVersion = do
+  HUnit.assertBool "Config major lower-bound violation"
+                   (Constants.configMajor >= 0)
+  HUnit.assertBool "Config major upper-bound violation"
+                   (Constants.configMajor <= 99)
+  HUnit.assertBool "Config minor lower-bound violation"
+                   (Constants.configMinor >= 0)
+  HUnit.assertBool "Config minor upper-bound violation"
+                   (Constants.configMinor <= 99)
+  HUnit.assertBool "Config revision lower-bound violation"
+                   (Constants.configRevision >= 0)
+  HUnit.assertBool "Config revision upper-bound violation"
+                   (Constants.configRevision <= 9999)
+  HUnit.assertBool "Config version lower-bound violation"
+                   (Constants.configVersion >= 0)
+  HUnit.assertBool "Config version upper-bound violation"
+                   (Constants.configVersion <= 99999999)
+  HUnit.assertEqual "Build version"
+                    (ConstantUtils.buildVersion 0 0 0) 0
+  HUnit.assertEqual "Build version"
+                    (ConstantUtils.buildVersion 10 10 1010) 10101010
+  HUnit.assertEqual "Build version"
+                    (ConstantUtils.buildVersion 12 34 5678) 12345678
+  HUnit.assertEqual "Build version"
+                    (ConstantUtils.buildVersion 99 99 9999) 99999999
+  HUnit.assertEqual "Build version"
+                    (ConstantUtils.buildVersion
+                     Constants.configMajor
+                     Constants.configMinor
+                     Constants.configRevision) Constants.configVersion
+  HUnit.assertEqual "Build version"
+                    (ConstantUtils.buildVersion
+                     Constants.configMajor
+                     Constants.configMinor
+                     Constants.configRevision) Constants.protocolVersion
+
+TestHelper.testSuite "Constants"
+  [ 'case_buildVersion
+  ]

test/hs/htest.hs

@@ -34,6 +34,7 @@ import Test.Ganeti.TestImports ()
 import Test.Ganeti.Attoparsec
 import Test.Ganeti.BasicTypes
 import Test.Ganeti.Common
+import Test.Ganeti.Constants
 import Test.Ganeti.Confd.Utils
 import Test.Ganeti.Confd.Types
 import Test.Ganeti.Daemon
@@ -90,6 +91,7 @@ allTests =
   [ testBasicTypes
   , testAttoparsec
   , testCommon
+  , testConstants
   , testConfd_Types
   , testConfd_Utils
   , testDaemon