ruby-libvirt 0.8.1 → 0.8.3

data/tests/test_domain.rb

@@ -13,13 +13,15 @@ require 'test_utils.rb'
 
 set_test_object("domain")
 
-conn = Libvirt::open("qemu:///system")
+conn = Libvirt::open(URI)
 
 cleanup_test_domain(conn)
 
 # setup for later tests
-`qemu-img create -f qcow2 #{$GUEST_DISK} 5G`
-`qemu-img create -f raw #{$GUEST_RAW_DISK} 5G`
+if !test_default_uri?
+  `qemu-img create -f qcow2 #{$GUEST_DISK} 5G`
+  `qemu-img create -f raw #{$GUEST_RAW_DISK} 5G`
+end
 
 
 new_hostdev_xml = <<EOF
@@ -33,21 +35,23 @@ EOF
 # start tests
 
 # TESTGROUP: dom.migrate_max_speed
-newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+if !test_default_uri?
+  newdom = conn.create_domain_xml($new_dom_xml)
+  test_sleep 1
 
-expect_too_many_args(newdom, "migrate_max_speed", 1, 2)
-expect_invalid_arg_type(newdom, "migrate_max_speed", 'foo')
-expect_invalid_arg_type(newdom, "migrate_max_speed", [])
-expect_invalid_arg_type(newdom, "migrate_max_speed", {})
+  expect_too_many_args(newdom, "migrate_max_speed", 1, 2)
+  expect_invalid_arg_type(newdom, "migrate_max_speed", 'foo')
+  expect_invalid_arg_type(newdom, "migrate_max_speed", [])
+  expect_invalid_arg_type(newdom, "migrate_max_speed", {})
 
-expect_success(newdom, "no args", "migrate_max_speed")
+  expect_success(newdom, "no args", "migrate_max_speed")
 
-newdom.destroy
+  newdom.destroy
+end
 
 # TESTGROUP: dom.reset
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "reset", 1, 2)
 expect_invalid_arg_type(newdom, "reset", 'foo')
@@ -60,7 +64,7 @@ newdom.destroy
 
 # TESTGROUP: dom.hostname
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "hostname", 1, 2)
 expect_invalid_arg_type(newdom, "hostname", 'foo')
@@ -74,7 +78,7 @@ newdom.destroy
 
 # TESTGROUP: dom.metadata
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "metadata", 1, 2, 3, 4)
 expect_too_few_args(newdom, "metadata")
@@ -91,7 +95,7 @@ newdom.destroy
 
 # TESTGROUP: dom.metadata=
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "metadata=", 1, 2, 3, 4, 5, 6)
 expect_too_few_args(newdom, "metadata=")
@@ -117,7 +121,7 @@ newdom.destroy
 
 # TESTGROUP: dom.updated?
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "updated?", 1)
 
@@ -127,7 +131,7 @@ newdom.destroy
 
 # TESTGROUP: dom.inject_nmi
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "inject_nmi", 1, 2)
 expect_invalid_arg_type(newdom, "inject_nmi", 'foo')
@@ -138,7 +142,7 @@ newdom.destroy
 
 # TESTGROUP: dom.control_info
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "control_info", 1, 2)
 expect_invalid_arg_type(newdom, "control_info", 'foo')
@@ -149,7 +153,7 @@ newdom.destroy
 
 # TESTGROUP: dom.send_key
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "send_key", 1, 2, 3, 4)
 expect_too_few_args(newdom, "send_key")
@@ -173,9 +177,9 @@ newdom.destroy
 
 # TESTGROUP: dom.migrate
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
-dconn = Libvirt::open("qemu:///system")
+dconn = Libvirt::open(URI)
 
 expect_too_many_args(newdom, "migrate", 1, 2, 3, 4, 5, 6)
 expect_too_few_args(newdom, "migrate")
@@ -194,14 +198,14 @@ newdom.destroy
 
 # TESTGROUP: dom.migrate_to_uri
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "migrate_to_uri", 1, 2, 3, 4, 5)
 expect_too_few_args(newdom, "migrate_to_uri")
 expect_invalid_arg_type(newdom, "migrate_to_uri", 1)
-expect_invalid_arg_type(newdom, "migrate_to_uri", "qemu:///system", 'foo')
-expect_invalid_arg_type(newdom, "migrate_to_uri", "qemu:///system", 0, 1)
-expect_invalid_arg_type(newdom, "migrate_to_uri", "qemu:///system", 0, 'foo', 'bar')
+expect_invalid_arg_type(newdom, "migrate_to_uri", URI, 'foo')
+expect_invalid_arg_type(newdom, "migrate_to_uri", URI, 0, 1)
+expect_invalid_arg_type(newdom, "migrate_to_uri", URI, 0, 'foo', 'bar')
 
 #expect_success(newdom, "URI arg", "migrate_to_uri", "qemu://remote/system")
 
