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


1.4
date	99.11.13.17.44.32;	author phil;	state Exp;
branches;
next	1.3;

1.3
date	99.11.13.17.08.35;	author phil;	state Exp;
branches;
next	1.2;

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.4
log
@*** empty log message ***
@
text
@#!/usr/bin/perl

# $Id: test-permissions,v 1.3 1999/11/13 17:08:35 phil Exp phil $
# Copyright (c) 1998 Philip Hands <phil@@hands.com>
# This program is distributed under the terms of the GPL.

use Debian::DebianTest ;

runtest("/tmp", sub { check_perms("/tmp", 041777) } ) ;
@


1.3
log
@use new check_perms function
@
text
@d3 1
a3 1
# $Id: test-permissions,v 1.2 1998/09/16 23:54:52 phil Exp phil $
d9 1
a9 1
runtest("/tmp", \&check_perms("/tmp", 041777) ;
@


1.2
log
@*** empty log message ***
@
text
@d3 1
a3 1
# $Id: permissions,v 1.1 1998/09/16 23:40:17 phil Exp phil $
d9 1
a9 9
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.
@
