Lines Matching refs:tee
18 my($x, $y, $tee);
29 ok open($tee, ">:tee", \($x, $y)), "open:tee scalar, scalar";
30 ok binmode($tee), "binmode";
32 print $tee "foo\n";
33 close $tee;
38 ok open($tee, ">:tee", \($x, $y)), "open:tee scalar, scalar";
39 ok binmode($tee, ':crlf'), "binmode(crlf)";
41 print $tee "foo\n";
42 close $tee;
48 ok open($tee, '>:tee', $file1, $file2), "open:tee (file, file)";
49 $tee->autoflush(1);
50 ok binmode($tee, ':crlf'), 'binmode(crlf)';
52 print $tee "\n";
57 ok binmode($tee), 'binmode()';
58 print $tee "\n";
62 ok open($tee, '>:tee', \$x, $file1), "open:tee scalar, file";
63 $tee->autoflush(1);
65 ok binmode($tee), 'binmode()';
66 print $tee "foobar", "\n";
70 ok binmode($tee, ':crlf'), 'binmode(crlf)';
71 print $tee "\n";
75 ok binmode($tee), 'binmode()';
76 print $tee "\n";
80 close $tee;
85 ok open($tee, '>:tee', $file1, \$x), "open:tee file, scalar";
86 $tee->autoflush(1);
88 ok binmode($tee), 'binmode()';
90 print $tee "foobar", "\n";
94 ok binmode($tee, ':crlf'), 'binmode(crlf)';
96 print $tee "\n";
100 ok binmode($tee), 'binmode()';
102 print $tee "\n";
106 close $tee;
110 open $tee, '>:tee :utf8', \($x, $y);
112 ok scalar(grep{ $_ eq 'utf8' } $tee->get_layers()), ':tee with :utf8';
115 print $tee "\x{99f1}\x{99dd}";
119 ok binmode($tee), 'binmode()';
122 print $tee "\x{99f1}\x{99dd}";
126 ok!scalar(grep{ $_ eq 'utf8' } $tee->get_layers()), 'binmode:raw';
128 close $tee;