Permalink
Browse files

use isa_ok to test return type

  • Loading branch information...
1 parent 4d35354 commit a9d8b6d3c266fd1d6bc61a17da7d5cb873cb4bef @moritz moritz committed Mar 30, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 t/parse-url.t
View
@@ -45,7 +45,7 @@ for @test -> $test, $url, $results {
# Check that port is returned as a number,
# or IO::Socket::INET.open() fails
my ($scheme, $host, $port, $path) = LWP::Simple.parse_url('http://localhost:5984/foo/test/');
-is($port.WHAT.gist, 'Int()', 'port is returned as a Int, to avoid problems on sock.open()');
+isa_ok($port, Int, 'port is returned as a Int, to avoid problems on sock.open()');
done;

0 comments on commit a9d8b6d

Please sign in to comment.