Merge branch 'devel-2.7'
authorIustin Pop <iustin@google.com>
Tue, 5 Mar 2013 09:21:15 +0000 (10:21 +0100)
committerIustin Pop <iustin@google.com>
Tue, 5 Mar 2013 11:56:13 +0000 (12:56 +0100)
* devel-2.7: (23 commits)
  Add export lists for files which didn't have them
  Fix Haskell compatibility tests with disabled file storage
  Fix QA with disabled file storage
  Fix convert-constants handling of booleans
  Fix handling of disabled (shared) file storage
  Fix low verbosity levels in htools
  Fix improperly formatted docstring
  Allow iallocator to work without LVM storage
  Allow rpc.MakeLegacyNodeInfo to parse non-LVM results
  Fix LUTestAllocator with instance alloc
  Fix confd issue regarding --no-lvm-storage
  Fix networks in _PrepareNicModifications()
  Fix sphinx label namespace
  Clarify use of move-instance with self-signed certificates
  Remove early returns in network LUs
  Fix HooksDict() in case of no tags
  Add networks to _AllIDs()
  Fix locking in LUNetworkConnect()
  Fix networks in LUInstanceSetParams()
  Fix another docstring typo
  ...

Conflicts:
        src/Ganeti/Query/Node.hs (trivial; function rename in master
                                  and 'vgs' change in devel-2.7)
        also exported new entity from TestCommon.hs (used in master)

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Helga Velroyen <helgav@google.com>

1  2 
lib/cmdlib.py
lib/objects.py
lib/pathutils.py
qa/qa_node.py
src/Ganeti/Objects.hs
src/Ganeti/Query/Node.hs
test/hs/Test/Ganeti/TestCommon.hs

diff --cc lib/cmdlib.py
Simple merge
diff --cc lib/objects.py
Simple merge
Simple merge
diff --cc qa/qa_node.py
Simple merge
Simple merge
@@@ -215,13 -216,13 +216,13 @@@ fieldsMap 
  -- | Collect live data from RPC query if enabled.
  --
  -- FIXME: Check which fields we actually need and possibly send empty
 --- hvs/vgs if no info from hypervisor/volume group respectively is
 +-- hvs\/vgs if no info from hypervisor\/volume group respectively is
  -- required
 -maybeCollectLiveData:: Bool -> ConfigData -> [Node] -> IO [(Node, NodeRuntime)]
 -maybeCollectLiveData False _ nodes =
 +collectLiveData:: Bool -> ConfigData -> [Node] -> IO [(Node, Runtime)]
 +collectLiveData False _ nodes =
    return $ zip nodes (repeat $ Left (RpcResultError "Live data disabled"))
 -maybeCollectLiveData True cfg nodes = do
 +collectLiveData True cfg nodes = do
-   let vgs = [clusterVolumeGroupName $ configCluster cfg]
+   let vgs = maybeToList . clusterVolumeGroupName $ configCluster cfg
        hvs = [getDefaultHypervisor cfg]
        step n (bn, gn, em) =
          let ndp' = getNodeNdParams cfg n
@@@ -23,7 -23,42 +23,43 @@@ Foundation, Inc., 51 Franklin Street, F
  
  -}
  
- module Test.Ganeti.TestCommon where
+ module Test.Ganeti.TestCommon
+   ( maxMem
+   , maxDsk
+   , maxCpu
+   , maxVcpuRatio
+   , maxSpindleRatio
+   , maxNodes
+   , maxOpCodes
+   , (==?)
+   , (/=?)
+   , failTest
+   , passTest
+   , pythonCmd
+   , runPython
+   , checkPythonResult
+   , DNSChar(..)
+   , genName
+   , genFQDN
+   , genMaybe
+   , genTags
+   , genFields
+   , genUniquesList
+   , SmallRatio(..)
++  , genSetHelper
+   , genSet
+   , genIp4AddrStr
+   , genIp4Addr
+   , genIp4NetWithNetmask
+   , genIp4Net
+   , genIp6Addr
+   , genIp6Net
+   , netmask2NumHosts
+   , testSerialisation
+   , resultProp
+   , readTestData
+   , genSample
+   ) where
  
  import Control.Applicative
  import Control.Exception (catchJust)