blob: dd1be6541ed24356a576f6237c0a2332ffc03a71 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!./perl
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
}
BEGIN { require "./test.pl"; }
plan(tests => 1);
# It is important that the script contains at least one newline character
# that can be expanded to \r\n on DOSish systems.
fresh_perl_is("\xEF\xBB\xBFprint 1;\nprint 2", "12", {}, "script starts with a BOM" );
|