#!/usr/bin/ruby

# Test the storage methods the bindings support

$: << File.dirname(__FILE__)

require 'libvirt'
require 'test_utils.rb'

conn = Libvirt::open("qemu:///system")

begin
  oldpool = conn.lookup_storage_pool_by_name("ruby-libvirt-tester")
  oldpool.destroy
  oldpool.undefine
rescue
  # in case we didn't find it, don't do anything
end

# test setup
`rm -rf #{$POOL_PATH}; mkdir #{$POOL_PATH} ; echo $?`

new_storage_vol_xml = <<EOF
<volume>
  <name>test.img</name>
  <allocation>0</allocation>
  <capacity unit="G">1</capacity>
  <target>
    <path>/tmp/ruby-libvirt-tester/test.img</path>
  </target>
</volume>
EOF

new_storage_vol_xml_2 = <<EOF
<volume>
  <name>test2.img</name>
  <allocation>0</allocation>
  <capacity unit="G">5</capacity>
  <target>
    <path>/tmp/ruby-libvirt-tester/test2.img</path>
  </target>
</volume>
EOF

# TESTGROUP: vol.pool
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)

newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newvol, "pool", 1)

expect_success(newvol, "no args", "pool")

newvol.delete

newpool.destroy

# TESTGROUP: pool.build
newpool = conn.define_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "build", 1, 2)
expect_invalid_arg_type(newpool, "build", 'foo')

expect_success(newpool, "no args", "build")

newpool.undefine

# TESTGROUP: pool.undefine
newpool = conn.define_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "undefine", 1)

expect_success(newpool, "no args", "undefine")

# TESTGROUP: pool.create
newpool = conn.define_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "create", 1, 2)
expect_invalid_arg_type(newpool, "create", 'foo')

expect_success(newpool, "no args", "create")

newpool.destroy
newpool.undefine

# TESTGROUP: pool.destroy
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "destroy", 1)

expect_success(newpool, "no args", "destroy")

# TESTGROUP: pool.delete
newpool = conn.define_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "delete", 1, 2)
expect_invalid_arg_type(newpool, "delete", 'foo')

expect_success(newpool, "no args", "delete")

`mkdir /tmp/ruby-libvirt-tester`

newpool.undefine

# TESTGROUP: pool.refresh
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "refresh", 1, 2)
expect_invalid_arg_type(newpool, "refresh", 'foo')

expect_success(newpool, "no args", "refresh")

newpool.destroy

# TESTGROUP: pool.name
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "name", 1)

expect_success(newpool, "no args", "name") {|x| x == "ruby-libvirt-tester"}

newpool.destroy

# TESTGROUP: pool.uuid
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "uuid", 1)

expect_success(newpool, "no args", "uuid") {|x| x == $POOL_UUID}

newpool.destroy

# TESTGROUP: pool.info
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "info", 1)

expect_success(newpool, "no args", "info")

newpool.destroy

# TESTGROUP: pool.xml_desc
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "xml_desc", 1, 2)
expect_invalid_arg_type(newpool, "xml_desc", "foo")

expect_success(newpool, "no args", "xml_desc")

newpool.destroy

# TESTGROUP: pool.autostart?
newpool = conn.define_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "autostart?", 1)

expect_success(newpool, "no args", "autostart?") {|x| x == false}

newpool.autostart = true

expect_success(newpool, "no args", "autostart?") {|x| x == true}

newpool.undefine

# TESTGROUP: pool.autostart=
newpool = conn.define_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "autostart=", 1, 2)
expect_invalid_arg_type(newpool, "autostart=", 'foo')
expect_invalid_arg_type(newpool, "autostart=", nil)
expect_invalid_arg_type(newpool, "autostart=", 1234)

expect_success(newpool, "no args", "autostart=", true)
if not newpool.autostart?
  puts_fail "pool.autostart= did not set autostart to true"
else
  puts_ok "pool.autostart= set autostart to true"
end

expect_success(newpool, "no args", "autostart=", false)
if newpool.autostart?
  puts_fail "pool.autostart= did not set autostart to false"
else
  puts_ok "pool.autostart= set autostart to false"
end

newpool.undefine

# TESTGROUP: pool.num_of_volumes
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "num_of_volumes", 1)

expect_success(newpool, "no args", "num_of_volumes") {|x| x == 0}

newpool.destroy

# TESTGROUP: pool.list_volumes
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "list_volumes", 1)

expect_success(newpool, "no args", "list_volumes")

newpool.destroy

# TESTGROUP: pool.free
newpool = conn.define_storage_pool_xml($new_storage_pool_xml)
newpool.undefine
expect_too_many_args(newpool, "free", 1)

expect_success(newpool, "no args", "free")

# TESTGROUP: pool.lookup_volume_by_name
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newpool, "lookup_volume_by_name", 1, 2)
expect_too_few_args(newpool, "lookup_volume_by_name")
expect_invalid_arg_type(newpool, "lookup_volume_by_name", 1);
expect_invalid_arg_type(newpool, "lookup_volume_by_name", nil);
expect_fail(newpool, Libvirt::RetrieveError, "non-existent name arg", "lookup_volume_by_name", "foobarbazsucker")

expect_success(newpool, "name arg", "lookup_volume_by_name", "test.img")

newvol.delete
newpool.destroy

