head	1.2;
access;
symbols;
locks; strict;
comment	@# @;


1.2
date	98.09.16.23.54.52;	author phil;	state Exp;
branches;
next	1.1;

1.1
date	98.09.16.23.40.17;	author phil;	state Exp;
branches;
next	;


desc
@@


1.2
log
@*** empty log message ***
@
text
@#!/usr/bin/perl

# $Id: permissions,v 1.1 1998/09/16 23:40:17 phil Exp phil $
# Copyright (c) 1998 Philip Hands <phil@@hands.com>
# This program is distributed under the terms of the GPL.

use Debian::DebianTest ;

sub test_tmp {
  my ($dev,$inode,$mode,@@therest) = stat("/tmp") ;
  
  printf "/tmp's mode = 0%o\n", $mode ;

  return (041777 == $mode)  ;
}

runtest("/tmp", \&test_tmp) ;
@


1.1
log
@Initial revision
@
text
@d3 3
a5 3
# $Id:$
# Copyright 1998 (c) Philip Hands <phil@@hands.com>
# This program is distributed under the GPL.
@