@@ -221,7 +225,7 @@ expect_fail(newdom, Libvirt::Error, "on off domain", "migrate_set_max_downtime",
 newdom.undefine
 
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 #expect_fail(newdom, Libvirt::Error, "while no migration in progress", "migrate_set_max_downtime", 10)
 
 #newdom.migrate_to_uri("qemu://remote/system")
@@ -231,9 +235,9 @@ newdom.destroy
 
 # TESTGROUP: dom.migrate2
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
-dconn = Libvirt::open("qemu:///system")
+dconn = Libvirt::open(URI)
 
 expect_too_many_args(newdom, "migrate2", 1, 2, 3, 4, 5, 6, 7)
 expect_too_few_args(newdom, "migrate2")
@@ -249,15 +253,15 @@ newdom.destroy
 
 # TESTGROUP: dom.migrate_to_uri2
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "migrate_to_uri2", 1, 2, 3, 4, 5, 6, 7)
 expect_invalid_arg_type(newdom, "migrate_to_uri2", 1)
-expect_invalid_arg_type(newdom, "migrate_to_uri2", "qemu:///system", 1)
-expect_invalid_arg_type(newdom, "migrate_to_uri2", "qemu:///system", 'foo', 1)
-expect_invalid_arg_type(newdom, "migrate_to_uri2", "qemu:///system", 'foo', 'bar', 'baz')
-expect_invalid_arg_type(newdom, "migrate_to_uri2", "qemu:///system", 'foo', 'bar', 0, 1)
-expect_invalid_arg_type(newdom, "migrate_to_uri2", "qemu:///system", 'foo', 'bar', 0, 'foo', 'baz')
+expect_invalid_arg_type(newdom, "migrate_to_uri2", URI, 1)
+expect_invalid_arg_type(newdom, "migrate_to_uri2", URI, 'foo', 1)
+expect_invalid_arg_type(newdom, "migrate_to_uri2", URI, 'foo', 'bar', 'baz')
+expect_invalid_arg_type(newdom, "migrate_to_uri2", URI, 'foo', 'bar', 0, 1)
+expect_invalid_arg_type(newdom, "migrate_to_uri2", URI, 'foo', 'bar', 0, 'foo', 'baz')
 
 #expect_success(newdom, "URI arg", "migrate_to_uri2", "qemu://remote/system")
 
@@ -267,7 +271,7 @@ newdom.destroy
 
 # TESTGROUP: dom.migrate_set_max_speed
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "migrate_set_max_speed", 1, 2, 3)
 expect_too_few_args(newdom, "migrate_set_max_speed")
@@ -279,38 +283,40 @@ expect_invalid_arg_type(newdom, "migrate_set_max_speed", 5, 'foo')
 newdom.destroy
 
 # TESTGROUP: dom.shutdown
-newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
-
-expect_too_many_args(newdom, "shutdown", 1, 2)
-expect_success(newdom, "no args", "shutdown")
-sleep 1
-newdom.destroy
+if !test_default_uri?
+  newdom = conn.create_domain_xml($new_dom_xml)
+  test_sleep 1
+
+  expect_too_many_args(newdom, "shutdown", 1, 2)
+  expect_success(newdom, "no args", "shutdown")
+  sleep 1
+  newdom.destroy
+end
 
 # TESTGROUP: dom.reboot
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 expect_too_many_args(newdom, "reboot", 1, 2)
 expect_invalid_arg_type(newdom, "reboot", "hello")
 
 expect_success(newdom, "no args", "reboot")
-sleep 1
+test_sleep 1
 
 expect_success(newdom, "flags arg", "reboot", 0)
-sleep 1
+test_sleep 1
 
 newdom.destroy
 
 # TESTGROUP: dom.destroy
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "destroy", 1, 2)
 expect_success(newdom, "no args", "destroy")
 
 # TESTGROUP: dom.suspend
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "suspend", 1)
 expect_success(newdom, "no args", "suspend")
@@ -318,7 +324,7 @@ newdom.destroy
 
 # TESTGROUP: dom.resume
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_fail(newdom, Libvirt::Error, "already running", "resume")
 
@@ -328,33 +334,37 @@ expect_success(newdom, "no args suspended domain", "resume")
 newdom.destroy
 
 # TESTGROUP: dom.save
-newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+if !test_default_uri?
+  newdom = conn.create_domain_xml($new_dom_xml)
+  test_sleep 1
 