# TESTGROUP: pool.lookup_volume_by_key
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newpool, "lookup_volume_by_key", 1, 2)
expect_too_few_args(newpool, "lookup_volume_by_key")
expect_invalid_arg_type(newpool, "lookup_volume_by_key", 1);
expect_invalid_arg_type(newpool, "lookup_volume_by_key", nil);
expect_fail(newpool, Libvirt::RetrieveError, "non-existent key arg", "lookup_volume_by_key", "foobarbazsucker")

expect_success(newpool, "name arg", "lookup_volume_by_key", newvol.key)

newvol.delete
newpool.destroy

# TESTGROUP: pool.lookup_volume_by_path
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newpool, "lookup_volume_by_path", 1, 2)
expect_too_few_args(newpool, "lookup_volume_by_path")
expect_invalid_arg_type(newpool, "lookup_volume_by_path", 1);
expect_invalid_arg_type(newpool, "lookup_volume_by_path", nil);
expect_fail(newpool, Libvirt::RetrieveError, "non-existent path arg", "lookup_volume_by_path", "foobarbazsucker")

expect_success(newpool, "name arg", "lookup_volume_by_path", newvol.path)

newvol.delete
newpool.destroy

# TESTGROUP: vol.name
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newvol, "name", 1)

expect_success(newvol, "no args", "name")

newvol.delete
newpool.destroy

# TESTGROUP: vol.key
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newvol, "key", 1)

expect_success(newvol, "no args", "key")

newvol.delete
newpool.destroy

# TESTGROUP: pool.create_volume_xml
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "create_volume_xml", new_storage_vol_xml, 0, 1)
expect_too_few_args(newpool, "create_volume_xml")
expect_invalid_arg_type(newpool, "create_volume_xml", nil)
expect_invalid_arg_type(newpool, "create_volume_xml", 1)
expect_invalid_arg_type(newpool, "create_volume_xml", new_storage_vol_xml, "foo")
expect_fail(newpool, Libvirt::Error, "invalid xml", "create_volume_xml", "hello")

expect_success(newpool, "storage volume XML", "create_volume_xml", new_storage_vol_xml)

expect_fail(newpool, Libvirt::Error, "already existing domain", "create_volume_xml", new_storage_vol_xml)

newvol.delete
newpool.destroy

# TESTGROUP: pool.create_volume_xml_from
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newpool, "create_volume_xml_from", new_storage_vol_xml_2, 0, 1, 2)
expect_too_few_args(newpool, "create_volume_xml_from")
expect_invalid_arg_type(newpool, "create_volume_xml_from", 1, 2)
expect_invalid_arg_type(newpool, "create_volume_xml_from", "foo", 2)
expect_invalid_arg_type(newpool, "create_volume_xml_from", "foo", newvol, "bar")
expect_fail(newpool, Libvirt::Error, "invalid xml", "create_volume_xml_from", "hello", newvol)

newvol2 = expect_success(newpool, "storage volume XML", "create_volume_xml_from", new_storage_vol_xml_2, newvol)

expect_fail(newpool, Libvirt::Error, "already existing domain", "create_volume_xml_from", new_storage_vol_xml_2, newvol)

newvol2.delete
newvol.delete
newpool.destroy

# TESTGROUP: pool.active?
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)

expect_too_many_args(newpool, "active?", 1)

expect_success(newpool, "no args", "active?") {|x| x == true}

newpool.destroy

newpool = conn.define_storage_pool_xml($new_storage_pool_xml)

expect_success(newpool, "no args", "active?") {|x| x == false}

newpool.create

expect_success(newpool, "no args", "active?") {|x| x == true}

newpool.destroy
newpool.undefine

# TESTGROUP: pool.persistent?
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
sleep 1

expect_too_many_args(newpool, "persistent?", 1)

expect_success(newpool, "no args", "persistent?") {|x| x == false}

newpool.destroy

newpool = conn.define_storage_pool_xml($new_storage_pool_xml)

expect_success(newpool, "no args", "persistent?") {|x| x == true}

newpool.undefine

# TESTGROUP: vol.delete
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newvol, "delete", 1, 2)
expect_invalid_arg_type(newvol, "delete", 'foo')

expect_success(newvol, "no args", "delete")

newpool.destroy

# TESTGROUP: vol.wipe
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newvol, "wipe", 1, 2)
expect_invalid_arg_type(newvol, "wipe", 'foo')

expect_success(newvol, "no args", "wipe")

newvol.delete
newpool.destroy

# TESTGROUP: vol.info
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newvol, "info", 1)

expect_success(newvol, "no args", "info")

newvol.delete
newpool.destroy

# TESTGROUP: vol.xml_desc
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newvol, "xml_desc", 1, 2)
expect_invalid_arg_type(newvol, "xml_desc", "foo")

expect_success(newvol, "no args", "xml_desc")

newvol.delete
newpool.destroy

# TESTGROUP: vol.path
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)

expect_too_many_args(newvol, "path", 1)

expect_success(newvol, "no args", "path")

newvol.delete
newpool.destroy

# TESTGROUP: vol.free
newpool = conn.create_storage_pool_xml($new_storage_pool_xml)
newvol = newpool.create_volume_xml(new_storage_vol_xml)
newvol.delete

expect_too_many_args(newvol, "free", 1)

expect_success(newvol, "no args", "free")

newpool.destroy

conn.close

finish_tests