if ($fi eq "\n") ## WRONG in this case
{
 exit;
}

##</code><code>##

use warnings;
use strict;
use Test::More 'no_plan';

print "Please press enter to quit \n";
my $fi = <STDIN>;
chomp $fi;
  is $fi, "\n",'should fail';
if ( $fi eq "\n" ) {
    exit;
}

##</code><code>##

Please press enter to quit 
not ok 1 - should fail
#   Failed test 'should fail'
#   at textme.pl line 9.
#          got: ''
#     expected: '
# '
1..1
# Looks like you failed 1 test of 1.