4
BEGIN { plan tests => 8 };
6
use Pod::Simple::TiedOutFH;
9
print "# Sanity test of Perl and Pod::Simple::TiedOutFH\n";
13
my $out = Pod::Simple::TiedOutFH->handle_on($x);
14
print $out "Puppies\n";
17
ok $x, "abcPuppies\nrrrrruffuff!";
19
ok $x, "abcPuppies\nrrrrruffuff!";
22
# Now test that we can have two different strings.
26
my $out1 = Pod::Simple::TiedOutFH->handle_on($x1);
27
my $out2 = Pod::Simple::TiedOutFH->handle_on($x2);
29
print $out1 "Puppies\n";
30
print $out2 "Kitties\n";
33
print $out2 "iaooowwlllllllrrr!\n";
34
print $out1 "uffuff!";
36
ok $x1, "abcPuppies\nrrrrruffuff!", "out1 test";
37
ok $x2, "xyzKitties\nmmmmmiaooowwlllllllrrr!\n", "out2 test";
42
ok $x1, "abcPuppies\nrrrrruffuff!", "out1 test";
43
ok $x2, "xyzKitties\nmmmmmiaooowwlllllllrrr!\n", "out2 test";
47
print "# Wrapping up... one for the road...\n";
49
print "# --- Done with ", __FILE__, " --- \n";