vcs.maemo.org Git - pkg-perl/blob - deb-src/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/save_content.t

   1 #!perl -Tw
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More tests => 5;
   7 use URI::file;
   8
   9 BEGIN {
  10     delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};  # Placates taint-unsafe Cwd.pm in 5.6.1
  11     use_ok( 'WWW::Mechanize' );
  12 }
  13
  14 my $mech = WWW::Mechanize->new( cookie_jar => undef );
  15 isa_ok( $mech, 'WWW::Mechanize' );
  16
  17 my $original = 't/find_inputs.html';
  18 my $saved = 'saved.test.txt';
  19
  20 my $uri = URI::file->new_abs( $original )->as_string;
  21
  22 $mech->get( $uri );
  23 ok( $mech->success, "Fetched $uri" ) or die q{Can't get test page};
  24
  25 #unlink $saved;
  26 ok( !-e $saved, "$saved does not exist" );
  27 $mech->save_content( $saved );
  28
  29 my $old_text = slurp( $original );
  30 my $new_text = slurp( $saved );
  31
  32 ok( $old_text eq $new_text, 'Saved copy matches the original' ) && unlink $saved;
  33
  34 sub slurp {
  35     my $name = shift;
  36
  37     open( my $fh, '<', $name ) or die "Can't open $name: $!\n";
  38     return join '', <$fh>;
  39 }