[Arbeitssuche-cvs] arbeit/t volltextsuche.pl,NONE,1.1

[Ingo W. <de...@us...>]

Update of /cvsroot/arbeitssuche/arbeit/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3140/t

Added Files:
	volltextsuche.pl 
Log Message:
Test für Volltextsuche

--- NEW FILE: volltextsuche.pl ---
#!/usr/bin/perl -w 

use strict;
use warnings;

use Test::More tests => 10;

BEGIN{
    use_ok('Dewarim::Arbeit::Config');
    use_ok('Dewarim::Arbeit');
    use_ok('Dewarim::Arbeit::Suche');
    use_ok('Dewarim::Arbeit::SearchForApplicants');
    use_ok('Dewarim::Arbeit::Digest');
    use_ok('WWW::Mechanize');
}

our %config;
my $config_str = Dewarim::Arbeit::Config::load_config();
is( eval($config_str),1, "eval config.pl");

my $search = Dewarim::Arbeit::SearchForApplicants->new(
						       'pw'	=> $config{'ag_pass'},
						       'user'	=> $config{'ag_login'},
						       );

is(ref $search, "Dewarim::Arbeit::SearchForApplicants", "New Search-Object");
$search->mech( WWW::Mechanize->new( agent => "Linux Mozilla" ) );
$search->login() or die "Konnte keine Verbindung zur Arbeitsagentur aufbauen!\n";

is(Dewarim::Arbeit::Message::_msg_to_refnummer($search, {'refnummer' => '10000-592981126-B',
							 'subject'	=> 'Test-Message',
							 'text'		=> "Test-Nachricht für das automatische Versenden von Nachrichten über das Web-Interface der BA.\nhttp://arbeitssuche.sf.net"}), 
   1, "Send Message");





=head2 WWW::Mechanize::dump_content

Diese Methode speichert den Inhalt (content) des WWW::Mechanize-Objektes in den Ordner "debug" unter einer fortlaufenden Nummer, falls das Debug-Flag (--debug) gesetzt ist.

=cut 

sub WWW::Mechanize::dump_content{
    # ToDo: prevent race conditions;
    #       check for write errors.

    my ($self, $filename) = @_;
    if ($config{'debug'}){

	my @files = <debug/*.html>;
	my $filenumber = sprintf("%05d", $#files +2);
	print STDERR "Writing HTML-Page to debug-folder: $filenumber.html.\n";
	open(Dump, ">debug/$filenumber.html");
	print Dump $self->cookie_jar()->as_string;
	print Dump $self->content();
	close(Dump);

	if ($filename){
	    open(Dump, ">t/files/$filename");
	    print Dump $self->content();
	    close(Dump);
	}
    }
    return 1;
}