10 BEGIN { plan tests => 8 };
12 use Pod::Simple::TiedOutFH;
15 print "# Sanity test of Perl and Pod::Simple::TiedOutFH\n";
19 my $out = Pod::Simple::TiedOutFH->handle_on($x);
20 print $out "Puppies\n";
23 ok $x, "abcPuppies\nrrrrruffuff!";
25 ok $x, "abcPuppies\nrrrrruffuff!";
28 # Now test that we can have two different strings.
32 my $out1 = Pod::Simple::TiedOutFH->handle_on($x1);
33 my $out2 = Pod::Simple::TiedOutFH->handle_on($x2);
35 print $out1 "Puppies\n";
36 print $out2 "Kitties\n";
39 print $out2 "iaooowwlllllllrrr!\n";
40 print $out1 "uffuff!";
42 ok $x1, "abcPuppies\nrrrrruffuff!", "out1 test";
43 ok $x2, "xyzKitties\nmmmmmiaooowwlllllllrrr!\n", "out2 test";
48 ok $x1, "abcPuppies\nrrrrruffuff!", "out1 test";
49 ok $x2, "xyzKitties\nmmmmmiaooowwlllllllrrr!\n", "out2 test";
53 print "# Wrapping up... one for the road...\n";
55 print "# --- Done with ", __FILE__, " --- \n";