Chris/cpan-rest-client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

adding tests for setContentFile behavior

Browse Source
This commit is contained in:
Kevin L. Kane 2015-08-04 09:50:37 -04:00
parent 1c605e97c0
commit 08d534c230
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
t/basic.t
View File

@ -119,7 +119,31 @@ SKIP: {
ok(scalar($client->responseHeaders()), 'Header names available'); ok(scalar($client->responseHeaders()), 'Header names available');
ok( $client->responseHeader('Client-Response-Num'), 'Can pull a header'); ok( $client->responseHeader('Client-Response-Num'), 'Can pull a header');
my $fn = "content_file_test";
$client->setContentFile( $fn );
$path = "/ok/" . time() . "/";
$client->GET( $path );
open( my $fh, "<", $fn );
my $test;
while( my $data = <$fh> ) {
$test .= $data;
}
is( $test, $path, "GET into ContentFile (filename) works" );
`rm $fn`;
$test = "";
my $callback = sub {
my ( $data, $resp, $prot ) = @_;
$test .= $data;
};
$client->setContentFile( $callback );
$client->GET( $path );
is( $test, $path, "GET into ContentFile (callback) works" );
$client->setContentFile( undef );
}; };
warn "Tests died: $@" if $@; warn "Tests died: $@" if $@;