From c921e8b35c0a09ac41594d0a7f51efac76702709 Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <jeneric@users.noreply.github.com>
Date: Thu, 22 Mar 2018 23:19:12 -0400
Subject: [PATCH] Mark problematic update() tests as todo_skip

---
 xt/lib/SNMP/Info/Test.pm | 31 +++++++++++++++++--------------
 1 file changed, 17 insertions(+), 14 deletions(-)

diff --git a/xt/lib/SNMP/Info/Test.pm b/xt/lib/SNMP/Info/Test.pm
index 43f87726..4df66c6e 100644
--- a/xt/lib/SNMP/Info/Test.pm
+++ b/xt/lib/SNMP/Info/Test.pm
@@ -96,25 +96,28 @@ sub funcs : Tests(2) {
 # update() needs to be reworked to discard all args except community
 # or context as described in documentation
 
-# TODO - Commented out as causing problems during CI build
 sub update : Tests(4) {
   my $test = shift;
 
   # Starting community
   is($test->{info}{sess}{Community}, 'public', 'original community');
 
-  # Change community
-  my %update_args = ('Community' => 'new_community',);
-  $test->{info}->update(%update_args);
-  is($test->{info}{sess}{Community}, 'new_community', 'community changed');
+TODO: {
+    todo_skip "CI issues with update() tests", 3 if 1;
 
-  # Starting context
-  is($test->{info}{sess}{Context}, '', 'original context');
+    # Change community
+    my %update_args = ('Community' => 'new_community',);
+    $test->{info}->update(%update_args);
+    is($test->{info}{sess}{Community}, 'new_community', 'community changed');
 
-  # Change context
-  %update_args = ('Context' => 'new_context',);
-  $test->{info}->update(%update_args);
-  is($test->{info}->{sess}->{Context}, 'new_context', 'context changed');
+    # Starting context
+    is($test->{info}{sess}{Context}, '', 'original context');
+
+    # Change context
+    %update_args = ('Context' => 'new_context',);
+    $test->{info}->update(%update_args);
+    is($test->{info}->{sess}->{Context}, 'new_context', 'context changed');
+  }
 }
 
 sub cache_and_clear_cache : Tests(9) {
@@ -748,15 +751,15 @@ sub init : Tests(4) {
         qr/^(\.\d+)+$/, "$qual_name translates to a OID");
     }
   };
-  
+
   # Get SNMP::Version so we can restore
   my $netsnmp_ver = $SNMP::VERSION;
   local $SNMP::VERSION = '5.0.1';
-  
+
   warnings_like { $test->{info}->init() }
   [{carped => qr/Net-SNMP\s5.0.1\sseems\sto\sbe\srather\sbuggy/x}],
     'Use of bad Net-SNMP gives warning';
-  
+
   $SNMP::VERSION = $netsnmp_ver;
 }