#!/usr/bin/perl

# $Id: test-selftest,v 1.1 1999/11/14 02:12:21 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 ) ;
