1 files changed, 52 insertions, 0 deletions
diff --git a/t/18twinhandles.t b/t/18twinhandles.t
new file mode 100644
index 0000000..10423d3
--- /dev/null
+++ b/t/18twinhandles.t
@@ -0,0 +1,52 @@
+#!perl
+
+use strict;
+use warnings;
+use Test::More tests => 11;
+
+BEGIN { use_ok( 'WWW::Curl::Easy' ); }
+
+my $url = $ENV{CURL_TEST_URL} || "http://www.google.com";
+
+my $header_called = 0;
+sub header_callback { $header_called++; return length($_[0]) };
+
+my $body_called = 0;
+sub body_callback {
+	my ($chunk,$handle)=@_;
+	$body_called++;
+	return length($chunk); # OK
+}
+
+
+# Init the curl session
+my $curl1 = WWW::Curl::Easy->new();
+ok($curl1, 'Curl1 session initialize returns something');
+ok(ref($curl1) eq 'WWW::Curl::Easy', 'Curl1 session looks like an object from the WWW::Curl::Easy module');
+
+my $curl2 = WWW::Curl::Easy->new();
+ok($curl2, 'Curl2 session initialize returns something');
+ok(ref($curl2) eq 'WWW::Curl::Easy', 'Curl2 session looks like an object from the WWW::Curl::Easy module');
+
+for my $handle ($curl1,$curl2) {
+	$handle->setopt(CURLOPT_NOPROGRESS, 1);
+	$handle->setopt(CURLOPT_FOLLOWLOCATION, 1);
+	$handle->setopt(CURLOPT_TIMEOUT, 30);
+
+	my $body_ref=\&body_callback;
+	$handle->setopt(CURLOPT_WRITEFUNCTION, $body_ref);
+	$handle->setopt(CURLOPT_HEADERFUNCTION, \&header_callback);
+}
+
+
+ok(! $curl1->setopt(CURLOPT_URL, "error:bad-url"), "Setting deliberately bad url succeeds - should return error on perform"); # deliberate error
+ok(! $curl2->setopt(CURLOPT_URL, $url), "Setting OK url");
+
+my $code1=$curl1->perform();
+ok($code1 != 0, "Curl1 handle fails as expected");
+
+my $code2=$curl2->perform();
+ok($code2 == 0, "Curl2 handle succeeds");
+
+ok($header_called, "Header callback works");
+ok($body_called, "Body callback works");