From 99e9ead404368f3439d60fd2664cd807d92e4d61 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Sat, 17 Nov 2012 18:14:05 +0000
Subject: perl: Clean up and update the tests. (cherry picked from commit
 4a2e8e89577ad4031aba1b2e5afb65ca58c2c39d) (cherry picked from commit
 f3aa9f3868b130e12eaf76c097b30e4be63e0e58)

---
 perl/t/050-lvcreate.t | 4 ++--
 perl/t/060-readdir.t  | 2 +-
 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.
-- 
cgit