1 files changed, 0 insertions, 53 deletions
diff --git a/lib/Tie/File/t/06_fixrec.t b/lib/Tie/File/t/06_fixrec.t
deleted file mode 100644
index bf24be1300..0000000000
--- a/lib/Tie/File/t/06_fixrec.t
+++ /dev/null
@@ -1,53 +0,0 @@
-#!/usr/bin/perl
-
-use POSIX 'SEEK_SET';
-my $file = "tf$$.txt";
-$: = Tie::File::_default_recsep();
-
-print "1..5\n";
-
-my $N = 1;
-use Tie::File;
-print "ok $N\n"; $N++;
-
-my $o = tie @a, 'Tie::File', $file, autodefer => 0;
-print $o ? "ok $N\n" : "not ok $N\n";
-$N++;
-
-$a[0] = 'rec0';
-check_contents("rec0$:");
-$a[1] = "rec1$:";
-check_contents("rec0$:rec1$:");
-$a[2] = "rec2$:$:";             # should we detect this?
-check_contents("rec0$:rec1$:rec2$:$:");
-
-sub check_contents {
-  my $x = shift;
-  local *FH = $o->{fh};
-  seek FH, 0, SEEK_SET;
-  my $a;
-  { local $/; $a = <FH> }
-  $a = "" unless defined $a;
-  if ($a eq $x) {
-    print "ok $N\n";
-  } else {
-    my $msg = "not ok $N # expected <$x>, got <$a>";
-    ctrlfix($msg);
-    print "$msg\n";
-  }
-  $N++;
-}
-
-sub ctrlfix {
-  for (@_) {
-    s/\n/\\n/g;
-    s/\r/\\r/g;
-  }
-}
-
-END {
-  undef $o;
-  untie @a;
-  1 while unlink $file;
-}
-