Revision b6aeda4a test/hs/Test/Ganeti/Utils.hs

b/test/hs/Test/Ganeti/Utils.hs
33 33 

  		





  34
  34
  
    
import Data.Char (isSpace)


  		





  35
  35
  
    
import Data.List


  		





  
  36
  
    
import System.Time


  		





  36
  37
  
    
import qualified Text.JSON as J


  		





  37
  38
  
    
#ifndef NO_REGEX_PCRE


  		





  38
  39
  
    
import Text.Regex.PCRE


  		





  ......




  233
  234
  
    
  assertBool "newUUID" $ uuid =~ C.uuidRegex


  		





  234
  235
  
    
#endif


  		





  235
  236
  
    

  		





  
  237
  
    
prop_clockTimeToString :: Integer -> Integer -> Property


  		





  
  238
  
    
prop_clockTimeToString ts pico =


  		





  
  239
  
    
  clockTimeToString (TOD ts pico) ==? show ts


  		





  
  240
  
    

  		





  236
  241
  
    
-- | Test list for the Utils module.


  		





  237
  242
  
    
testSuite "Utils"


  		





  238
  243
  
    
            [ 'prop_commaJoinSplit


  		





  ......




  252
  257
  
    
#ifndef NO_REGEX_PCRE


  		





  253
  258
  
    
            , 'case_new_uuid


  		





  254
  259
  
    
#endif


  		





  
  260
  
    
            , 'prop_clockTimeToString


  		





  255
  261
  
    
            ]


  		












Also available in:
  Unified diff