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


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


desc
@@


1.1
log
@Initial revision
@
text
@#!/usr/bin/perl

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

use Debian::DebianTest ;

sub provoked_fail {
  # provoke a failure is this file exists, to test debian-test
  return ! -f "/tmp/debian-test-FAIL" ;
}

runtest("Provoked Failure", \&provoked_fail ) ;
@
