[Pkg-libvirt-commits] [SCM] Libguestfs Debian packaging branch, experimental, updated. debian/1%1.21.40-1

[Richard W.M. Jones]

The following commit has been merged in the experimental branch:
commit d02af3a3110dac69ae8a70572a976f8464ce5823
Author: Richard W.M. Jones <rjones at redhat.com>
Date:   Mon Apr 29 16:08:47 2013 +0100

    perl: Almost standardize the Perl tests.
    
    This needs more work, but brings them mostly up to the same
    standard form as the OCaml tests and the test documentation.

diff --git a/perl/t/025-create-flags.t b/perl/t/030-create-flags.t
similarity index 100%
rename from perl/t/025-create-flags.t
rename to perl/t/030-create-flags.t
diff --git a/perl/t/027-create-multiple.t b/perl/t/040-create-multiple.t
similarity index 100%
rename from perl/t/027-create-multiple.t
rename to perl/t/040-create-multiple.t
diff --git a/perl/t/030-config.t b/perl/t/060-handle-properties.t
similarity index 100%
rename from perl/t/030-config.t
rename to perl/t/060-handle-properties.t
diff --git a/perl/t/060-readdir.t b/perl/t/060-readdir.t
deleted file mode 100644
index 6b2ab13..0000000
--- a/perl/t/060-readdir.t
+++ /dev/null
@@ -1,61 +0,0 @@
-# libguestfs Perl bindings -*- perl -*-
-# Copyright (C) 2009 Red Hat Inc.
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
-use strict;
-use warnings;
-use Test::More tests => 12;
-
-use Sys::Guestfs;
-
-my $g = Sys::Guestfs->new ();
-ok ($g);
-open FILE, ">test.img";
-truncate FILE, 10*1024*1024;
-close FILE;
-ok (1);
-
-$g->add_drive ("test.img");
-ok (1);
-
-$g->launch ();
-ok (1);
-
-$g->part_disk ("/dev/sda", "mbr");
-ok (1);
-$g->mkfs ("ext2", "/dev/sda1");
-ok (1);
-$g->mount ("/dev/sda1", "/");
-ok (1);
-$g->mkdir ("/p");
-ok (1);
-$g->touch ("/q");
-ok (1);
-
-my @dirs = $g->readdir ("/");
- at dirs = sort { $a->{name} cmp $b->{name} } @dirs;
-foreach (@dirs) {
-  print "$_->{name} $_->{ino} $_->{ftyp}\n";
-}
-ok (1);
-
-$g->shutdown ();
-ok (1);
-
-undef $g;
-ok (1);
-
-unlink ("test.img");
diff --git a/perl/t/050-lvcreate.t b/perl/t/100-launch.t
similarity index 69%
rename from perl/t/050-lvcreate.t
rename to perl/t/100-launch.t
index 465a479..853c912 100644
--- a/perl/t/050-lvcreate.t
+++ b/perl/t/100-launch.t
@@ -1,5 +1,5 @@
 # libguestfs Perl bindings -*- perl -*-
-# Copyright (C) 2009 Red Hat Inc.
+# Copyright (C) 2009-2013 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -17,7 +17,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 11;
+use Test::More tests => 26;
 
 use Sys::Guestfs;
 
@@ -49,6 +49,29 @@ if (@lvs != 2 || $lvs[0] ne "/dev/VG/LV1" || $lvs[1] ne "/dev/VG/LV2") {
 }
 ok (1);
 
+$g->mkfs ("ext2", "/dev/VG/LV1");
+ok (1);
+$g->mount ("/dev/VG/LV1", "/");
+ok (1);
+$g->mkdir ("/p");
+ok (1);
+$g->touch ("/q");
+ok (1);
+
+my @dirs = $g->readdir ("/");
+ at dirs = sort { $a->{name} cmp $b->{name} } @dirs;
+ok (@dirs == 5);
+ok ($dirs[0]{name} eq ".");
+ok ($dirs[0]{ftyp} eq "d");
+ok ($dirs[1]{name} eq "..");
+ok ($dirs[1]{ftyp} eq "d");
+ok ($dirs[2]{name} eq "lost+found");
+ok ($dirs[2]{ftyp} eq "d");
+ok ($dirs[3]{name} eq "p");
+ok ($dirs[3]{ftyp} eq "d");
+ok ($dirs[4]{name} eq "q");
+ok ($dirs[4]{ftyp} eq "r");
+
 $g->shutdown ();
 ok (1);
 
diff --git a/perl/t/400-events.t b/perl/t/410-close-event.t
similarity index 100%
copy from perl/t/400-events.t
copy to perl/t/410-close-event.t
diff --git a/perl/t/400-events.t b/perl/t/420-log-messages.t
similarity index 100%
rename from perl/t/400-events.t
rename to perl/t/420-log-messages.t
diff --git a/perl/t/005-pod.t b/perl/t/910-pod.t
similarity index 100%
rename from perl/t/005-pod.t
rename to perl/t/910-pod.t
diff --git a/perl/t/006-pod-coverage.t b/perl/t/920-pod-coverage.t
similarity index 100%
rename from perl/t/006-pod-coverage.t
rename to perl/t/920-pod-coverage.t

-- 
Libguestfs Debian packaging