TestSupport: introduce guest_var_boolean

Signed-off-by: Wei Liu <wei.liu2@citrix.com>
Acked-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index 1f3bab24b5963f0fb2ff05821500902f19f11f00..853631ce46092b8a6ad9491ce933d518f823bb01 100644 (file)
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -90,7 +90,7 @@ BEGIN {
                       target_kernkind_check target_kernkind_console_inittab
                       target_var target_var_prefix
                       selectguest prepareguest more_prepareguest_hvm
-                      guest_var guest_var_commalist
+                      guest_var guest_var_commalist guest_var_boolean
                       prepareguest_part_lvmdisk prepareguest_part_xencfg
                       guest_umount_lv guest_await guest_await_dhcp_tcp
                       guest_checkrunning guest_check_ip guest_find_ether
@@ -1505,6 +1505,11 @@ sub guest_var ($$$) {
     return $default;
 }
 
+sub guest_var_boolean ($$) {
+    my ($gho, $runvartail) = @_;
+    return guest_var($gho, $runvartail, 'false') =~ m/true/;
+}
+
 sub guest_var_commalist ($$) {
     my ($gho,$runvartail) = @_;
     return split /\,/, guest_var($gho,$runvartail,'');