[io grant] Test IO::Handle.perl.EVAL roundtrips

Rakudo fix: rakudo/rakudo@a282b8c896

Author: zoffixznet

S32-io/io-handle.t

@@ -3,7 +3,7 @@ use lib <t/spec/packages>;
 use Test;
 use Test::Util;
 
-plan 23;
+plan 24;
 
 my $path = "io-handle-testfile";
 
@@ -188,3 +188,17 @@ subtest '.encoding attribute' => {
         is-deeply  $fh.encoding,           'bin',   'attribute got set (bin)';
     }
 }
+
+subtest '.perl.EVAL roundtrips' => {
+    plan 7;
+
+    my $orig = IO::Handle.new: :path("foo".IO), :!chomp, :nl-in[<I ♥ Perl 6>],
+        :nl-out<foo>, :encoding<ascii>;
+
+    is-deeply IO::Handle.perl.EVAL, IO::Handle, 'type object';
+    given $orig.perl.EVAL -> $evaled {
+        is-deeply $evaled, $orig, 'instance';
+        is-deeply $evaled."$_"(), $orig."$_"(), $_
+            for <path  chomp  nl-in  nl-out  encoding>;
+    }
+}