#!/usr/bin/perl

# $Id: permissions,v 1.2 1998/09/16 23:54:52 phil Exp $
# 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) ;
