1# Test escape sequences within rules
2
3# $Id: escape.t,v 3.0 1993/11/29 13:49:58 ram Exp ram $
4#
5#  Copyright (c) 1990-2006, Raphael Manfredi
6#
7#  You may redistribute only under the terms of the Artistic License,
8#  as specified in the README file that comes with the distribution.
9#  You may reuse parts of this distribution only within the terms of
10#  that same Artistic License; a copy of which may be found at the root
11#  of the source tree for mailagent 3.0.
12#
13# $Log: escape.t,v $
14# Revision 3.0  1993/11/29  13:49:58  ram
15# Baseline for mailagent 3.0 netwide release.
16#
17
18do '../pl/filter.pl';
19unlink 'output';
20
21&add_header('X-Tag: escape');
22`$cmd`;
23$? == 0 || print "1\n";
24-f "$user" && print "2\n";		# Must have been deleted
25-f 'output' || print "3\n";		# Created by RUN
26chop($output = `cat output 2>/dev/null`);
27$output eq ';,\\;,\\,\\w' || print "4\n";
28
29unlink 'output';
30print "0\n";
31