Ticket #1186: unix.patch

File unix.patch, 0.9 KB (added by bubaflub, 5 years ago)
  • t/op/00ff-unix.t

    diff --git t/op/00ff-unix.t t/op/00ff-unix.t
    index 231f715..e592b81 100644
     
    1 #!perl 
    2 # Copyright (C) 2001-2005, Parrot Foundation. 
     1#! parrot 
     2# Copyright (C) 2001-2009, Parrot Foundation. 
    33# $Id$ 
    44 
    5 use strict; 
    6 use warnings; 
    7 use lib qw( . lib ../lib ../../lib ); 
    8 use Test::More; 
    9 use Parrot::Test tests => 1; 
    10  
    115=head1 NAME 
    126 
    137t/op/00ff-unix.t - UNIX File format 
     
    2216 
    2317=cut 
    2418 
    25 pasm_output_is( <<'CODE', <<'OUT', "fileformat unix" ); 
    26     print "ok\n" 
    27     end 
     19.sub main :main 
     20    .include 'test_more.pir' 
     21    plan(1) 
     22 
     23    test_fileformat_unix() 
     24.end 
     25 
     26.sub test_fileformat_unix 
     27    lives_ok( <<'CODE', 'fileformat unix' ) 
     28.sub main 
     29    print "testing\n" 
     30.end 
    2831CODE 
    29 ok 
    30 OUT 
     32.end 
    3133 
    3234# Local Variables: 
    3335#   mode: cperl 
    3436#   cperl-indent-level: 4 
    3537#   fill-column: 100 
    3638# End: 
    37 # vim: expandtab shiftwidth=4: 
     39# vim: expandtab shiftwidth=4 filetype=pir: