Revert "XS::Typemap: Disable PerlIO related typemap tests"
authorCraig A. Berry <craigberry@mac.com>
Fri, 3 Feb 2012 00:17:02 +0000 (18:17 -0600)
committerCraig A. Berry <craigberry@mac.com>
Fri, 3 Feb 2012 00:17:02 +0000 (18:17 -0600)
This reverts commit 57e770c980de065ed94a4bc87d0b1f930c5ff3d0.

Next commit gets these tests working.

ext/XS-Typemap/Typemap.xs
ext/XS-Typemap/t/Typemap.t

index 563350b..d69a700 100644 (file)
@@ -30,10 +30,8 @@ typedef int intTLONG; /* T_LONG */
 typedef short shortOPQ;   /* T_OPAQUE */
 typedef int intOpq;   /* T_OPAQUEPTR */
 typedef unsigned intUnsigned; /* T_U_INT */
-
-/* Craig reports problems with the PerlIO related tests (VMS?) */
-/* typedef PerlIO inputfh; */ /* T_IN */
-/* typedef PerlIO outputfh; */ /* T_OUT */
+typedef PerlIO inputfh; /* T_IN */
+typedef PerlIO outputfh; /* T_OUT */
 
 /* A structure to test T_OPAQUEPTR and T_PACKED */
 struct t_opaqueptr {
@@ -245,10 +243,8 @@ AV_FIXED *  T_AVREF_REFCOUNT_FIXED
 HV_FIXED *      T_HVREF_REFCOUNT_FIXED
 CV_FIXED *      T_CVREF_REFCOUNT_FIXED
 SVREF_FIXED     T_SVREF_REFCOUNT_FIXED
-
-# Craig reports problems with PerlIO related typemap tests (VMS?)
-#inputfh          T_IN
-#outputfh         T_OUT
+inputfh          T_IN
+outputfh         T_OUT
 
 END_OF_TYPEMAP
 
@@ -915,35 +911,30 @@ T_STDIO_print( stream, string )
 
 ## T_INOUT
 
-## Craig reports issues with PerlIO related typemap tests (VMS?)
-
-## PerlIO *
-## T_INOUT(in)
-##   PerlIO *in;
-##  CODE:
-##   RETVAL = in; /* silly test but better than nothing */
-##  OUTPUT: RETVAL
+PerlIO *
+T_INOUT(in)
+  PerlIO *in;
+ CODE:
+  RETVAL = in; /* silly test but better than nothing */
+ OUTPUT: RETVAL
 
 
 ## T_IN
 
-## Craig reports issues with PerlIO related typemap tests (VMS?)
-
-## inputfh
-## T_IN(in)
-##   inputfh in;
-##  CODE:
-##   RETVAL = in; /* silly test but better than nothing */
-##  OUTPUT: RETVAL
+inputfh
+T_IN(in)
+  inputfh in;
+ CODE:
+  RETVAL = in; /* silly test but better than nothing */
+ OUTPUT: RETVAL
 
 
 ## T_OUT
 
-## Craig reports issues with PerlIO related typemap tests (VMS?)
-## outputfh
-## T_OUT(in)
-##   outputfh in;
-##  CODE:
-##   RETVAL = in; /* silly test but better than nothing */
-##  OUTPUT: RETVAL
+outputfh
+T_OUT(in)
+  outputfh in;
+ CODE:
+  RETVAL = in; /* silly test but better than nothing */
+ OUTPUT: RETVAL
 
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});
+}