Tests added for vm_disk_snapshot, vm_shutdown and image_pool requests

tests/opennebula/requests/compute/vm_disk_snapshot_test.rb

@@ -0,0 +1,54 @@
+Shindo.tests("Fog::Compute[:opennebula] | vm_create and destroy request", 'opennebula') do
+
+  compute = Fog::Compute[:opennebula]
+
+  name_base = Time.now.to_i
+  f = compute.flavors.get_by_name("fogtest1")
+  tests("Get 'fogtest' flavor/template") do
+    test("Got template with name 'fogtest'") {f.kind_of? Array}
+    raise ArgumentError, "Could not get a template with the name 'fogtest'! This is required for live tests!" unless f
+  end
+
+  f = f.first
+  newvm = compute.servers.new
+  newvm.flavor = f
+  newvm.name = 'fogtest-'+name_base.to_s
+  vm = newvm.save
+
+  tests("Start VM") do
+    test("response should be a kind of Hash") { vm.kind_of?  Fog::Compute::OpenNebula::Server}
+    test("id should be a one-id (Fixnum)") { vm.id.is_a?  Fixnum}
+    puts "\twaiting for VM ID #{vm.id} to go into RUNNING state"
+    vm.wait_for { (vm.state == 'RUNNING') } 
+    test("VM should be in RUNNING state") { vm.state == 'RUNNING' }
+    puts "\twaiting for 30 seconds to let VM finish booting"
+    sleep(30)
+  end
+
+  tests("Create snapshot of the disk and shutdown VM") do
+    puts "\tcreating snapshot"
+    img_id = compute.vm_disk_snapshot(vm.id, 0, 'fogtest-'+name_base.to_s)
+    test("Image ID should be a kind of Fixnum") { img_id.is_a? Fixnum }
+    (1..5).each do # wait maximum 5 seconds
+      sleep(1) # The delay is needed for some reason between issueing disk-snapshot and shutdown
+      images = compute.image_pool( { :mine => true, :id => img_id } )
+      test("Got Image with ID=#{img_id}") { images.kind_of? Array }
+      if images[0].state == 4 # LOCKED, it is normal we must shutdown VM for image to go into READY state
+        break
+      end
+    end
+    puts "\tNew Image has been successfully created, Image ID = #{img_id}."
+    puts "\tShutting down VM. Waiting for up to 50 seconds for Image to become READY."
+    compute.servers.shutdown(vm.id)
+    image_state = 4
+    (1..25).each do
+      sleep(2)
+      images = compute.image_pool( { :mine => true, :id => img_id } )
+      image_state = images[0].state
+      if image_state == 1
+        break
+      end
+    end
+    test("New image with ID=#{img_id} should be in state READY.") { image_state == 1 }
+  end
+end