Lines Matching full:output
72 like $$Error, "/^$TopType: output buffer is read-only/", ' Output is read-only' ;
89 like $@, mkErr("^$TopType: input and output filename are identical"),
90 ' Input and Output filename are the same';
105 like $$Error, "/output file '$d' is a directory/",
106 ' Output filename is a directory';
110 like $@, mkErr("^$TopType: input and output buffer are identical"),
111 ' Input and Output buffer are the same';
124 like $@, mkErr("^$TopType: input and output handle are identical"),
125 ' Input and Output handle are the same';
138 like $@, mkErr("^$TopType: illegal output parameter"),
139 ' Bad Output Param';
143 like $@, mkErr("^$TopType: illegal output parameter"),
144 ' Bad Output Param';
164 ok ! -e $filename, " output File '$filename' does not exist";
167 like $$Error, ("/^(cannot open file '$filename'|input file '$filename' does not exist):/"), " output File '$filename' does not exist";
171 ' Output fileglob with no input fileglob';
205 ' TrailingData output not writable';
210 ' TrailingData output not scalar reference';
239 is $out, $data, " got expected output" ;
312 my $output = $already;
313 ok &$Func(\$buffer, \$output, Append => $append), ' Compressed ok' ;
316 my $got = anyUncompress(\$output, $already);
325 my @output = ('first') ;
326 ok &$Func(\$buffer, \@output, Append => $append), ' Compressed ok' ;
328 is $output[0], 'first', " Array[0] unchanged";
330 my $got = anyUncompress($output[1]);
340 my @output = ('first') ;
342 ok &$Func(\@input, \@output, Append => $append), ' Compressed ok' ;
344 is $output[0], 'first', " Array[0] unchanged";
345 my $got = anyUncompress($output[1]);
354 ok ! -e $out_file, " Output file does not exist";
359 ok -e $out_file, " Created output file";
370 ok ! -e $out_file, " Output file does not exist";
373 ok $of, " Created output filehandle" ;
377 ok -e $out_file, " Created output file";
390 ok ! -e $out_file, " Output file does not exist";
395 ok -e $out_file, " Created output file";
408 ok ! -e $out_file, " Output file does not exist";
414 ok -e $out_file, " Created output file";
444 ok ! -e $out_file, " Output file does not exist";
450 ok -e $out_file, " Created output file";
464 ok ! -e $out_file, " Output file does not exist";
470 ok -e $out_file, " Created output file";
542 ok $of, " Created output filehandle" ;
561 my @output = ('first') ;
562 ok &$Func(\@input, \@output, AutoClose => 0), ' Compressed ok' ;
564 is $output[0], 'first', " Array[0] unchanged";
567 my @got = shift @output;
568 foreach (@output) { push @got, anyUncompress($_) }
582 my $output ;
583 ok &$Func(\@input, \$output, MultiStream => $ms, AutoClose => 0), ' Compressed ok'
586 my $got = anyUncompress([ \$output, MultiStream => $ms ]);
589 my @headers = getHeaders(\$output);
601 my $output ;
621 my $output ;
767 # my $output ;
815 # my %output ;
816 # ok &$Func( $inFiles[0] => \%output), ' Compressed ok' ;
818 # is keys %output, 1, " one pair in hash" ;
819 # my ($k, $v) = each %output;
828 # my %output ;
829 # ok &$Func( '<in*.tmp>' => \%output), ' Compressed ok' ;
831 # is keys %output, 4, " four pairs in hash" ;
834 # ok exists $output{$fil}, " key '$fil' exists" ;
835 # my $got = anyUncompress($output{$fil});
864 # # my @output = ('first') ;
865 # # ok &$Func( { \@input, \@output } , AutoClose => 0), ' Compressed ok' ;
867 # # is $output[0], 'first', " Array[0] unchanged";
870 # # my @got = shift @output;
871 # # foreach (@output) { push @got, anyUncompress($_) }
884 # # my $output ;
885 # # ok &$Func(\@input, \$output, AutoClose => 0), ' Compressed ok' ;
887 # # my $got = anyUncompress(\$output);
902 # # my $output ;
922 # # my $output ;
1080 my $output ;
1081 $output = $incumbent if $append ;
1082 ok &$Func(\$comp, \$output, Append => $append, @opts), ' Uncompressed ok' ;
1085 is $output, $expected, " Uncompressed matches original";
1091 my @output = ('first');
1092 #$output = $incumbent if $append ;
1093 ok &$Func(\$comp, \@output, Append => $append, @opts), ' Uncompressed ok' ;
1096 is $output[0], 'first', " Uncompressed matches original";
1097 is ${ $output[1] }, $buffer, " Uncompressed matches original"
1098 or diag $output[1] ;
1099 is @output, 2, " only 2 elements in the array" ;
1109 { ok ! -e $out_file, " Output file does not exist" }
1113 ok -e $out_file, " Created output file";
1130 ok ! -e $out_file, " Output file does not exist" ;
1137 ok -e $out_file, " Created output file";
1151 { ok ! -e $out_file, " Output file does not exist" }
1157 ok -e $out_file, " Created output file";
1174 ok ! -e $out_file, " Output file does not exist" ;
1183 ok -e $out_file, " Created output file";
1196 my $output ;
1197 $output = $incumbent if $append ;
1199 ok &$Func($in_file, \$output, Append => $append, @opts), ' Uncompressed ok' ;
1202 is $output, $expected, " Uncompressed matches original";
1212 { ok ! -e $out_file, " Output file does not exist" }
1219 ok -e $out_file, " Created output file";
1236 ok ! -e $out_file, " Output file does not exist" ;
1246 ok -e $out_file, " Created output file";
1260 my $output ;
1261 $output = $incumbent if $append ;
1263 ok &$Func($in, \$output, Append => $append, @opts), ' Uncompressed ok' ;
1266 is $output, $expected, " Uncompressed matches original";
1285 my $output ;
1286 $output = $incumbent if $append ;
1288 ok &$Func('-', \$output, Append => $append, @opts), ' Uncompressed ok'
1294 is $output, $expected, " Uncompressed matches original";
1351 my $output ;
1353 ok &$Func($stdin, \$output, Transparent => 0, InputLength => length $comp, @opts), ' Uncompressed ok'
1359 is $output, $expected, " Uncompressed matches original";
1397 ok $of, " Created output filehandle" ;
1409 my $output ;
1410 ok &$Func(\@input, \$output, AutoClose => 0, @opts), ' UnCompressed ok' ;
1412 is $output, join('', @expected)
1418 my $lex = LexFile->new( my $output );
1421 ok &$Func(\@input, $output, AutoClose => 0, @opts), ' UnCompressed ok' ;
1423 is readFile($output), join('', @expected)
1429 my $lex = LexFile->new( my $output );
1430 my $fh = IO::File->new( ">$output" );
1436 is readFile($output), join('', @expected)
1442 my @output = (\'first') ;
1444 ok &$Func(\@input, \@output, AutoClose => 0, @opts), ' UnCompressed ok' ;
1447 is_deeply [map { defined $$_ ? $$_ : "" } @output],
1500 my @output = (\'first');
1501 ok &$Func("<$tmpDir1/a*.tmp>" => \@output, @opts), ' UnCompressed ok'
1505 for my $data (@output)
1516 my $output ;
1517 ok &$Func("<$tmpDir1/a*.tmp>" => \$output, @opts), ' UnCompressed ok'
1520 is $output, join('', @expected), " got expected uncompressed data";
1526 my $lex = LexFile->new( my $output );
1527 ok ! -e $output, " $output does not exist" ;
1528 ok &$Func("<$tmpDir1/a*.tmp>" => $output, @opts), ' UnCompressed ok'
1531 ok -e $output, " $output does exist" ;
1532 is readFile($output), join('', @expected), " got expected uncompressed data";
1538 my $lex = LexFile->new( my $output );
1539 my $fh = IO::File->new( ">$output" );
1543 ok -e $output, " $output does exist" ;
1544 is readFile($output), join('', @expected), " got expected uncompressed data";
1587 # is $got, $get, " got expected output" ;
1658 my $output;
1682 my $output;
1684 ok open my $fh_out2, '>', \$output ;
1687 is $output, $input, "round trip ok" ;