← Back to branch summary

~ubuntu-branches/ubuntu/trusty/makepatch/trusty

« back to all changes in this revision

Viewing changes to t/basic.t

  • Committer: Bazaar Package Importer
  • Author(s): Roderick Schertler
  • Date: 2008-07-23 10:14:30 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20080723101430-tr5rcvtpru7iisny
Tags: 2.03-1
* New upstream release.
* My changes to remove warnings are no longer necessary.
* Bump Standards-Version to 3.7.3 (no changes).
* Change debhelper compatibility level from 3 to 7.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/basic.t
31
31
2013 AG  Haarlem
32
32
EOD
33
33
 
34
 
open (D, ">t/d1/tdata1"); print D $data1; close D;
35
 
open (D, ">t/d2/tdata1"); print D $data2; close D;
36
 
open (D, ">t/d1/tdata2"); print D $data2; close D;
37
 
open (D, ">t/d2/tdata2"); print D $data1; close D;
 
34
open (D, ">t/d1/tdata1"); binmode(D); print D $data1; close D;
 
35
open (D, ">t/d2/tdata1"); binmode(D); print D $data2; close D;
 
36
open (D, ">t/d1/tdata2"); binmode(D); print D $data2; close D;
 
37
open (D, ">t/d2/tdata2"); binmode(D); print D $data1; close D;
38
38
 
39
39
my $tmpout = "basic.out";
40
40
 
96
96
}
97
97
 
98
98
# Expect no output.
99
 
# However, a common cause of failures here is a stupid warning from
100
 
# an ancient version of Getopt::Long.
101
 
my $s = -s $tmpou2;
102
 
if ( $s > 0 ) {
103
 
    open (FX, $tmpou2) or die ("$tmpou2: $!\n");
104
 
    local $/;
105
 
    my $c = <FX>;
106
 
    close (FX);
107
 
    if ($c =~ m/Argument \"2\.24_\d+\" isn\'t numeric/){
108
 
        warn ("WARNING: Please upgrade Getopt::Long to 2.25 or higher");
109
 
    }
110
 
    else {
 
99
# print "not " if -s $tmpou2 > 0;
 
100
{
 
101
    my $s;
 
102
    if ( ($s = -s $tmpou2) > 0 ) {
 
103
        open (FX, $tmpou2) or die ("$tmpou2: $!\n");
 
104
        local $/;
 
105
        my $c = <FX>;
 
106
        close (FX);
111
107
        $c =~ s/^/####/gm;
112
108
        $c .= "####";
113
109
        print ("# tmpou2[$tmpou2]s[$s]c[$c]\nnot ");