Revert "XS::Typemap: Disable PerlIO related typemap tests"
[perl.git] / ext / XS-Typemap / t / Typemap.t
index bb98f66..2baa1cb 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     }
 }
 
-use Test::More tests => 108;
+use Test::More tests => 114;
 
 use strict;
 use warnings;
@@ -356,44 +356,41 @@ if (defined $fh) {
 }
 
 # T_INOUT
-# Craig reported issues with PerlIO related typemap tests (VMS?)
-# note("T_INOUT");
-# SCOPE: {
-#   my $buf = '';
-#   local $| = 1;
-#   open my $fh, "+<", \$buf or die $!;
-#   my $str = "Fooo!\n";
-#   print $fh $str;
-#   my $fh2 = T_INOUT($fh);
-#   seek($fh2, 0, 0);
-#   is(readline($fh2), $str);
-#   ok(print $fh2 "foo\n");
-# }
+note("T_INOUT");
+SCOPE: {
+  my $buf = '';
+  local $| = 1;
+  open my $fh, "+<", \$buf or die $!;
+  my $str = "Fooo!\n";
+  print $fh $str;
+  my $fh2 = T_INOUT($fh);
+  seek($fh2, 0, 0);
+  is(readline($fh2), $str);
+  ok(print $fh2 "foo\n");
+}
 
 # T_IN
-# Craig reported issues with PerlIO related typemap tests (VMS?)
-# note("T_IN");
-# SCOPE: {
-#   my $buf = "Hello!\n";
-#   local $| = 1;
-#   open my $fh, "<", \$buf or die $!;
-#   my $fh2 = T_IN($fh);
-#   is(readline($fh2), $buf);
-#   local $SIG{__WARN__} = sub {die};
-#   ok(not(eval {print $fh2 "foo\n"; 1}));
-# }
+note("T_IN");
+SCOPE: {
+  my $buf = "Hello!\n";
+  local $| = 1;
+  open my $fh, "<", \$buf or die $!;
+  my $fh2 = T_IN($fh);
+  is(readline($fh2), $buf);
+  local $SIG{__WARN__} = sub {die};
+  ok(not(eval {print $fh2 "foo\n"; 1}));
+}
 
 # T_OUT
-# Craig reported issues with PerlIO related typemap tests (VMS?)
-# note("T_OUT");
-# SCOPE: {
-#   my $buf = '';
-#   local $| = 1;
-#   open my $fh, "+<", \$buf or die $!;
-#   my $str = "Fooo!\n";
-#   print $fh $str;
-#   my $fh2 = T_OUT($fh);
-#   seek($fh2, 0, 0);
-#   is(readline($fh2), $str);
-#   ok(eval {print $fh2 "foo\n"; 1});
-# }
+note("T_OUT");
+SCOPE: {
+  my $buf = '';
+  local $| = 1;
+  open my $fh, "+<", \$buf or die $!;
+  my $str = "Fooo!\n";
+  print $fh $str;
+  my $fh2 = T_OUT($fh);
+  seek($fh2, 0, 0);
+  is(readline($fh2), $str);
+  ok(eval {print $fh2 "foo\n"; 1});
+}