This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
4916e270a10a1b1a23a927295310ba4043e1314c
[perl5.git] / t / lib / textfill.t
1 #!./perl -w
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6 }
7
8 @tests = (split(/\nEND\n/s, <<DONE));
9 TEST1
10 Cyberdog Information
11
12 Cyberdog & Netscape in the news
13 Important Press Release regarding Cyberdog and Netscape. Check it out! 
14
15 Cyberdog Plug-in Support!
16 Cyberdog support for Netscape Plug-ins is now available to download! Go
17 to the Cyberdog Beta Download page and download it now! 
18
19 Cyberdog Book
20 Check out Jesse Feiler's way-cool book about Cyberdog. You can find
21 details out about the book as well as ordering information at Philmont
22 Software Mill site. 
23
24 Java!
25 Looking to view Java applets in Cyberdog 1.1 Beta 3? Download and install
26 the Mac OS Runtime for Java and try it out! 
27
28 Cyberdog 1.1 Beta 3
29 We hope that Cyberdog and OpenDoc 1.1 will be available within the next
30 two weeks. In the meantime, we have released another version of
31 Cyberdog, Cyberdog 1.1 Beta 3. This version fixes several bugs that were
32 reported to us during out public beta period. You can check out our release
33 notes to see what we fixed! 
34 END
35     Cyberdog Information
36     Cyberdog & Netscape in the news Important Press Release regarding
37  Cyberdog and Netscape. Check it out! 
38     Cyberdog Plug-in Support! Cyberdog support for Netscape Plug-ins is now
39  available to download! Go to the Cyberdog Beta Download page and download
40  it now! 
41     Cyberdog Book Check out Jesse Feiler's way-cool book about Cyberdog.
42  You can find details out about the book as well as ordering information at
43  Philmont Software Mill site. 
44     Java! Looking to view Java applets in Cyberdog 1.1 Beta 3? Download and
45  install the Mac OS Runtime for Java and try it out! 
46     Cyberdog 1.1 Beta 3 We hope that Cyberdog and OpenDoc 1.1 will be
47  available within the next two weeks. In the meantime, we have released
48  another version of Cyberdog, Cyberdog 1.1 Beta 3. This version fixes
49  several bugs that were reported to us during out public beta period. You
50  can check out our release notes to see what we fixed! 
51 END
52 DONE
53
54
55 $| = 1;
56
57 print "1..", @tests/2, "\n";
58
59 $rerun = $ENV{'PERL_DL_NONLAZY'} ? 0 : 1;
60
61 $tn = 1;
62 while (@tests) {
63         my $in = shift(@tests);
64         my $out = shift(@tests);
65
66         $in =~ s/^TEST(\d+)?\n//;
67
68         my $back = fill('    ', ' ', $in);
69
70         if ($back eq $out) {
71                 print "ok $tn\n";
72         } elsif ($rerun) {
73                 my $oi = $in;
74                 require File::Slurp;
75                 File::Slurp::write_file("#o", $back);
76                 File::Slurp::write_file("#e", $out);
77                 foreach ($in, $back, $out) {
78                         s/\t/^I\t/gs;
79                         s/\n/\$\n/gs;
80                 }
81                 print "------------ input ------------\n";
82                 print $in;
83                 print "\n------------ output -----------\n";
84                 print $back;
85                 print "\n------------ expected ---------\n";
86                 print $out;
87                 print "\n-------------------------------\n";
88                 $Text::Wrap::debug = 1;
89                 fill('    ', ' ', $oi);
90                 exit(1);
91         } else {
92                 print "not ok $tn\n";
93         }
94         $tn++;
95 }