#!/usr/local/bin/perl
use strict;
use warnings;
use File::Copy;
use Carp;
use Test::More (qw|no_plan|);

my $test = "/Users/jimk/present";
my $hide = $test . '.hidden';
my $status;

if (-f $test) {
    $status = 1;
    move($test, $hide);
    ok(! -f $test, "original file no longer present");
    ok(  -f $hide, "hidden file present");
} else {
    open FH, ">$test";
    print FH "1\n";
    close FH;
    ok(-f $test, "file created where it didn't previously exist");
    ok(1, "test not relevant");
}

my $trick = 0;
if (! $trick) {
    croak "Trick is false";
}

END {
    if ($status) {
        move($hide, $test);
        ok(! -f $hide, "hidden file no longer present");
        ok(  -f $test, "original file once again present");
    } else {
        unlink $test;
        ok(! -f $test, "specially created file has been removed");
        ok(1, "test not relevant");
    }
}

##</code><code>##


#!/usr/local/bin/perl
use strict;
use warnings;
use File::Copy;
use Carp;
use Test::More 
tests => 7;
# (qw|no_plan|);

my $test = "/Users/jimk/present";
my $hide = $test . '.hidden';
my $status;
my $trick = 0;

if (-f $test) {
    $status = 1;
    move($test, $hide);
    ok(! -f $test, "original file no longer present");
    ok(  -f $hide, "hidden file present");
} else {
    open FH, ">$test";
    print FH "1\n";
    close FH;
    ok(-f $test, "file created where it didn't previously exist");
    ok(1, "test not relevant");
}

croak "Trick is false" unless $trick;

ok('alpha', "alpha reached");
ok('beta', "beta reached");
ok('gamma', "gamma reached");

# croak "Trick is false" unless $trick;

END {
    if ($status) {
        move($hide, $test);
        ok(! -f $hide, "hidden file no longer present");
        ok(  -f $test, "original file once again present");
    } else {
        unlink $test;
        ok(! -f $test, "specially created file has been removed");
        ok(1, "test not relevant");
    }
}

##</code><code>##

1..7
ok 1 - original file no longer present
ok 2 - hidden file present
Trick is false at end.pl line 28
ok 3 - hidden file no longer present
ok 4 - original file once again present
# Looks like you planned 7 tests but only ran 4.
# Looks like your test died just after 4.