diff options
author | Richard Jones <rjones@redhat.com> | 2009-04-08 15:02:39 +0100 |
---|---|---|
committer | Richard Jones <rjones@redhat.com> | 2009-04-08 15:02:39 +0100 |
commit | 9908e03e922b670437bcd89b6873f9ebc914567e (patch) | |
tree | 30d8b8adfb5cfbd864f7e91cf8268a29344366d0 /perl/t | |
parent | 00e309d3608661eaa8c9cc69ba5bf175c612698d (diff) | |
download | libguestfs-9908e03e922b670437bcd89b6873f9ebc914567e.tar.gz libguestfs-9908e03e922b670437bcd89b6873f9ebc914567e.tar.xz libguestfs-9908e03e922b670437bcd89b6873f9ebc914567e.zip |
Fixed Perl bindings, they now work properly.
Diffstat (limited to 'perl/t')
-rw-r--r-- | perl/t/005-pod.t | 24 | ||||
-rw-r--r-- | perl/t/006-pod-coverage.t | 24 | ||||
-rw-r--r-- | perl/t/010-load.t | 29 |
3 files changed, 77 insertions, 0 deletions
diff --git a/perl/t/005-pod.t b/perl/t/005-pod.t new file mode 100644 index 00000000..54025f12 --- /dev/null +++ b/perl/t/005-pod.t @@ -0,0 +1,24 @@ +# 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., 675 Mass Ave, Cambridge, MA 02139, USA. + +use Test::More; +use strict; +use warnings; + +eval "use Test::Pod 1.00"; +plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; +all_pod_files_ok (); diff --git a/perl/t/006-pod-coverage.t b/perl/t/006-pod-coverage.t new file mode 100644 index 00000000..fd1c4058 --- /dev/null +++ b/perl/t/006-pod-coverage.t @@ -0,0 +1,24 @@ +# 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., 675 Mass Ave, Cambridge, MA 02139, USA. + +use Test::More; +use strict; +use warnings; + +eval "use Test::Pod::Coverage 1.00"; +plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD" if $@; +all_pod_coverage_ok (); diff --git a/perl/t/010-load.t b/perl/t/010-load.t new file mode 100644 index 00000000..4aeffb7f --- /dev/null +++ b/perl/t/010-load.t @@ -0,0 +1,29 @@ +# 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., 675 Mass Ave, Cambridge, MA 02139, USA. + +use strict; +use warnings; +use Test::More; + +plan tests => 1; + +BEGIN { + use_ok ("Sys::Guestfs") or die; +} + +my $h = Sys::Guestfs::create (); +ok ($h); |