Programming Perl

• About this group
• Forums

• Home
• Groups
• Programming Perl
• Forums
• Tests
• perl.exe -w OpenBC2Xing.t

• 
  Thomas Bergmann

  The company name is only visible to registered members.

  perl.exe -w OpenBC2Xing.t

  use strict;
  use Test::More;
  use WWW::Mechanize;
  my $Mechanize = WWW::Mechanize->new();
  
  plan tests => 2;
  my $Response = $Mechanize->get( 'http://www.xing.com' );
  ok($Response->code() == 200, 'return code 200');
  ok($Response->content() =~ /XING/i, "found xing" );
  
  • 05 Dec 2006, 10:15 am
  Thomas Bergmann wrote: > use strict; > use Test::More; > use WWW::Mechanize; > my $Mechanize = WWW::Mechanize->new(); > > plan tests => 2; > my $Response = $Mechanize->get( 'http://www.xing.com' ); > ok($Response->code() == 200, 'return code 200'); > ok($Response->content() =~ /XING/i, "found xing" );
• 
  Renée Bäcker    Premium Member   Group moderator

  The company name is only visible to registered members.

  Re: perl.exe -w OpenBC2Xing.t

  Ich empfehle da Test::WWW::Mechanize. Das Modul ist extra für Tests mit WWW::Mechanize entworfen worde:
  
  #!/usr/bin/perl
  
  use strict;
  use Test::More tests => 2;
  use Test::WWW::Mechanize;
  my $mechanize = Test::WWW::Mechanize->new();
  
  $mechanize->get_ok( 'http://www.xing.com' );
  $mechanize->content_like(qr/xing/i, "found xing" );
  
  • 05 Dec 2006, 11:09 am
  Renée Bäcker wrote: > Ich empfehle da Test::WWW::Mechanize. Das Modul ist extra für Tests > mit WWW::Mechanize entworfen worde: > > #!/usr/bin/perl > > use strict; > use Test::More tests => 2; > use Test::WWW::Mechanize; > my $mechanize = Test::WWW::Mechanize->new(); > > $mechanize->get_ok( 'http://www.xing.com' ); > $mechanize->content_like(qr/xing/i, "found xing" );
• Post visible to registered members