#!/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.");