#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 4;

my $mode = (stat $0)[2];

isnt(-d $0,       1,   "This script isn't a directory.");
is(  -O $0,       1,   "This script is owned by real uid.");
isnt($mode & 020, 020, "This script isn't group writable.");
isnt($mode & 002, 002, "This script isn't world writable.");

##</code><code>##

1..4
ok 1 - This script isn't a directory.
ok 2 - This script is owned by real uid.
ok 3 - This script isn't group writable.
ok 4 - This script isn't world writable.

##</code><code>##

isnt((stat $0)[2] & 022, 022, "This script isn't group or world writable.");