Changeset 12377 for lang/perl/WWW-YourFileHost/trunk/t/01.t

Timestamp:

05/26/08 00:59:06 (6 months ago)

Author:

yusukebe

Message:

Checking in changes prior to tagging of version 0.04. Changelog diff is:

Index: Changes
===================================================================
--- Changes (リビジョン 12375)
+++ Changes (作業コピー)
@@ -1,4 +1,5 @@

Revision history for WWW-YourFileHost?

+0.04 MON MAY 26 01:00:00 2008

0.03 FRI Apr 25 11:13:00 2008

remove perlcritic test

0.02 Wed Dec 12 22:33:21 2007

Files:

• lang/perl/WWW-YourFileHost/trunk/t/01.t (modified) (1 diff)

lang/perl/WWW-YourFileHost/trunk/t/01.t

@@ -3 +3 @@
 use strict;
 use warnings;
+use LWP::UserAgent;
 use WWW::YourFileHost;
 use Test::More tests => 4;
 
 my $url = "http://www.yourfilehost.com/media.php?cat=video&file=guns_dont_kill_people.flv";
+my $ua = LWP::UserAgent->new( agent => "WWW::YourFileHost" );
+$ua->cookie_jar( HTTP::Cookies->new(
+                                    file => '',
+                                    autosave => 1,
+                                ));
 
-my $res = WWW::YourFileHost->new( url => $url );
+my $res = WWW::YourFileHost->new( url => $url , ua => $ua );
 isa_ok $res, 'WWW::YourFileHost';