[Xen-devel] [PATCH V3 1/2] TestSupport.pm: introduce host_get_free_memory

[Wei Liu <wei.liu2@xxxxxxxxxx>]

... which returns the size of free memory in MB.

Signed-off-by: Wei Liu <wei.liu2@xxxxxxxxxx>
---
 Osstest/TestSupport.pm |   11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index b11eb17..49bfa0c 100644
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -79,6 +79,7 @@ BEGIN {
                       remote_perl_script_open remote_perl_script_done
                       host_reboot target_reboot target_reboot_hard            
                       target_choose_vg target_umount_lv target_await_down
+                      host_get_free_memory
 
                       target_ping_check_down target_ping_check_up
                       target_kernkind_check target_kernkind_console_inittab
@@ -915,6 +916,16 @@ sub host_reboot ($) {
     });
 }
 
+sub host_get_free_memory($$) {
+    my ($ho,$toolstack) = @_;
+    # The line is as followed:
+    # free_memory       :   XXXX
+    my $info = target_cmd_output_root($ho, "$toolstack info", 10);
+    my @matched = $info =~ /^free_memory\s*:\s*(\d+)\s*$/m;
+    @matched or die "fail to get host free memory";
+    return $matched[0];
+}
+
 sub target_reboot ($) {
     my ($ho) = @_;
     target_cmd_root($ho, "init 6");
-- 
1.7.10.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel