xref: /openbsd-src/gnu/usr.bin/perl/cpan/Text-Tabs/t/fill.t (revision 256a93a44f36679bee503f12e49566c2183f6181)
1*256a93a4Safresh1use strict; use warnings;
2b39c5158Smillert
3*256a93a4Safresh1BEGIN { require './t/lib/ok.pl' }
4*256a93a4Safresh1use Text::Wrap;
5*256a93a4Safresh1
6*256a93a4Safresh1my @tests = (split(/\nEND\n/s, <<DONE));
7b39c5158SmillertTEST1
8b39c5158SmillertCyberdog Information
9b39c5158Smillert
10b39c5158SmillertCyberdog & Netscape in the news
11b39c5158SmillertImportant Press Release regarding Cyberdog and Netscape. Check it out!
12b39c5158Smillert
13b39c5158SmillertCyberdog Plug-in Support!
14b39c5158SmillertCyberdog support for Netscape Plug-ins is now available to download! Go
15b39c5158Smillertto the Cyberdog Beta Download page and download it now!
16b39c5158Smillert
17b39c5158SmillertCyberdog Book
18b39c5158SmillertCheck out Jesse Feiler's way-cool book about Cyberdog. You can find
19b39c5158Smillertdetails out about the book as well as ordering information at Philmont
20b39c5158SmillertSoftware Mill site.
21b39c5158Smillert
22b39c5158SmillertJava!
23b39c5158SmillertLooking to view Java applets in Cyberdog 1.1 Beta 3? Download and install
24b39c5158Smillertthe Mac OS Runtime for Java and try it out!
25b39c5158Smillert
26b39c5158SmillertCyberdog 1.1 Beta 3
27b39c5158SmillertWe hope that Cyberdog and OpenDoc 1.1 will be available within the next
28b39c5158Smillerttwo weeks. In the meantime, we have released another version of
29b39c5158SmillertCyberdog, Cyberdog 1.1 Beta 3. This version fixes several bugs that were
30b39c5158Smillertreported to us during out public beta period. You can check out our release
31b39c5158Smillertnotes to see what we fixed!
32b39c5158SmillertEND
33b39c5158Smillert    Cyberdog Information
34b39c5158Smillert    Cyberdog & Netscape in the news Important Press Release regarding
35b39c5158Smillert Cyberdog and Netscape. Check it out!
36b39c5158Smillert    Cyberdog Plug-in Support! Cyberdog support for Netscape Plug-ins is now
37b39c5158Smillert available to download! Go to the Cyberdog Beta Download page and download
38b39c5158Smillert it now!
39b39c5158Smillert    Cyberdog Book Check out Jesse Feiler's way-cool book about Cyberdog.
40b39c5158Smillert You can find details out about the book as well as ordering information at
41b39c5158Smillert Philmont Software Mill site.
42b39c5158Smillert    Java! Looking to view Java applets in Cyberdog 1.1 Beta 3? Download and
43b39c5158Smillert install the Mac OS Runtime for Java and try it out!
44b39c5158Smillert    Cyberdog 1.1 Beta 3 We hope that Cyberdog and OpenDoc 1.1 will be
45b39c5158Smillert available within the next two weeks. In the meantime, we have released
46b39c5158Smillert another version of Cyberdog, Cyberdog 1.1 Beta 3. This version fixes
47b39c5158Smillert several bugs that were reported to us during out public beta period. You
48b39c5158Smillert can check out our release notes to see what we fixed!
49b39c5158SmillertEND
50b39c5158SmillertDONE
51b39c5158Smillert
52b39c5158Smillert
53b39c5158Smillertmy $numtests = scalar(@tests) / 2;
54b39c5158Smillertprint "1..$numtests\n";
55b39c5158Smillert
56b39c5158Smillertwhile (@tests) {
57b39c5158Smillert	my $in = shift(@tests);
58b39c5158Smillert	my $out = shift(@tests);
59b39c5158Smillert
60b39c5158Smillert	$in =~ s/^TEST(\d+)?\n//;
61b39c5158Smillert
62b39c5158Smillert	my $back = fill('    ', ' ', $in);
63b39c5158Smillert
64*256a93a4Safresh1	ok( $back eq $out );
65b39c5158Smillert}
66