; use strict
; use warnings
; use Data::Dumper
; use Test::More tests => 1
                   
; use IO::Util


; $My::Test = 'A'


; sub IO::Util::WriteHandle::DESTROY
   { $My::Test .= 'B'
   }
   

; { my $out = IO::Util::capture { print 'test' } \*STDOUT
  }

; $My::Test .= 'C'

; is( $My::Test
    , 'ABC'
    , 'Memory leaking test'
    )