-expect_too_many_args(newdom, "save", 1, 2, 3, 4)
-expect_too_few_args(newdom, "save")
-expect_invalid_arg_type(newdom, "save", 1)
-expect_invalid_arg_type(newdom, "save", nil)
-expect_fail(newdom, Libvirt::Error, "non-existent path", "save", "/this/path/does/not/exist")
+  expect_too_many_args(newdom, "save", 1, 2, 3, 4)
+  expect_too_few_args(newdom, "save")
+  expect_invalid_arg_type(newdom, "save", 1)
+  expect_invalid_arg_type(newdom, "save", nil)
+  expect_fail(newdom, Libvirt::Error, "non-existent path", "save", "/this/path/does/not/exist")
 
-expect_success(newdom, "path arg", "save", $GUEST_SAVE)
+  expect_success(newdom, "path arg", "save", $GUEST_SAVE)
 
-`rm -f #{$GUEST_SAVE}`
+  `rm -f #{$GUEST_SAVE}`
+end
 
 # TESTGROUP: dom.managed_save
-newdom = conn.define_domain_xml($new_dom_xml)
-newdom.create
-sleep 1
-
-expect_too_many_args(newdom, "managed_save", 1, 2)
-expect_invalid_arg_type(newdom, "managed_save", "hello")
-expect_success(newdom, "no args", "managed_save")
-newdom.undefine(Libvirt::Domain::UNDEFINE_MANAGED_SAVE)
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  newdom.create
+  test_sleep 1
+
+  expect_too_many_args(newdom, "managed_save", 1, 2)
+  expect_invalid_arg_type(newdom, "managed_save", "hello")
+  expect_success(newdom, "no args", "managed_save")
+  newdom.undefine(Libvirt::Domain::UNDEFINE_MANAGED_SAVE)
+end
 
 # TESTGROUP: dom.has_managed_save?
 newdom = conn.define_domain_xml($new_dom_xml)
 newdom.create
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "has_managed_save?", 1, 2)
 expect_invalid_arg_type(newdom, "has_managed_save?", "hello")
@@ -378,7 +388,7 @@ newdom.undefine(Libvirt::Domain::UNDEFINE_MANAGED_SAVE)
 # TESTGROUP: dom.managed_save_remove
 newdom = conn.define_domain_xml($new_dom_xml)
 newdom.create
-sleep 1
+test_sleep 1
 newdom.managed_save
 
 expect_too_many_args(newdom, "managed_save_remove", 1, 2)
@@ -397,53 +407,57 @@ end
 newdom.undefine
 
 # TESTGROUP: dom.core_dump
-newdom = conn.define_domain_xml($new_dom_xml)
-newdom.create
-sleep 1
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  newdom.create
+  test_sleep 1
 
-expect_too_many_args(newdom, "core_dump", 1, 2, 3)
-expect_too_few_args(newdom, "core_dump")
-expect_invalid_arg_type(newdom, "core_dump", 1, 2)
-expect_invalid_arg_type(newdom, "core_dump", "/path", "foo")
-expect_fail(newdom, Libvirt::Error, "invalid path", "core_dump", "/this/path/does/not/exist")
+  expect_too_many_args(newdom, "core_dump", 1, 2, 3)
+  expect_too_few_args(newdom, "core_dump")
+  expect_invalid_arg_type(newdom, "core_dump", 1, 2)
+  expect_invalid_arg_type(newdom, "core_dump", "/path", "foo")
+  expect_fail(newdom, Libvirt::Error, "invalid path", "core_dump", "/this/path/does/not/exist")
 
-expect_success(newdom, "live with path arg", "core_dump", "/var/lib/libvirt/images/ruby-libvirt-test.core")
+  expect_success(newdom, "live with path arg", "core_dump", "/var/lib/libvirt/images/ruby-libvirt-test.core")
 
-`rm -f /var/lib/libvirt/images/ruby-libvirt-test.core`
+  `rm -f /var/lib/libvirt/images/ruby-libvirt-test.core`
 
-expect_success(newdom, "crash with path arg", "core_dump", "/var/lib/libvirt/images/ruby-libvirt-test.core", Libvirt::Domain::DUMP_CRASH)
+  expect_success(newdom, "crash with path arg", "core_dump", "/var/lib/libvirt/images/ruby-libvirt-test.core", Libvirt::Domain::DUMP_CRASH)
 
-expect_fail(newdom, Libvirt::Error, "of shut-off domain", "core_dump", "/var/lib/libvirt/images/ruby-libvirt-test.core", Libvirt::Domain::DUMP_CRASH)
+  expect_fail(newdom, Libvirt::Error, "of shut-off domain", "core_dump", "/var/lib/libvirt/images/ruby-libvirt-test.core", Libvirt::Domain::DUMP_CRASH)
 
