diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2011-10-27 17:40:31 +0100 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2011-10-28 14:04:47 +0100 |
commit | 365885dab2ae6dcdf0b2c45d0adeb803ade03f63 (patch) | |
tree | 042e69033c7d81c6153fe671b5b2c1b1cacbd9fb /perl | |
parent | 477c437ba0e2108413fe2b54a830b36c251242f3 (diff) | |
download | libguestfs-365885dab2ae6dcdf0b2c45d0adeb803ade03f63.tar.gz libguestfs-365885dab2ae6dcdf0b2c45d0adeb803ade03f63.tar.xz libguestfs-365885dab2ae6dcdf0b2c45d0adeb803ade03f63.zip |
perl: Add %guestfs_introspection hash with introspection information.
Because this is a useful introspection API, it is a candidate for
being backported into older stable branches.
Diffstat (limited to 'perl')
-rw-r--r-- | perl/t/900-introspection.t | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/perl/t/900-introspection.t b/perl/t/900-introspection.t new file mode 100644 index 00000000..6defc9be --- /dev/null +++ b/perl/t/900-introspection.t @@ -0,0 +1,42 @@ +# libguestfs Perl bindings -*- perl -*- +# Copyright (C) 2011 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., 675 Mass Ave, Cambridge, MA 02139, USA. + +# Test %guestfs_introspection. + +use strict; +use warnings; +use Test::More tests => 10; + +use Errno; + +use Sys::Guestfs; + +my %add_drive = %{$Sys::Guestfs::guestfs_introspection{add_drive}}; +ok(1); + +is ($add_drive{ret}, "void"); +is ($add_drive{args}[0][0], "filename"); +is ($add_drive{args}[0][1], "string"); +is ($add_drive{args}[0][2], 0); + +my %add_drive_opts = %{$Sys::Guestfs::guestfs_introspection{add_drive_opts}}; +ok(1); + +ok (exists $add_drive_opts{optargs}); +ok (exists $add_drive_opts{optargs}->{readonly}); +is ($add_drive_opts{optargs}->{readonly}[0], "readonly"); +is ($add_drive_opts{optargs}->{readonly}[1], "bool"); |