diff --git t/op/00ff-dos.t t/op/00ff-dos.t
index f20da54..f946781 100644
|
|
|
|
| 1 | | #!perl |
| 2 | | # Copyright (C) 2001-2005, Parrot Foundation. |
| | 1 | #! parrot |
| | 2 | # Copyright (C) 2001-2009, Parrot Foundation. |
| 3 | 3 | # $Id$ |
| 4 | 4 | |
| 5 | | use strict; |
| 6 | | use warnings; |
| 7 | | use lib qw( . lib ../lib ../../lib ); |
| 8 | | use Test::More; |
| 9 | | use Parrot::Test tests => 2; |
| 10 | | |
| 11 | 5 | =head1 NAME |
| 12 | 6 | |
| 13 | 7 | t/op/00ff-dos.t - DOS File Format |
| … |
… |
|
| 22 | 16 | |
| 23 | 17 | =cut |
| 24 | 18 | |
| 25 | | my $code = qq(print "ok\\n"\r\nend\r\n); |
| 26 | | pasm_output_is( $code, <<'OUT', "fileformat dos" ); |
| 27 | | ok |
| 28 | | OUT |
| 29 | | |
| 30 | | $code = qq(print "ok\\n"\r\nend\r\n\cZ\r\n); |
| 31 | | pasm_output_is( $code, <<'OUT', "fileformat dos w ctrl-z" ); |
| 32 | | ok |
| 33 | | OUT |
| | 19 | .sub main :main |
| | 20 | .include 'test_more.pir' |
| | 21 | plan(2) |
| | 22 | |
| | 23 | test_fileformat_dos() |
| | 24 | test_fileformat_dos_ctrl_z() |
| | 25 | .end |
| | 26 | |
| | 27 | .sub test_fileformat_dos |
| | 28 | lives_ok( <<'CODE', 'fileformat dos') |
| | 29 | .sub main |
| | 30 | print "42\r\n" |
| | 31 | .end |
| | 32 | CODE |
| | 33 | .end |
| | 34 | |
| | 35 | .sub test_fileformat_dos_ctrl_z |
| | 36 | lives_ok( <<'CODE', 'fileformat dos w ctrl-z') |
| | 37 | .sub main |
| | 38 | print "42\r\n\cZ" |
| | 39 | .end |
| | 40 | CODE |
| | 41 | .end |
| 34 | 42 | |
| 35 | 43 | # Local Variables: |
| 36 | 44 | # mode: cperl |
| 37 | 45 | # cperl-indent-level: 4 |
| 38 | 46 | # fill-column: 100 |
| 39 | 47 | # End: |
| 40 | | # vim: expandtab shiftwidth=4 |
| | 48 | # vim: expandtab shiftwidth=4 filetype=pir: |
