From 7ebd42f91c04e619a3c7ab33f87632425722b8f4 Mon Sep 17 00:00:00 2001
From: Maarten Vanraes <alien@mageia.org>
Date: Fri, 26 Feb 2016 22:23:39 +0100
Subject: IOs: add comparison function

---
 lib/ManaTools/Shared/disk_backend/IOs.pm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/lib/ManaTools/Shared/disk_backend/IOs.pm b/lib/ManaTools/Shared/disk_backend/IOs.pm
index 5a6dfd30..eb562904 100644
--- a/lib/ManaTools/Shared/disk_backend/IOs.pm
+++ b/lib/ManaTools/Shared/disk_backend/IOs.pm
@@ -120,6 +120,36 @@ sub list {
 
 #=============================================================
 
+=head2 is_equal
+
+=head3 INPUT
+
+    $ios: ManaTools::Shared::disk_backend::IOs
+
+=head3 OUTPUT
+
+    bool
+
+=head3 DESCRIPTION
+
+    this method returns true of $self is equal to $ios
+
+=cut
+
+#=============================================================
+sub is_equal {
+    my $self = shift;
+    my $ios = shift;
+
+    return 0 if $self->length() != $ios->length();
+    for my $key (keys %{$self->ios()}) {
+        return 0 if $ios->ios()->{$key} != $self->ios()->{$key};
+    }
+    return 1;
+}
+
+#=============================================================
+
 =head2 append
 
 =head3 INPUT
-- 
cgit v1.2.1