-`rm -f /var/lib/libvirt/images/ruby-libvirt-test.core`
+  `rm -f /var/lib/libvirt/images/ruby-libvirt-test.core`
 
-newdom.undefine
+  newdom.undefine
+end
 
 # TESTGROUP: Libvirt::Domain::restore
-newdom = conn.define_domain_xml($new_dom_xml)
-newdom.create
-sleep 1
-newdom.save($GUEST_SAVE)
-
-expect_too_many_args(Libvirt::Domain, "restore", 1, 2, 3)
-expect_too_few_args(Libvirt::Domain, "restore")
-expect_invalid_arg_type(Libvirt::Domain, "restore", 1, 2)
-expect_invalid_arg_type(Libvirt::Domain, "restore", conn, 2)
-expect_fail(Libvirt::Domain, Libvirt::Error, "invalid path", "restore", conn, "/this/path/does/not/exist")
-`touch /tmp/foo`
-expect_fail(Libvirt::Domain, Libvirt::Error, "invalid save file", "restore", conn, "/tmp/foo")
-`rm -f /tmp/foo`
-
-expect_success(Libvirt::Domain, "2 args", "restore", conn, $GUEST_SAVE)
-
-`rm -f #{$GUEST_SAVE}`
-
-newdom.destroy
-newdom.undefine
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  newdom.create
+  test_sleep 1
+  newdom.save($GUEST_SAVE)
+
+  expect_too_many_args(Libvirt::Domain, "restore", 1, 2, 3)
+  expect_too_few_args(Libvirt::Domain, "restore")
+  expect_invalid_arg_type(Libvirt::Domain, "restore", 1, 2)
+  expect_invalid_arg_type(Libvirt::Domain, "restore", conn, 2)
+  expect_fail(Libvirt::Domain, Libvirt::Error, "invalid path", "restore", conn, "/this/path/does/not/exist")
+  `touch /tmp/foo`
+  expect_fail(Libvirt::Domain, Libvirt::Error, "invalid save file", "restore", conn, "/tmp/foo")
+  `rm -f /tmp/foo`
+
+  expect_success(Libvirt::Domain, "2 args", "restore", conn, $GUEST_SAVE)
+
+  `rm -f #{$GUEST_SAVE}`
+
+  newdom.destroy
+  newdom.undefine
+end
 
 # TESTGROUP: dom.info
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "info", 1)
 
@@ -453,7 +467,7 @@ newdom.destroy
 
 # TESTGROUP: dom.security_label
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "security_label", 1)
 
@@ -463,7 +477,7 @@ newdom.destroy
 
 # TESTGROUP: dom.block_stats
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "block_stats", 1, 2)
 expect_too_few_args(newdom, "block_stats")
@@ -476,7 +490,7 @@ newdom.destroy
 
 # TESTGROUP: dom.memory_stats
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "memory_stats", 1, 2)
 expect_invalid_arg_type(newdom, "memory_stats", "foo")
@@ -487,7 +501,7 @@ newdom.destroy
 
 # TESTGROUP: dom.blockinfo
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "blockinfo", 1, 2, 3)
 expect_too_few_args(newdom, "blockinfo")
@@ -501,7 +515,7 @@ newdom.destroy
 
 # TESTGROUP: dom.block_peek
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "block_peek", 1, 2, 3, 4, 5)
 expect_too_few_args(newdom, "block_peek")
@@ -527,7 +541,7 @@ newdom.destroy
 
 # TESTGROUP: dom.memory_peek
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "memory_peek", 1, 2, 3, 4)
 expect_too_few_args(newdom, "memory_peek")
@@ -548,7 +562,7 @@ newdom = conn.define_domain_xml($new_dom_xml)
 expect_success(newdom, "get_vcpus on shutoff domain", "get_vcpus") {|x| x.length == 2}
 
 newdom.create
-sleep 1
+test_sleep 1
 
 expect_success(newdom, "no args", "get_vcpus") {|x| x.length == 2}
 
@@ -563,7 +577,7 @@ newdom = conn.define_domain_xml($new_dom_xml)
 expect_success(newdom, "no args", "active?") {|x| x == false}
 
 newdom.create
-sleep 1
+test_sleep 1
 
 expect_success(newdom, "no args", "active?") {|x| x == true}
 
@@ -572,7 +586,7 @@ newdom.undefine
 
 # TESTGROUP: dom.persistent?
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "persistent?", 1)
 
@@ -588,7 +602,7 @@ newdom.undefine
 
 # TESTGROUP: dom.ifinfo
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "ifinfo", 1, 2)
 expect_too_few_args(newdom, "ifinfo")
@@ -601,7 +615,7 @@ newdom.destroy
 
 # TESTGROUP: dom.name
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "name", 1)
 
