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