| |
| # Test script for Perl extension Curl::easy. |
| # Check out the file README for more info. |
| |
| # Before `make install' is performed this script should be runnable with |
| # `make test'. After `make install' it should work as `perl thisfile.t' |
| |
| ######################### We start with some black magic to print on failure. |
| |
| # Change 1..1 below to 1..last_test_to_print . |
| # (It may become useful if the test is moved to ./t subdirectory.) |
| use Benchmark; |
| use strict; |
| |
| BEGIN { $| = 1; print "1..2\n"; } |
| END {print "not ok 1\n" unless $::loaded;} |
| use Curl::easy; |
| |
| $::loaded = 1; |
| print "ok 1\n"; |
| |
| ######################## End of black magic. |
| |
| # Insert your test code below (better if it prints "ok 13" |
| # (correspondingly "not ok 13") depending on the success of chunk 13 |
| # of the test code): |
| |
| my $count=1; |
| |
| print STDERR "Testing curl version ",&Curl::easy::version(),"\n"; |
| |
| if (CURLOPT_URL != 10000+2) { |
| print "not "; |
| } |
| |
| print "ok ".++$count; |
| |
| exit; |