← Back to branch summary

~ubuntu-branches/ubuntu/saucy/padre/saucy-proposed

« back to all changes in this revision

Viewing changes to t/80-newline.t

  • Committer: Package Import Robot
  • Author(s): Dominique Dumont, gregor herrmann, Dominique Dumont
  • Date: 2012-01-04 12:04:20 UTC
  • mfrom: (1.3.3)
  • Revision ID: package-import@ubuntu.com-20120104120420-i5oybqwf91m1d3il
Tags: 0.92.ds1-1
[ gregor herrmann ]
* Remove debian/source/local-options; abort-on-upstream-changes
  and unapply-patches are default in dpkg-source since 1.16.1.
* Swap order of alternative (build) dependencies after the perl
  5.14 transition.

[ Dominique Dumont ]
* Imported Upstream version 0.92.ds1
* removed fix-spelling patch (applied upstream)
* lintian-override: use wildcard to avoid listing a gazillion files
* updated size of some 'not-real-man-page' entries
* rules: remove dekstop cruft (replaced by a file provided in debian
  directory)
* control: removed Breaks statement. Add /me to uploaders. Updated
  dependencies
* rules: make sure that non-DFSG file (i.e. the cute butterfly, sigh)
  is not distributed

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/80-newline.t
1
 
#!/usr/bin/perl
2
 
 
3
 
use strict;
4
 
use warnings;
5
 
 
6
 
my $CR   = "\015";
7
 
my $LF   = "\012";
8
 
my $CRLF = "\015\012";
9
 
 
10
 
use Test::More;
11
 
 
12
 
BEGIN {
13
 
        unless ( $ENV{DISPLAY} or $^O eq 'MSWin32' ) {
14
 
                plan skip_all => 'Needs DISPLAY';
15
 
                exit 0;
16
 
        }
17
 
        plan tests => 13;
18
 
}
19
 
 
20
 
use Test::NoWarnings;
21
 
use t::lib::Padre;
22
 
use Padre::Util ();
23
 
 
24
 
is( Padre::Util::newline_type("...")           => "None",  "None" );
25
 
is( Padre::Util::newline_type(".$CR.$CR.")     => "MAC",   "Mac" );
26
 
is( Padre::Util::newline_type(".$LF.$LF.")     => "UNIX",  "Unix" );
27
 
is( Padre::Util::newline_type(".$CRLF.$CRLF.") => "WIN",   "Windows" );
28
 
is( Padre::Util::newline_type(".$LF.$CR.")     => "Mixed", "Mixed" );
29
 
is( Padre::Util::newline_type(".$CR.$LF.")     => "Mixed", "Mixed" );
30
 
is( Padre::Util::newline_type(".$CRLF.$LF.")   => "Mixed", "Mixed" );
31
 
is( Padre::Util::newline_type(".$LF.$CRLF.")   => "Mixed", "Mixed" );
32
 
is( Padre::Util::newline_type(".$CR.$CRLF.")   => "Mixed", "Mixed" );
33
 
is( Padre::Util::newline_type(".$CRLF.$CR.")   => "Mixed", "Mixed" );
34
 
is( Padre::Util::newline_type(".$CR$LF$CR.")   => "Mixed", "Mixed" );
35
 
is( Padre::Util::newline_type(".$CR$LF$LF.")   => "Mixed", "Mixed" );