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