X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/42ad0bbf7d53e4a30786360017b759e2eb194082..7b7dcf5ac94bed0f662436876fc7ea3297cbf179:/t/lib/cygwin.t

diff --git a/t/lib/cygwin.t b/t/lib/cygwin.t
index 00cd05f..d92031d 100644
--- a/t/lib/cygwin.t
+++ b/t/lib/cygwin.t
@@ -9,7 +9,7 @@ BEGIN {
     }
 }
 
-use Test::More tests => 15;
+use Test::More tests => 14;
 
 is(Cygwin::winpid_to_pid(Cygwin::pid_to_winpid($$)), $$,
    "perl pid translates to itself");
@@ -46,7 +46,6 @@ my $mount = join '', `/usr/bin/mount`;
 $mount =~ m|on /usr/bin type .+ \((\w+mode)\)|m;
 my $binmode = $1 eq 'binmode';
 is(Cygwin::is_binmount("/"),  $binmode ? 1 : '', "check / for binmount");
-is(Cygwin::is_textmount("/"), $binmode ? '' : 1, "check / for textmount");
 
 my $rootmnt = Cygwin::mount_flags("/");
 ok($binmode ? ($rootmnt =~ /,binmode/) : ($rootmnt =~ /,textmode/), "check / mount_flags");