1N/A#!./perl -w
1N/A
1N/ABEGIN {
1N/A chdir 't' if -d 't';
1N/A @INC = '../lib';
1N/A}
1N/A
1N/Ause Text::Wrap qw(&fill);
1N/A
1N/A@tests = (split(/\nEND\n/s, <<DONE));
1N/ATEST1
1N/ACyberdog Information
1N/A
1N/ACyberdog & Netscape in the news
1N/AImportant Press Release regarding Cyberdog and Netscape. Check it out!
1N/A
1N/ACyberdog Plug-in Support!
1N/ACyberdog support for Netscape Plug-ins is now available to download! Go
1N/Ato the Cyberdog Beta Download page and download it now!
1N/A
1N/ACyberdog Book
1N/ACheck out Jesse Feiler's way-cool book about Cyberdog. You can find
1N/Adetails out about the book as well as ordering information at Philmont
1N/ASoftware Mill site.
1N/A
1N/AJava!
1N/ALooking to view Java applets in Cyberdog 1.1 Beta 3? Download and install
1N/Athe Mac OS Runtime for Java and try it out!
1N/A
1N/ACyberdog 1.1 Beta 3
1N/AWe hope that Cyberdog and OpenDoc 1.1 will be available within the next
1N/Atwo weeks. In the meantime, we have released another version of
1N/ACyberdog, Cyberdog 1.1 Beta 3. This version fixes several bugs that were
1N/Areported to us during out public beta period. You can check out our release
1N/Anotes to see what we fixed!
1N/AEND
1N/A Cyberdog Information
1N/A Cyberdog & Netscape in the news Important Press Release regarding
1N/A Cyberdog and Netscape. Check it out!
1N/A Cyberdog Plug-in Support! Cyberdog support for Netscape Plug-ins is now
1N/A available to download! Go to the Cyberdog Beta Download page and download
1N/A it now!
1N/A Cyberdog Book Check out Jesse Feiler's way-cool book about Cyberdog.
1N/A You can find details out about the book as well as ordering information at
1N/A Philmont Software Mill site.
1N/A Java! Looking to view Java applets in Cyberdog 1.1 Beta 3? Download and
1N/A install the Mac OS Runtime for Java and try it out!
1N/A Cyberdog 1.1 Beta 3 We hope that Cyberdog and OpenDoc 1.1 will be
1N/A available within the next two weeks. In the meantime, we have released
1N/A another version of Cyberdog, Cyberdog 1.1 Beta 3. This version fixes
1N/A several bugs that were reported to us during out public beta period. You
1N/A can check out our release notes to see what we fixed!
1N/AEND
1N/ADONE
1N/A
1N/A
1N/A$| = 1;
1N/A
1N/Aprint "1..", @tests/2, "\n";
1N/A
1N/Ause Text::Wrap;
1N/A
1N/A$rerun = $ENV{'PERL_DL_NONLAZY'} ? 0 : 1;
1N/A
1N/A$tn = 1;
1N/Awhile (@tests) {
1N/A my $in = shift(@tests);
1N/A my $out = shift(@tests);
1N/A
1N/A $in =~ s/^TEST(\d+)?\n//;
1N/A
1N/A my $back = fill(' ', ' ', $in);
1N/A
1N/A if ($back eq $out) {
1N/A print "ok $tn\n";
1N/A } elsif ($rerun) {
1N/A my $oi = $in;
1N/A write_file("#o", $back);
1N/A write_file("#e", $out);
1N/A foreach ($in, $back, $out) {
1N/A s/\t/^I\t/gs;
1N/A s/\n/\$\n/gs;
1N/A }
1N/A print "------------ input ------------\n";
1N/A print $in;
1N/A print "\n------------ output -----------\n";
1N/A print $back;
1N/A print "\n------------ expected ---------\n";
1N/A print $out;
1N/A print "\n-------------------------------\n";
1N/A $Text::Wrap::debug = 1;
1N/A fill(' ', ' ', $oi);
1N/A exit(1);
1N/A } else {
1N/A print "not ok $tn\n";
1N/A }
1N/A $tn++;
1N/A}
1N/A
1N/Asub write_file
1N/A{
1N/A my ($f, @data) = @_;
1N/A
1N/A local(*F);
1N/A
1N/A open(F, ">$f") || die "open >$f: $!";
1N/A (print F @data) || die "write $f: $!";
1N/A close(F) || die "close $f: $!";
1N/A return 1;
1N/A}