summaryrefslogtreecommitdiffstats
path: root/perl/t
diff options
context:
space:
mode:
authorRichard Jones <rjones@trick.home.annexia.org>2009-09-21 11:52:53 +0100
committerRichard Jones <rjones@trick.home.annexia.org>2009-09-21 12:01:51 +0100
commit8869adf1e811d894088dbb0f371edc23299005c8 (patch)
tree6c0229f90c81f03f6e989cdd57e20b114a437d41 /perl/t
parent62b322872543c2ec069ac4fb0103ab758f587cef (diff)
downloadlibguestfs-8869adf1e811d894088dbb0f371edc23299005c8.tar.gz
libguestfs-8869adf1e811d894088dbb0f371edc23299005c8.tar.xz
libguestfs-8869adf1e811d894088dbb0f371edc23299005c8.zip
Remove guestfs_wait_ready (turn it into a no-op).
This commit changes guestfs_launch so that it both launches the appliance and waits until it is ready (ie. the daemon communicates back to us). Since we removed the pretence that we could implement a low-level asynchronous API, the need to call launch() followed by wait_ready() has looked a bit silly. Now guestfs_wait_ready() is basically a no-op. It is left in the API for backwards compatibility. Any calls to guestfs_wait_ready() can be removed from client code.
Diffstat (limited to 'perl/t')
-rw-r--r--perl/t/050-lvcreate.t4
-rw-r--r--perl/t/060-readdir.t4
-rw-r--r--perl/t/510-lib-file-arch.t4
3 files changed, 3 insertions, 9 deletions
diff --git a/perl/t/050-lvcreate.t b/perl/t/050-lvcreate.t
index 1b3e313c..a8f3e7bf 100644
--- a/perl/t/050-lvcreate.t
+++ b/perl/t/050-lvcreate.t
@@ -17,7 +17,7 @@
use strict;
use warnings;
-use Test::More tests => 12;
+use Test::More tests => 11;
use Sys::Guestfs;
@@ -33,8 +33,6 @@ ok (1);
$h->launch ();
ok (1);
-$h->wait_ready ();
-ok (1);
$h->pvcreate ("/dev/sda");
ok (1);
diff --git a/perl/t/060-readdir.t b/perl/t/060-readdir.t
index 17dfd24b..898b44f8 100644
--- a/perl/t/060-readdir.t
+++ b/perl/t/060-readdir.t
@@ -17,7 +17,7 @@
use strict;
use warnings;
-use Test::More tests => 13;
+use Test::More tests => 12;
use Sys::Guestfs;
@@ -33,8 +33,6 @@ ok (1);
$h->launch ();
ok (1);
-$h->wait_ready ();
-ok (1);
$h->sfdisk ("/dev/sda", 0, 0, 0, [","]);
ok (1);
diff --git a/perl/t/510-lib-file-arch.t b/perl/t/510-lib-file-arch.t
index 5c70449b..dfe32bc0 100644
--- a/perl/t/510-lib-file-arch.t
+++ b/perl/t/510-lib-file-arch.t
@@ -22,7 +22,7 @@ BEGIN {
use Test::More;
eval "use Locale::TextDomain";;
if (exists $INC{"Locale/TextDomain.pm"}) {
- plan tests => 17;
+ plan tests => 16;
} else {
plan skip_all => "no perl-libintl module";
exit 0;
@@ -40,8 +40,6 @@ ok (1);
$h->launch ();
ok (1);
-$h->wait_ready ();
-ok (1);
$h->mount_ro ("/dev/sda", "/");
ok (1);