Skip to content

Instantly share code, notes, and snippets.

@kyanny

kyanny/redirect

Created September 18, 2009 08:21
Show Gist options
  • Save kyanny/188941 to your computer and use it in GitHub Desktop.
Save kyanny/188941 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
redirect
#!/usr/bin/env perl
use strict;
use LWP::UserAgent;
use Test::Simple tests => 1;
my $ua = LWP::UserAgent->new();
my $response = $ua->get('http://1password.com/');
ok $response->base, 'http://agilewebsolutions.com/products/1Password';
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment