diff --git a/fix-check-pool.patch b/fix-check-pool.patch
new file mode 100644
index 0000000..647f2bc
--- /dev/null
+++ b/fix-check-pool.patch
@@ -0,0 +1,12 @@
+diff -uNr a/t/400-storage-pools.t b/t/400-storage-pools.t
+--- a/t/400-storage-pools.t	2018-09-04 21:03:25.000000000 +0800
++++ b/t/400-storage-pools.t	2020-05-21 18:25:10.038626105 +0800
+@@ -60,7 +60,7 @@
+   <name>wibble</name>
+   <uuid>12341234-5678-5678-5678-123412341234</uuid>
+   <target>
+-    <path>/default-pool</path>
++    <path>/wibble</path>
+   </target>
+ </pool>";
+ 
diff --git a/perl-Sys-Virt.spec b/perl-Sys-Virt.spec
index 0aa78ae..e5d8124 100644
--- a/perl-Sys-Virt.spec
+++ b/perl-Sys-Virt.spec
@@ -1,6 +1,6 @@
 Name:           perl-Sys-Virt
 Version:        4.7.0
-Release:        2
+Release:        3
 Summary:        Represent and manage a libvirt hypervisor connection
 License:        GPLv2+ or Artistic
 URL:            https://metacpan.org/release/Sys-Virt
@@ -12,6 +12,7 @@ BuildRequires:  perl(overload) perl(strict) perl(warnings) perl(XSLoader) perl(b
 BuildRequires:  perl(Test::More) perl(Time::HiRes) perl(XML::XPath) perl(XML::XPath::XMLParser) perl(Test::CPAN::Changes)
 BuildRequires:  perl(Test::Pod) >= 1.00 perl(Test::Pod::Coverage) >= 1.00
 Requires:       perl(:MODULE_COMPAT_%(eval "$(perl -V:version)"; echo $version))
+Patch0000:      fix-check-pool.patch
 
 %description
 The Sys::Virt module Allows consistent API management mechanisms
@@ -48,5 +49,8 @@ The help package contains manual pages and other related files for perl-Sys-Virt
 %{_mandir}/man3/*
 
 %changelog
+* Thu May 21 2020 wutao<wutao61@huawei.com> - 4.7.0-3
+- fix check failed problem
+
 * Thu Nov 21 2019 wangye<wangye54@huawei.com> - 4.7.0-2
 - Package init