@@ -612,7 +626,7 @@ newdom.destroy
 
 # TESTGROUP: dom.id
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "id", 1)
 
@@ -622,7 +636,7 @@ newdom.destroy
 
 # TESTGROUP: dom.uuid
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "uuid", 1)
 
@@ -632,17 +646,21 @@ newdom.destroy
 
 # TESTGROUP: dom.os_type
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "os_type", 1)
 
-expect_success(newdom, "no args", "os_type") {|x| x == "hvm"}
+if test_default_uri?
+  expect_success(newdom, "no args", "os_type") {|x| x == "linux"}
+else
+  expect_success(newdom, "no args", "os_type") {|x| x == "hvm"}
+end
 
 newdom.destroy
 
 # TESTGROUP: dom.max_memory
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "max_memory", 1)
 
@@ -674,7 +692,7 @@ expect_fail(newdom, Libvirt::Error, "shutoff domain", "memory=", [2, Libvirt::Do
 newdom.undefine
 
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_success(newdom, "number arg", "memory=", 200000)
 
@@ -682,7 +700,7 @@ newdom.destroy
 
 # TESTGROUP: dom.max_vcpus
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "max_vcpus", 1)
 
@@ -703,7 +721,7 @@ expect_fail(newdom, Libvirt::Error, "shutoff domain", "vcpus=", [2, Libvirt::Dom
 newdom.undefine
 
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_success(newdom, "number arg", "vcpus=", 2)
 
@@ -711,7 +729,7 @@ newdom.destroy
 
 # TESTGROUP: dom.pin_vcpu
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "pin_vcpu", 1, 2, 3, 4)
 expect_too_few_args(newdom, "pin_vcpu")
@@ -724,7 +742,7 @@ newdom.destroy
 
 # TESTGROUP: dom.xml_desc
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "xml_desc", 1, 2)
 expect_invalid_arg_type(newdom, "xml_desc", "foo")
@@ -803,7 +821,7 @@ expect_fail(newdom, Libvirt::Error, "shut off domain", "attach_device", new_host
 newdom.undefine
 
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 #expect_success(newdom, "hostdev XML", "attach_device", new_hostdev_xml)
 
@@ -822,7 +840,7 @@ expect_fail(newdom, Libvirt::Error, "shut off domain", "detach_device", new_host
 newdom.undefine
 
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 #expect_success(newdom, "hostdev XML", "detach_device", new_hostdev_xml)
 
@@ -841,7 +859,7 @@ expect_fail(newdom, Libvirt::Error, "shut off domain", "update_device", new_host
 newdom.undefine
 
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 #expect_success(newdom, "hostdev XML", "update_device", new_hostdev_xml)
 
@@ -940,7 +958,7 @@ expect_invalid_arg_type(newdom, "revert_to_snapshot", nil)
 expect_invalid_arg_type(newdom, "revert_to_snapshot", 'foo')
 
 snap = newdom.snapshot_create_xml("<domainsnapshot><name>foo</name></domainsnapshot>")
-sleep 1
+test_sleep 1
 
 expect_invalid_arg_type(newdom, "revert_to_snapshot", snap, 'foo')
 
@@ -962,20 +980,22 @@ expect_success(newdom, "no args", "current_snapshot")
 newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
 
 # TESTGROUP: dom.job_info
-newdom = conn.define_domain_xml($new_dom_xml)
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
 
-expect_too_many_args(newdom, "job_info", 1)
+  expect_too_many_args(newdom, "job_info", 1)
 
-expect_fail(newdom, Libvirt::RetrieveError, "shutoff domain", "job_info")
+  expect_fail(newdom, Libvirt::RetrieveError, "shutoff domain", "job_info")
 
-newdom.undefine
+  newdom.undefine
 
-newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+  newdom = conn.create_domain_xml($new_dom_xml)
+  test_sleep 1
 
-expect_success(newdom, "no args", "job_info")
+  expect_success(newdom, "no args", "job_info")
 
-newdom.destroy
+  newdom.destroy
+end
 
 # TESTGROUP: dom.abort_job
 newdom = conn.define_domain_xml($new_dom_xml)
@@ -987,7 +1007,7 @@ expect_fail(newdom, Libvirt::Error, "not running domain", "abort_job")
 newdom.undefine
 
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_fail(newdom, Libvirt::Error, "no active job", "abort_job")
 
@@ -1021,57 +1041,26 @@ expect_too_many_args(newdom, "scheduler_parameters=", 1, 2)
 expect_too_few_args(newdom, "scheduler_parameters=")
 expect_invalid_arg_type(newdom, "scheduler_parameters=", 0)
 
-expect_success(newdom, "cpu shares arg", "scheduler_parameters=", {"cpu_shares" => 512})
+if !test_default_uri?
+  expect_success(newdom, "cpu shares arg", "scheduler_parameters=", {"cpu_shares" => 512})
+end
 
 newdom.undefine
 
 # TESTGROUP: dom.qemu_monitor_command
-new_test_xml = <<EOF
-<domain type='test'>
-  <name>fc4</name>
-  <uuid>EF86180145B911CB88E3AFBFE5370493</uuid>
-  <os>
-    <type>xen</type>
-    <kernel>/boot/vmlinuz-2.6.15-1.43_FC5guest</kernel>
-    <initrd>/boot/initrd-2.6.15-1.43_FC5guest.img</initrd>
-    <root>/dev/sda1</root>
-    <cmdline> ro selinux=0 3</cmdline>
-  </os>
-  <memory>261072</memory>
-  <currentMemory>131072</currentMemory>
-  <vcpu>1</vcpu>
-  <devices>
-    <disk type='file'>
-      <source file='/u/fc4.img'/>
-      <target dev='sda1'/>
-    </disk>
-    <interface type='bridge'>
-      <source bridge='xenbr0'/>
-      <mac address='aa:00:00:00:00:11'/>
-      <script path='/etc/xen/scripts/vif-bridge'/>
-    </interface>
-    <console tty='/dev/pts/5'/>
-  </devices>
-</domain>
-EOF
+if !test_default_uri?
+  newdom = conn.create_domain_xml($new_dom_xml)
 
-newdom = conn.create_domain_xml($new_dom_xml)
-
-expect_too_many_args(newdom, "qemu_monitor_command", 1, 2, 3)
-expect_too_few_args(newdom, "qemu_monitor_command")
-expect_invalid_arg_type(newdom, "qemu_monitor_command", 1)
-expect_invalid_arg_type(newdom, "qemu_monitor_command", "foo", "bar")
-# FIXME: the test driver doesn't support virDomainDestroyFlags() presently
-#testconn = Libvirt::open("test:///default")
-#fakedom = testconn.create_domain_xml(new_test_xml)
-#expect_invalid_arg_type(fakedom, "qemu_monitor_command", "foo")
-#fakedom.destroy
-#testconn.close
-expect_fail(newdom, Libvirt::RetrieveError, "invalid command", "qemu_monitor_command", "foo")
+  expect_too_many_args(newdom, "qemu_monitor_command", 1, 2, 3)
+  expect_too_few_args(newdom, "qemu_monitor_command")
+  expect_invalid_arg_type(newdom, "qemu_monitor_command", 1)
+  expect_invalid_arg_type(newdom, "qemu_monitor_command", "foo", "bar")
+  expect_fail(newdom, Libvirt::RetrieveError, "invalid command", "qemu_monitor_command", "foo")
 
-expect_success(newdom, "monitor command", "qemu_monitor_command", '{"execute":"query-cpus"}')
+  expect_success(newdom, "monitor command", "qemu_monitor_command", '{"execute":"query-cpus"}')
 
-newdom.destroy
+  newdom.destroy
+end
 
 # TESTGROUP: dom.num_vcpus
 newdom = conn.define_domain_xml($new_dom_xml)
@@ -1086,7 +1075,7 @@ expect_success(newdom, "config flag", "num_vcpus", Libvirt::Domain::VCPU_CONFIG)
 newdom.undefine
 
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_fail(newdom, Libvirt::RetrieveError, "config flag on transient domain", "num_vcpus", Libvirt::Domain::VCPU_CONFIG)
 expect_success(newdom, "live flag on transient domain", "num_vcpus", Libvirt::Domain::VCPU_LIVE)
@@ -1190,7 +1179,7 @@ expect_fail(newdom, Libvirt::Error, "on off domain, two args", "migrate_max_down
 newdom.undefine
 
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 #expect_fail(newdom, Libvirt::Error, "while no migration in progress", "migrate_max_downtime=", 10)
 
 # FIXME: get this working
@@ -1201,7 +1190,7 @@ newdom.destroy
 
 # TESTGROUP: dom.migrate_max_speed=
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "migrate_max_speed=", 1, 2)
 expect_too_many_args(newdom, "migrate_max_speed=", [1, 2, 3])
@@ -1218,7 +1207,7 @@ newdom.destroy
 
 # TESTGROUP: dom.state
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "state", 1, 2)
 expect_invalid_arg_type(newdom, "state", 'foo')
@@ -1229,7 +1218,7 @@ newdom.destroy
 
 # TESTGROUP: dom.screenshot
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 stream = conn.stream
 
@@ -1259,7 +1248,7 @@ expect_fail(newdom, Libvirt::Error, "shutoff domain", "vcpus_flags=", [2, Libvir
 newdom.undefine
 
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_success(newdom, "number arg", "vcpus_flags=", 2)
 
@@ -1275,11 +1264,11 @@ expect_invalid_arg_type(newdom, "list_all_snapshots", 'foo')
 expect_success(newdom, "no args", "list_all_snapshots")
 
 newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+test_sleep 1
 
 # TESTGROUP: domain.open_graphics
 newdom = conn.create_domain_xml($new_dom_xml)
-sleep 1
+test_sleep 1
 
 expect_too_many_args(newdom, "open_graphics", 1, 2, 3, 4)
 expect_too_few_args(newdom, "open_graphics")
@@ -1308,135 +1297,155 @@ expect_invalid_arg_type(snap, "xml_desc", 'foo')
 expect_success(newdom, "no args", "xml_desc")
 
 newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+test_sleep 1
 
 # TESTGROUP: snapshot.delete
-newdom = conn.define_domain_xml($new_dom_xml)
-snap = newdom.snapshot_create_xml("<domainsnapshot/>")
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  snap = newdom.snapshot_create_xml("<domainsnapshot/>")
 
-expect_too_many_args(snap, "delete", 1, 2)
-expect_invalid_arg_type(snap, "delete", 'foo')
+  expect_too_many_args(snap, "delete", 1, 2)
+  expect_invalid_arg_type(snap, "delete", 'foo')
 
-expect_success(snap, "no args", "delete")
+  expect_success(snap, "no args", "delete")
 
-newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+  newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
+  test_sleep 1
+end
 
 # TESTGROUP: snapshot.name
-newdom = conn.define_domain_xml($new_dom_xml)
-snap = newdom.snapshot_create_xml("<domainsnapshot/>")
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  snap = newdom.snapshot_create_xml("<domainsnapshot/>")
 
-expect_too_many_args(snap, "name", 1)
+  expect_too_many_args(snap, "name", 1)
 
-expect_success(snap, "no args", "name")
+  expect_success(snap, "no args", "name")
 
-newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+  newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
+  test_sleep 1
+end
 
 # TESTGROUP: snapshot.num_children
-newdom = conn.define_domain_xml($new_dom_xml)
-snap = newdom.snapshot_create_xml("<domainsnapshot/>")
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  snap = newdom.snapshot_create_xml("<domainsnapshot/>")
 
-expect_too_many_args(snap, "num_children", 1, 2)
+  expect_too_many_args(snap, "num_children", 1, 2)
 
-expect_success(snap, "no args, no children", "num_children") {|x| x == 0}
+  expect_success(snap, "no args, no children", "num_children") {|x| x == 0}
 
-newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+  newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
+  test_sleep 1
+end
 
 # TESTGROUP: snapshot.list_children_names
-newdom = conn.define_domain_xml($new_dom_xml)
-snap = newdom.snapshot_create_xml("<domainsnapshot/>")
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  snap = newdom.snapshot_create_xml("<domainsnapshot/>")
 
-expect_too_many_args(snap, "list_children_names", 1, 2)
+  expect_too_many_args(snap, "list_children_names", 1, 2)
 
-expect_success(snap, "no args, no children", "num_children") {|x| x == 0}
+  expect_success(snap, "no args, no children", "num_children") {|x| x == 0}
 
-newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+  newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
+  test_sleep 1
+end
 
 # TESTGROUP: snapshot.free
-newdom = conn.define_domain_xml($new_dom_xml)
-snap = newdom.snapshot_create_xml("<domainsnapshot/>")
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  snap = newdom.snapshot_create_xml("<domainsnapshot/>")
 
-expect_too_many_args(snap, "free", 1)
+  expect_too_many_args(snap, "free", 1)
 
-expect_success(snap, "no args", "free")
+  expect_success(snap, "no args", "free")
 
-newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+  newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
+  test_sleep 1
+end
 
 # TESTGROUP: snapshot.has_metadata?
-newdom = conn.define_domain_xml($new_dom_xml)
-snap = newdom.snapshot_create_xml("<domainsnapshot/>")
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  snap = newdom.snapshot_create_xml("<domainsnapshot/>")
 
-expect_too_many_args(snap, "has_metadata?", 1, 2)
-expect_invalid_arg_type(snap, "has_metadata?", "foo")
+  expect_too_many_args(snap, "has_metadata?", 1, 2)
+  expect_invalid_arg_type(snap, "has_metadata?", "foo")
 
-expect_success(snap, "no args", "has_metadata?") {|x| x == true}
+  expect_success(snap, "no args", "has_metadata?") {|x| x == true}
 
-newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+  newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
+  test_sleep 1
+end
 
 # TESTGROUP: snapshot.list_children_names
-newdom = conn.define_domain_xml($new_dom_xml)
-snap = newdom.snapshot_create_xml("<domainsnapshot><name>snap</name></domainsnapshot>")
-snap2 = newdom.snapshot_create_xml("<domainsnapshot><name>snap2</name></domainsnapshot>")
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  snap = newdom.snapshot_create_xml("<domainsnapshot><name>snap</name></domainsnapshot>")
+  snap2 = newdom.snapshot_create_xml("<domainsnapshot><name>snap2</name></domainsnapshot>")
 
-expect_too_many_args(snap, "list_children_names", 1, 2)
-expect_invalid_arg_type(snap, "list_children_names", "foo")
-expect_invalid_arg_type(snap, "list_children_names", [])
-expect_invalid_arg_type(snap, "list_children_names", {})
+  expect_too_many_args(snap, "list_children_names", 1, 2)
+  expect_invalid_arg_type(snap, "list_children_names", "foo")
+  expect_invalid_arg_type(snap, "list_children_names", [])
+  expect_invalid_arg_type(snap, "list_children_names", {})
 
-expect_success(snap, "no args", "list_children_names")
+  expect_success(snap, "no args", "list_children_names")
 
-newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+  newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
+  test_sleep 1
+end
 
 # TESTGROUP: snapshot.list_all_children
-newdom = conn.define_domain_xml($new_dom_xml)
-snap = newdom.snapshot_create_xml("<domainsnapshot/>")
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  snap = newdom.snapshot_create_xml("<domainsnapshot/>")
 
-expect_too_many_args(snap, "list_all_children", 1, 2)
-expect_invalid_arg_type(snap, "list_all_children", "foo")
-expect_invalid_arg_type(snap, "list_all_children", [])
-expect_invalid_arg_type(snap, "list_all_children", {})
+  expect_too_many_args(snap, "list_all_children", 1, 2)
+  expect_invalid_arg_type(snap, "list_all_children", "foo")
+  expect_invalid_arg_type(snap, "list_all_children", [])
+  expect_invalid_arg_type(snap, "list_all_children", {})
 
-expect_success(snap, "no args", "list_all_children")
+  expect_success(snap, "no args", "list_all_children")
 
-newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+  newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
+  test_sleep 1
+end
 
 # TESTGROUP: snapshot.parent
-newdom = conn.define_domain_xml($new_dom_xml)
-snap = newdom.snapshot_create_xml("<domainsnapshot/>")
-sleep 1
-snap2 = newdom.snapshot_create_xml("<domainsnapshot/>")
-
-expect_too_many_args(snap2, "parent", 1, 2)
-expect_invalid_arg_type(snap2, "parent", "foo")
-expect_invalid_arg_type(snap2, "parent", [])
-expect_invalid_arg_type(snap2, "parent", {})
-
-expect_success(snap2, "no args", "parent")
-expect_success(snap, "no args", "parent")
-
-newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  snap = newdom.snapshot_create_xml("<domainsnapshot/>")
+  test_sleep 1
+  snap2 = newdom.snapshot_create_xml("<domainsnapshot/>")
+
+  expect_too_many_args(snap2, "parent", 1, 2)
+  expect_invalid_arg_type(snap2, "parent", "foo")
+  expect_invalid_arg_type(snap2, "parent", [])
+  expect_invalid_arg_type(snap2, "parent", {})
+
+  expect_success(snap2, "no args", "parent")
+  expect_success(snap, "no args", "parent")
+
+  newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
+  test_sleep 1
+end
 
 # TESTGROUP: snapshot.current?
-newdom = conn.define_domain_xml($new_dom_xml)
-snap = newdom.snapshot_create_xml("<domainsnapshot/>")
+if !test_default_uri?
+  newdom = conn.define_domain_xml($new_dom_xml)
+  snap = newdom.snapshot_create_xml("<domainsnapshot/>")
 
-expect_too_many_args(snap, "current?", 1, 2)
-expect_invalid_arg_type(snap, "current?", "foo")
-expect_invalid_arg_type(snap, "current?", [])
-expect_invalid_arg_type(snap, "current?", {})
+  expect_too_many_args(snap, "current?", 1, 2)
+  expect_invalid_arg_type(snap, "current?", "foo")
+  expect_invalid_arg_type(snap, "current?", [])
+  expect_invalid_arg_type(snap, "current?", {})
 
-expect_success(snap, "no args", "current?")
+  expect_success(snap, "no args", "current?")
 
-newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
-sleep 1
+  newdom.undefine(Libvirt::Domain::UNDEFINE_SNAPSHOTS_METADATA)
+  test_sleep 1
+end
 
 # END TESTS