mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

perl: Clean up and update the tests.

Browse Source
This commit is contained in:
Richard W.M. Jones
2012-11-17 18:14:05 +00:00
parent 3d0e937b84
commit 4a2e8e8957
3 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
perl/t/050-lvcreate.t
View File

@@ -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;

2
perl/t/060-readdir.t
View File

@@ -52,7 +52,7 @@ foreach (@dirs) {
}
ok (1);
$g->sync ();
$g->shutdown ();
ok (1);
undef $g;

1
perl/t/400-events.t
View File

@@ -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.