diff options
Diffstat (limited to 't/lib/searchdict.t')
| -rwxr-xr-x | t/lib/searchdict.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/lib/searchdict.t b/t/lib/searchdict.t index 69329d65c1..447c425b27 100755 --- a/t/lib/searchdict.t +++ b/t/lib/searchdict.t @@ -41,7 +41,7 @@ EOT use Search::Dict; open(DICT, "+>dict-$$") or die "Can't create dict-$$: $!"; -unlink "dict-$$"; +binmode DICT; # To make length expected one. print DICT $DICT; my $pos = look *DICT, "abash"; @@ -60,3 +60,6 @@ chomp($word = <DICT>); print "not " if $pos < 0 || $word ne "Aarhus"; print "ok 3\n"; + +close DICT or die "cannot close"; +unlink "dict-$$"; |