t/op/00ff-dos.t

   1 #!parrot
   2 # Copyright (C) 2001-2009, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/op/00ff-dos.t - DOS File Format
   8
   9 =head1 SYNOPSIS
  10
  11         % prove t/op/00ff-dos.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests file formats.
  16
  17 =cut
  18
  19 .sub main :main
  20     .include 'test_more.pir'
  21     plan(2)
  22
  23     test_fileformat_dos()
  24     test_fileformat_dos_ctrl_z()
  25
  26 .end
  27
  28 .sub test_fileformat_dos
  29     lives_ok( <<"CODE", 'fileformat dos')
  30 .sub main
  31     $I0 = 42\r\n
  32 .end
  33 CODE
  34 .end
  35
  36 .sub test_fileformat_dos_ctrl_z
  37     lives_ok( <<"CODE", 'fileformat dos w ctrl-z')
  38 .sub main
  39     $I0 = 42\r\n\cZ
  40 .end
  41 CODE
  42 .end
  43
  44 # Local Variables:
  45 #   mode: cperl
  46 #   cperl-indent-level: 4
  47 #   fill-column: 100
  48 # End:
  49 # vim: expandtab shiftwidth=4 filetype=pir: