#!parrot
# Copyright (C) 2001-2009, Parrot Foundation.
# $Id$

=head1 NAME

t/op/00ff-dos.t - DOS File Format

=head1 SYNOPSIS

        % prove t/op/00ff-dos.t

=head1 DESCRIPTION

Tests file formats.

=cut

.sub main :main
    .include 'test_more.pir'
    plan(2)

    test_fileformat_dos()
    say 'hello!'
    test_fileformat_dos_ctrl_z()
    say 'goodbye'

.end

.sub test_fileformat_dos
    lives_ok( <<"CODE", 'fileformat dos')
.sub main
    $I0 = 42\r\n
.end
CODE
.end

.sub test_fileformat_dos_ctrl_z
    lives_ok( <<"CODE", 'fileformat dos w ctrl-z')
.sub main
    $I0 = 42\r\n\cZ
.end
CODE
.end

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 filetype=pir:

#!parrot
# Copyright (C) 2001-2009, Parrot Foundation.
# $Id$

=head1 NAME

t/op/00ff-dos.t - DOS File Format

=head1 SYNOPSIS

        % prove t/op/00ff-dos.t

=head1 DESCRIPTION

Tests file formats.

=cut

.sub main :main
    .include 'test_more.pir'
    plan(2)

    test_fileformat_dos()
    test_fileformat_dos_ctrl_z()

.end

.sub test_fileformat_dos
    lives_ok( <<"CODE", 'fileformat dos')
.sub main
    $I0 = 42\r\n
.end
CODE
.end

.sub test_fileformat_dos_ctrl_z
    lives_ok( <<"CODE", 'fileformat dos w ctrl-z')
.sub main
    $I0 = 42\r\n\cZ
.end
CODE
.end

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 filetype=pir:

Remove some debug messages accidentally added in previous commit
[cage] Remove some debug messages accidentally added in previous commit

git-svn-id: 6e74a02f85675cec270f5d931b0f6998666294a3@42305 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
