diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2012-11-17 18:14:05 +0000 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2012-11-22 13:08:38 +0000 |
| commit | 99e9ead404368f3439d60fd2664cd807d92e4d61 (patch) | |
| tree | 2085f7fac9be0b6649f8ccae64413f67db39c81c | |
| parent | 4e687f687ab63a831be6ccbeb8e3de3083f5b177 (diff) | |
| download | libguestfs-99e9ead404368f3439d60fd2664cd807d92e4d61.tar.gz libguestfs-99e9ead404368f3439d60fd2664cd807d92e4d61.tar.xz libguestfs-99e9ead404368f3439d60fd2664cd807d92e4d61.zip | |
perl: Clean up and update the tests.
(cherry picked from commit 4a2e8e89577ad4031aba1b2e5afb65ca58c2c39d)
(cherry picked from commit f3aa9f3868b130e12eaf76c097b30e4be63e0e58)
| -rw-r--r-- | perl/t/050-lvcreate.t | 4 | ||||
| -rw-r--r-- | perl/t/060-readdir.t | 2 | ||||
| -rw-r--r-- | perl/t/400-events.t | 1 |
3 files changed, 3 insertions, 4 deletions
diff --git a/perl/t/050-lvcreate.t b/perl/t/050-lvcreate.t index 042d60ac..465a479d 100644 --- a/perl/t/050-lvcreate.t +++ b/perl/t/050-lvcreate.t @@ -45,11 +45,11 @@ ok (1); my @lvs = $g->lvs (); if (@lvs != 2 || $lvs[0] ne "/dev/VG/LV1" || $lvs[1] ne "/dev/VG/LV2") { - die "h->lvs() returned incorrect result" + die "g->lvs() returned incorrect result" } ok (1); -$g->sync (); +$g->shutdown (); ok (1); undef $g; diff --git a/perl/t/060-readdir.t b/perl/t/060-readdir.t index 74d6ac4d..73db934b 100644 --- a/perl/t/060-readdir.t +++ b/perl/t/060-readdir.t @@ -52,7 +52,7 @@ foreach (@dirs) { } ok (1); -$g->sync (); +$g->shutdown (); ok (1); undef $g; diff --git a/perl/t/400-events.t b/perl/t/400-events.t index 40831a55..bad687f8 100644 --- a/perl/t/400-events.t +++ b/perl/t/400-events.t @@ -63,7 +63,6 @@ ok (1); # Do some stuff. $g->add_drive_ro ("/dev/null"); -$g->set_autosync (1); ok (1); # Close the handle. The close callback should be invoked. |